Changeset 24 for trunk/src/par_mod.f90

Timestamp:

May 23, 2014, 11:48:41 AM (10 years ago)

Author:

igpis

Message:

version 9.2 beta. Changes from HH, AST, MC, NIK, IP. Changes in vert transform. New SPECIES input includes scavenging coefficients

File:

• trunk/src/par_mod.f90 (modified) (3 diffs)

trunk/src/par_mod.f90

@@ -121 +121 @@
   !*********************************************
   
-  integer,parameter :: nxmax=361,nymax=181,nuvzmax=92,nwzmax=92,nzmax=92 !FNL
+  !integer,parameter :: nxmax=361,nymax=181,nuvzmax=92,nwzmax=92,nzmax=92 !FNL XF
+  integer,parameter :: nxmax=361,nymax=181,nuvzmax=152,nwzmax=152,nzmax=152 !ECMWF new 
   !integer,parameter :: nxmax=361,nymax=181,nuvzmax=92,nwzmax=92,nzmax=92 !ECMWF
   !integer,parameter :: nxmax=361,nymax=181,nuvzmax=26,nwzmax=26,nzmax=26
@@ -154 +155 @@
 
   !integer,parameter :: maxnests=0, nxmaxn=0, nymaxn=0
-  !integer,parameter :: maxnests=1,nxmaxn=251,nymaxn=151 !ECMWF
-  integer,parameter :: maxnests=1, nxmaxn=201, nymaxn=161 ! FNL XF
+  integer,parameter :: maxnests=1,nxmaxn=351,nymaxn=351 !ECMWF
+  !integer,parameter :: maxnests=1, nxmaxn=201, nymaxn=161 ! FNL XF
   ! maxnests                maximum number of nested grids
   ! nxmaxn,nymaxn           maximum dimension of nested wind fields in
@@ -197 +198 @@
   !**************************************************
 
-  !integer,parameter :: maxpart=4000000
-  integer,parameter :: maxpart=2000
-  integer,parameter :: maxspec=6
+  integer,parameter :: maxpart=15000000
+  integer,parameter :: maxspec=4