Changes from branches/FLEXPART_9.1.3/src/par_mod.f90 at r13 to trunk/src/par_mod.f90 at r4

File:

• trunk/src/par_mod.f90 (modified) (5 diffs, 1 prop)

trunk/src/par_mod.f90

@@ -28 +28 @@
 !        1997                                                                  *
 !                                                                              *
-!        Last update 15 August 2013 IP                                         *
+!        Last update 10 August 2000                                            *
 !                                                                              *
 !*******************************************************************************
@@ -122 +122 @@
 
   integer,parameter :: nxmax=361,nymax=181,nuvzmax=92,nwzmax=92,nzmax=92
-  !integer,parameter :: nxmax=361,nymax=181,nuvzmax=26,nwzmax=26,nzmax=26
+  !integer,parameter :: nxmax=361,nymax=181,nuvzmax=61,nwzmax=61,nzmax=61
   !integer,parameter :: nxmax=721,nymax=361,nuvzmax=64,nwzmax=64,nzmax=64
-  !integer,parameter :: nxmax=1201,nymax=235,nuvzmax=58,nwzmax=58,nzmax=58
-  integer,parameter :: nxshift=359 ! for ECMWF
+  integer,parameter :: nxshift=359  ! for ECMWF
   !integer,parameter :: nxshift=0     ! for GFS
 
@@ -151 +150 @@
   !*********************************************
 
-  !integer,parameter :: maxnests=0, nxmaxn=0, nymaxn=0
-  integer,parameter :: maxnests=1,nxmaxn=251,nymaxn=151
+  integer,parameter :: maxnests=0, nxmaxn=0, nymaxn=0
+  !integer,parameter :: maxnests=1,nxmaxn=251,nymaxn=151
 
   ! maxnests                maximum number of nested grids
@@ -195 +194 @@
   !**************************************************
 
-  integer,parameter :: maxpart=150000
-  integer,parameter :: maxspec=1
+  integer,parameter :: maxpart=2000000
+  integer,parameter :: maxspec=4
 
 
@@ -259 +258 @@
   integer,parameter :: unitboundcond=89
 
-!******************************************************
-! integer code for missing values, used in wet scavenging (PS, 2012)
-!******************************************************
-
-      integer icmv
-      parameter(icmv=-9999)
-
 end module par_mod