Changeset d8eed02 in flexpart.git for src/par_mod.f90

Timestamp:

Sep 13, 2017, 10:36:25 AM (7 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

dd6a4aa

Parents:

5b34509

Message:

Minor edits

File:

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

src/par_mod.f90

@@ -142 +142 @@
   
 !  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 !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
-!  integer,parameter :: nxmax=15,nymax=15,nuvzmax=140,nwzmax=140,nzmax=140
 !  integer,parameter :: nxshift=359  ! for ECMWF
   integer,parameter :: nxshift=0     ! for GFS
@@ -158 +155 @@
   !*********************************************
 
-  integer,parameter :: maxnests=0,nxmaxn=451,nymaxn=226
+  integer,parameter :: maxnests=1,nxmaxn=451,nymaxn=226
 
   ! nxmax,nymax        maximum dimension of wind fields in x and y
@@ -293 +290 @@
   integer,parameter ::  icmv=-9999
 
-! Parameters for testing
-!*******************************************
-!  integer :: verbosity=0
 
 end module par_mod