Changeset 1f55de1 in flexpart.git


Ignore:
Timestamp:
Feb 28, 2018, 7:00:37 PM (6 years ago)
Author:
Ignacio Pisso <Ignacio.Pisso@…>
Branches:
master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
Children:
93786a1
Parents:
ccc9ec2
Message:

Reduce default size of statically allocated arrays

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/par_mod.f90

    rc2bd55e r1f55de1  
    148148  ! ECMWF
    149149! integer,parameter :: nxmax=361,nymax=181,nuvzmax=92,nwzmax=92,nzmax=92,nxshift=359 ! 1.0 degree 92 level
    150    integer,parameter :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138,nxshift=359 ! 1.0 degree 138 level
     150  integer,parameter :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138,nxshift=359 ! 1.0 degree 138 level
    151151! integer,parameter :: nxmax=721,nymax=361,nuvzmax=138,nwzmax=138,nzmax=138,nxshift=359  ! 0.5 degree 138 level
    152152!  integer,parameter :: nxmax=181,nymax=91,nuvzmax=92,nwzmax=92,nzmax=92,nxshift=0  ! CERA 2.0 degree 92 level
     
    160160  !*********************************************
    161161
    162   integer,parameter :: maxnests=1,nxmaxn=451,nymaxn=426
     162  integer,parameter :: maxnests=0,nxmaxn=0,nymaxn=0
    163163
    164164  ! nxmax,nymax        maximum dimension of wind fields in x and y
     
    209209  !integer,parameter :: maxxgrid=361,maxygrid=181,maxxgridn=0,maxygridn=0)
    210210
    211   integer,parameter :: maxreceptor=200
     211  integer,parameter :: maxreceptor=20
    212212
    213213  ! maxreceptor             maximum number of receptor points
     
    218218  !**************************************************
    219219
    220   integer,parameter :: maxpart=30000000
    221   integer,parameter :: maxspec=6
     220  integer,parameter :: maxpart=100000
     221  integer,parameter :: maxspec=1
    222222
    223223  real,parameter :: minmass=0.0001
     
    262262  !*********************************
    263263
    264   integer,parameter :: maxrand=200000000
     264  integer,parameter :: maxrand=1000000
    265265
    266266  ! maxrand                 number of random numbers used
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG