Changes in src/par_mod.f90 [d1a8707:d8eed02] in flexpart.git

File:

• src/par_mod.f90 (modified) (5 diffs)

src/par_mod.f90

@@ -38 +38 @@
 module par_mod
 
-!************************************************************************
-! wind_mod: is gfs_mod.f90 for target gfs, ecmwf_mod.f90 for target ecmwf
-!************************************************************************
-  use wind_mod 
-
   implicit none
 
@@ -58 +53 @@
 
   integer,parameter :: dep_prec=sp
+
+  !****************************************************************
+  ! Set to T to disable use of kernel for concentrations/deposition
+  !****************************************************************
+
+  logical, parameter :: lnokernel=.false.
 
   !***********************************************************
@@ -140 +141 @@
   !*********************************************
   
-  ! Moved to ecmwf_mod.f90 (for ECMWF) / gfs_mod.f90 (for GFS)
+!  integer,parameter :: nxmax=361,nymax=181,nuvzmax=92,nwzmax=92,nzmax=92 !ECMWF new 
+  integer,parameter :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138 !ECMWF new 
+
+!  integer,parameter :: nxmax=181,nymax=91,nuvzmax=138,nwzmax=138,nzmax=138 !ECMWF new 
+
+!  INTEGER,PARAMETER :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138 !NCEP data
+
+!  integer,parameter :: nxshift=359  ! for ECMWF
+  integer,parameter :: nxshift=0     ! for GFS
+
+  !*********************************************
+  ! Maximum dimensions of the nested input grids
+  !*********************************************
+
+  integer,parameter :: maxnests=1,nxmaxn=451,nymaxn=226
+
+  ! nxmax,nymax        maximum dimension of wind fields in x and y
+  !                    direction, respectively
+  ! nuvzmax,nwzmax     maximum dimension of (u,v) and (w) wind fields in z
+  !                    direction (for fields on eta levels)
+  ! nzmax              maximum dimension of wind fields in z direction
+  !                    for the transformed Cartesian coordinates
+  ! nxshift            for global grids (in x), the grid can be shifted by
+  !                    nxshift grid points, in order to accomodate nested
+  !                    grids, and output grids overlapping the domain "boundary"
+  !                    nxshift must not be negative; "normal" setting would be 0
+
   
   integer,parameter :: nconvlevmax = nuvzmax-1
@@ -186 +213 @@
   !**************************************************
 
-  integer,parameter :: maxpart=20000000
-  integer,parameter :: maxspec=2
+  integer,parameter :: maxpart=10000000
+  integer,parameter :: maxspec=4
+
   real,parameter :: minmass=0.0001
 
@@ -262 +290 @@
   integer,parameter ::  icmv=-9999
 
-! Parameters for testing
-!*******************************************
-!  integer :: verbosity=0
 
 end module par_mod