-
Notifications
You must be signed in to change notification settings - Fork 2
/
domain.f90
31 lines (24 loc) · 1.4 KB
/
domain.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
! Set the domain dimensionality, size and number of subdomains.
module domain
integer, parameter :: YES3D = 1 ! Domain dimensionality: 1 - 3D, 0 - 2D
integer, parameter :: nx_gl = 64 ! Number of grid points in X
integer, parameter :: ny_gl = 64 ! Number of grid points in Y
integer, parameter :: nz_gl = 64 ! Number of pressure (scalar) levels
integer, parameter :: nsubdomains_x = 8 ! No of subdomains in x
integer, parameter :: nsubdomains_y = 4 ! No of subdomains in y
! define # of points in x and y direction to average for
! output relating to statistical moments.
! For example, navgmom_x = 8 means the output will be
! 8 times coarser grid than the original.
! If don't wanna such output, just set them to -1 in both directions.
! See Changes_log/README.UUmods for more details.
integer, parameter :: navgmom_x = -1
integer, parameter :: navgmom_y = -1
integer, parameter :: ntracers = 0 ! number of transported tracers (dotracers=.true.)
! Note:
! * nx_gl and ny_gl should be a factor of 2,3, or 5 (see User's Guide)
! * if 2D case, ny_gl = nsubdomains_y = 1 ;
! * nsubdomains_x*nsubdomains_y = total number of processors
! * if one processor is used, than nsubdomains_x = nsubdomains_y = 1;
! * if ntracers is > 0, don't forget to set dotracers to .true. in namelist
end module domain