Changeset a63831f in flexpart.git


Ignore:
Timestamp:
Mar 6, 2018, 1:12:36 PM (13 months ago)
Author:
Ignacio Pisso <Ignacio.Pisso@…>
Branches:
master
Children:
c8df680
Parents:
fa22e2b
Message:

Reduce array size in par_mod.f90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/par_mod.f90

    rac5b22b ra63831f  
    121121  !*********************************************
    122122 
    123   !integer,parameter :: nxmax=361,nymax=181,nuvzmax=92,nwzmax=92,nzmax=92 !FNL XF
     123  !integer,parameter :: nxmax=361,nymax=181,nuvzmax=92,nwzmax=92,nzmax=92 !ECMWF 91 levels
     124  integer,parameter :: nxmax=361,nymax=181,nuvzmax=138,nwzmax=138,nzmax=138 !ECMWF 137 levels
     125  !integer,parameter :: nxmax=721,nymax=361,nuvzmax=138,nwzmax=138,nzmax=138 !ECMWF 0.5 137 levels
     126  !integer,parameter :: nxmax=361,nymax=181,nuvzmax=92,nwzmax=92,nzmax=92 !FNL
     127
    124128  !integer,parameter :: nxmax=361,nymax=181,nuvzmax=152,nwzmax=152,nzmax=152 !ECMWF new
    125   !integer,parameter :: nxmax=361,nymax=181,nuvzmax=92,nwzmax=92,nzmax=92 !ECMWF
    126129  !integer,parameter :: nxmax=361,nymax=181,nuvzmax=26,nwzmax=26,nzmax=26
    127130  !integer,parameter :: nxmax=721,nymax=361,nuvzmax=64,nwzmax=64,nzmax=64
    128   integer,parameter :: nxmax=721,nymax=361,nuvzmax=138,nwzmax=138,nzmax=138 !ECMWF 0.5
    129131  !integer,parameter :: nxmax=1201,nymax=235,nuvzmax=58,nwzmax=58,nzmax=58
    130132
     
    156158  !*********************************************
    157159
    158   !integer,parameter :: maxnests=0, nxmaxn=0, nymaxn=0
    159   integer,parameter :: maxnests=1,nxmaxn=361,nymaxn=351 !ECMWF
     160  integer,parameter :: maxnests=0, nxmaxn=0, nymaxn=0
     161  !integer,parameter :: maxnests=1,nxmaxn=361,nymaxn=351 !ECMWF
    160162  !integer,parameter :: maxnests=1, nxmaxn=201, nymaxn=161 ! FNL XF
    161163  ! maxnests                maximum number of nested grids
     
    200202  !**************************************************
    201203
    202   integer,parameter :: maxpart=4000000
    203   integer,parameter :: maxspec=6
     204  integer,parameter :: maxpart=1000000
     205  integer,parameter :: maxspec=1
    204206
    205207
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG