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
26f60397
Commit
26f60397
authored
Jan 26, 2016
by
Espen Sollum
Browse files
Set single precision deposition fields as default
parent
6a678e3f
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/par_mod.f90
View file @
26f60397
...
...
@@ -51,7 +51,7 @@ module par_mod
! dp). sp is default, dp can be used for increased precision.
!****************************************************************
integer
,
parameter
::
dep_prec
=
d
p
integer
,
parameter
::
dep_prec
=
s
p
!***********************************************************
! Number of directories/files used for FLEXPART input/output
...
...
src/verttransform.f90
View file @
26f60397
...
...
@@ -103,8 +103,8 @@ subroutine verttransform(n,uuh,vvh,wwh,pvh)
!ZHG 2015 temporary variables for testing
real
::
rcw
(
0
:
nxmax
-1
,
0
:
nymax
-1
)
real
::
rpc
(
0
:
nxmax
-1
,
0
:
nymax
-1
)
character
(
len
=
60
)
::
zhgpath
=
'/xnilu_wrk/flex_wrk/zhg/'
character
(
len
=
60
)
::
fnameA
,
fnameB
,
fnameC
,
fnameD
,
fnameE
,
fnameF
,
fnameG
,
fnameH
!
character(len=60) :: zhgpath='/xnilu_wrk/flex_wrk/zhg/'
!
character(len=60) :: fnameA,fnameB,fnameC,fnameD,fnameE,fnameF,fnameG,fnameH
CHARACTER
(
LEN
=
3
)
::
aspec
integer
::
virr
=
0
real
::
tot_cloud_h
...
...
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