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
da396a28
Commit
da396a28
authored
Mar 01, 2015
by
Ignacio Pisso
Browse files
change configuration parameters: wind array size, maxpart
parent
cd1f691a
Changes
2
Show whitespace changes
Inline
Side-by-side
src/makefile
View file @
da396a28
src/par_mod.f90
View file @
da396a28
...
...
@@ -122,12 +122,14 @@ module par_mod
!integer,parameter :: nxmax=361,nymax=181,nuvzmax=92,nwzmax=92,nzmax=92 !FNL XF
!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
!
integer,parameter :: nxmax=361,nymax=181,nuvzmax=92,nwzmax=92,nzmax=92 !ECMWF
!integer,parameter :: nxmax=361,nymax=181,nuvzmax=26,nwzmax=26,nzmax=26
!integer,parameter :: nxmax=721,nymax=361,nuvzmax=64,nwzmax=64,nzmax=64
integer
,
parameter
::
nxmax
=
721
,
nymax
=
361
,
nuvzmax
=
138
,
nwzmax
=
138
,
nzmax
=
138
!ECMWF 0.5
!integer,parameter :: nxmax=1201,nymax=235,nuvzmax=58,nwzmax=58,nzmax=58
integer
,
parameter
::
nxshift
=
359
! for ECMWF
!integer,parameter :: nxshift=718 ! for ECMWF 0.5
!integer,parameter :: nxshift=0 ! for GFS or FNL (XF)
integer
,
parameter
::
nconvlevmax
=
nuvzmax
-1
...
...
@@ -153,8 +155,8 @@ module par_mod
! Maximum dimensions of the nested input grids
!*********************************************
integer
,
parameter
::
maxnests
=
0
,
nxmaxn
=
0
,
nymaxn
=
0
!
integer,parameter :: maxnests=1,nxmaxn=3
5
1,nymaxn=351 !ECMWF
!
integer,parameter :: maxnests=0, nxmaxn=0, nymaxn=0
integer
,
parameter
::
maxnests
=
1
,
nxmaxn
=
3
6
1
,
nymaxn
=
351
!ECMWF
!integer,parameter :: maxnests=1, nxmaxn=201, nymaxn=161 ! FNL XF
! maxnests maximum number of nested grids
! nxmaxn,nymaxn maximum dimension of nested wind fields in
...
...
@@ -197,8 +199,8 @@ module par_mod
! Maximum number of particles, species, and similar
!**************************************************
integer
,
parameter
::
maxpart
=
15
0000
integer
,
parameter
::
maxspec
=
4
integer
,
parameter
::
maxpart
=
400
0000
integer
,
parameter
::
maxspec
=
1
! maxpart Maximum number of particles
...
...
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