Changes in src/par_mod.f90 [d8eed02:d1a8707] 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
 
@@ -53 +58 @@
 
   integer,parameter :: dep_prec=sp
-
-  !****************************************************************
-  ! Set to T to disable use of kernel for concentrations/deposition
-  !****************************************************************
-
-  logical, parameter :: lnokernel=.false.
 
   !***********************************************************
@@ -141 +140 @@
   !*********************************************
   
-!  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
-
+  ! Moved to ecmwf_mod.f90 (for ECMWF) / gfs_mod.f90 (for GFS)
   
   integer,parameter :: nconvlevmax = nuvzmax-1
@@ -213 +186 @@
   !**************************************************
 
-  integer,parameter :: maxpart=10000000
-  integer,parameter :: maxspec=4
-
+  integer,parameter :: maxpart=20000000
+  integer,parameter :: maxspec=2
   real,parameter :: minmass=0.0001
 
@@ -290 +262 @@
   integer,parameter ::  icmv=-9999
 
+! Parameters for testing
+!*******************************************
+!  integer :: verbosity=0
 
 end module par_mod