-
Notifications
You must be signed in to change notification settings - Fork 0
/
Eddy_Mod.f90
33 lines (28 loc) · 1.18 KB
/
Eddy_Mod.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
!==============================================================================!
module Eddy_Mod
!------------------------------------------------------------------------------!
! Module to define eddy type !
!------------------------------------------------------------------------------!
implicit none
!==============================================================================!
!---------------!
! !
! Eddy type !
! !
!---------------!
type Eddy_Type
integer :: n_eddies
real :: sigma
integer, allocatable :: num(:) ! eddy specification number
real, allocatable :: len(:) ! eddy length scale
real, allocatable :: x(:) ! eddy's x position
real, allocatable :: y(:) ! eddy's y position
real, allocatable :: z(:) ! eddy's z position
real, allocatable :: x_int(:) ! eddy's x intensity
real, allocatable :: y_int(:) ! eddy's y intensity
real, allocatable :: z_int(:) ! eddy's z intensity
real, allocatable :: t_int(:) ! eddy's t intensity
end type
contains
include 'Eddy_Mod/Create.f90'
end module