Changeset db712a8 in flexpart.git for src/ecmwf_mod.f90

Timestamp:

Mar 3, 2016, 12:34:56 PM (8 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:

38b7917

Parents:

b0434e1

Message:

Completed handling of nested wind fields with cloud water (for wet deposition).

File:

• src/ecmwf_mod.f90 (modified) (2 diffs)

src/ecmwf_mod.f90

@@ -41 +41 @@
   !*********************************************
 
-  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 new 
+  integer,parameter :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138 !ECMWF new 
   integer,parameter :: nxshift=359
+!  integer,parameter :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138 !test BUG 
+!  integer,parameter :: nxshift=0
 
 ! 
@@ -49 +52 @@
   !*********************************************
 
-  integer,parameter :: maxnests=1,nxmaxn=361,nymaxn=181 !ECMWF
+  integer,parameter :: maxnests=1,nxmaxn=361,nymaxn=181
+!  integer,parameter :: maxnests=1,nxmaxn=86,nymaxn=31