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
25b45325
Commit
25b45325
authored
Aug 23, 2019
by
Ignacio Pisso
Browse files
turbulence factors can change for different runs with the same executable
parent
07c3e71f
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/par_mod.f90
View file @
25b45325
...
@@ -92,8 +92,9 @@ module par_mod
...
@@ -92,8 +92,9 @@ module par_mod
! r_water specific gas constant for water vapor [J/kg/K]
! r_water specific gas constant for water vapor [J/kg/K]
real
,
parameter
::
karman
=
0.40
,
href
=
15.
,
convke
=
2.0
real
,
parameter
::
karman
=
0.40
,
href
=
15.
,
convke
=
2.0
real
,
parameter
::
hmixmin
=
100.
,
hmixmax
=
4500.
,
turbmesoscale
=
0.16
real
,
parameter
::
hmixmin
=
100.
,
hmixmax
=
4500.
!, turbmesoscale=0.16
real
,
parameter
::
d_trop
=
50.
,
d_strat
=
0.1
!real,parameter :: d_trop=50., d_strat=0.1
real
::
d_trop
=
50.
,
d_strat
=
0.1
,
turbmesoscale
=
0.16
! turbulence factors can change for different runs
real
,
parameter
::
rho_water
=
1000.
!ZHG 2015 [kg/m3]
real
,
parameter
::
rho_water
=
1000.
!ZHG 2015 [kg/m3]
!ZHG MAR2016
!ZHG MAR2016
real
,
parameter
::
incloud_ratio
=
6.2
real
,
parameter
::
incloud_ratio
=
6.2
...
@@ -156,7 +157,7 @@ module par_mod
...
@@ -156,7 +157,7 @@ module par_mod
! GFS
! GFS
integer
,
parameter
::
nxmax
=
361
,
nymax
=
181
,
nuvzmax
=
138
,
nwzmax
=
138
,
nzmax
=
138
integer
,
parameter
::
nxmax
=
361
,
nymax
=
181
,
nuvzmax
=
138
,
nwzmax
=
138
,
nzmax
=
138
integer
::
nxshift
=
0
integer
::
nxshift
=
0
! shift not fixed for the executable
!*********************************************
!*********************************************
...
...
src/readcommand.f90
View file @
25b45325
...
@@ -114,7 +114,9 @@ subroutine readcommand
...
@@ -114,7 +114,9 @@ subroutine readcommand
surf_only
,
&
surf_only
,
&
cblflag
,
&
cblflag
,
&
linversionout
,
&
linversionout
,
&
ohfields_path
ohfields_path
,
&
d_trop
,
&
d_strat
! Presetting namelist command
! Presetting namelist command
ldirect
=
0
ldirect
=
0
...
...
Write
Preview
Markdown
is supported
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