Changeset 91ce5e7 in flexpart.git for src/par_mod.f90

Timestamp:

Mar 1, 2018, 8:42:46 AM (6 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:

1e991c1, ae43937

Parents:

7d02c2f (diff), 1f55de1 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge branch 'dev' of git.nilu.no:flexpart/flexpart into dev

File:

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

src/par_mod.f90

@@ -148 +148 @@
   ! ECMWF
 ! integer,parameter :: nxmax=361,nymax=181,nuvzmax=92,nwzmax=92,nzmax=92,nxshift=359 ! 1.0 degree 92 level
-   integer,parameter :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138,nxshift=359 ! 1.0 degree 138 level
+  integer,parameter :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138,nxshift=359 ! 1.0 degree 138 level
 ! integer,parameter :: nxmax=721,nymax=361,nuvzmax=138,nwzmax=138,nzmax=138,nxshift=359  ! 0.5 degree 138 level
 !  integer,parameter :: nxmax=181,nymax=91,nuvzmax=92,nwzmax=92,nzmax=92,nxshift=0  ! CERA 2.0 degree 92 level
@@ -160 +160 @@
   !*********************************************
 
-  integer,parameter :: maxnests=1,nxmaxn=451,nymaxn=426
+  integer,parameter :: maxnests=0,nxmaxn=0,nymaxn=0
 
   ! nxmax,nymax        maximum dimension of wind fields in x and y
@@ -209 +209 @@
   !integer,parameter :: maxxgrid=361,maxygrid=181,maxxgridn=0,maxygridn=0)
 
-  integer,parameter :: maxreceptor=200
+  integer,parameter :: maxreceptor=20
 
   ! maxreceptor             maximum number of receptor points
@@ -218 +218 @@
   !**************************************************
 
-  integer,parameter :: maxpart=30000000
-  integer,parameter :: maxspec=6
+  integer,parameter :: maxpart=100000
+  integer,parameter :: maxspec=1
 
   real,parameter :: minmass=0.0001
@@ -262 +262 @@
   !*********************************
 
-  integer,parameter :: maxrand=200000000
+  integer,parameter :: maxrand=1000000
 
   ! maxrand                 number of random numbers used