Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
flexpart
flexpart
Commits
1f55de11
Commit
1f55de11
authored
Feb 28, 2018
by
Ignacio Pisso
Browse files
Reduce default size of statically allocated arrays
parent
ccc9ec26
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/par_mod.f90
View file @
1f55de11
...
...
@@ -147,7 +147,7 @@ module par_mod
! 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
...
...
@@ -159,7 +159,7 @@ module par_mod
! Maximum dimensions of the nested input grids
!*********************************************
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
! direction, respectively
...
...
@@ -208,7 +208,7 @@ module par_mod
!integer maxxgrid,maxygrid,maxzgrid,maxxgridn,maxygridn
!integer,parameter :: maxxgrid=361,maxygrid=181,maxxgridn=0,maxygridn=0)
integer
,
parameter
::
maxreceptor
=
20
0
integer
,
parameter
::
maxreceptor
=
20
! maxreceptor maximum number of receptor points
...
...
@@ -217,8 +217,8 @@ module par_mod
! Maximum number of particles, species, and similar
!**************************************************
integer
,
parameter
::
maxpart
=
300
00000
integer
,
parameter
::
maxspec
=
6
integer
,
parameter
::
maxpart
=
1
00000
integer
,
parameter
::
maxspec
=
1
real
,
parameter
::
minmass
=
0.0001
...
...
@@ -261,7 +261,7 @@ module par_mod
! Dimension of random number field
!*********************************
integer
,
parameter
::
maxrand
=
200
000000
integer
,
parameter
::
maxrand
=
1
000000
! maxrand number of random numbers used
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment