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
d1a87077
Commit
d1a87077
authored
May 04, 2017
by
Sabine
Browse files
When running in wet deposition mode a textfile with precipitation data is written out
parent
58882983
Changes
4
Show whitespace changes
Inline
Side-by-side
src/getfields.f90
View file @
d1a87077
...
...
@@ -137,6 +137,10 @@ subroutine getfields(itime,nstop)
end
do
40
indmin
=
indj
if
(
WETBKDEP
)
then
call
writeprecip
(
itime
,
memind
(
1
))
endif
else
! No wind fields, which can be used, are currently in memory
...
...
@@ -168,6 +172,10 @@ subroutine getfields(itime,nstop)
end
do
60
indmin
=
indj
if
(
WETBKDEP
)
then
call
writeprecip
(
itime
,
memind
(
1
))
endif
endif
lwindinterv
=
abs
(
memtime
(
2
)
-
memtime
(
1
))
...
...
src/makefile
View file @
d1a87077
...
...
@@ -143,6 +143,7 @@ OBJECTS_GFS = \
OBJECTS
=
\
advance.o initialize.o
\
writeheader.o writeheader_txt.o
\
writeprecip.o
\
writeheader_surf.o assignland.o
\
part0.o gethourlyOH.o
\
caldate.o partdep.o
\
...
...
@@ -431,6 +432,7 @@ wetdepo.o: com_mod.o par_mod.o point_mod.o
wetdepokernel.o
:
com_mod.o par_mod.o unc_mod.o
wetdepokernel_nest.o
:
com_mod.o par_mod.o unc_mod.o
writeheader.o
:
com_mod.o outg_mod.o par_mod.o point_mod.o
writeprecip.o
:
com_mod.o par_mod.o point_mod.o
writeheader_nest.o
:
com_mod.o outg_mod.o par_mod.o point_mod.o
writeheader_nest_surf.o
:
com_mod.o outg_mod.o par_mod.o point_mod.o
writeheader_surf.o
:
com_mod.o outg_mod.o par_mod.o point_mod.o
...
...
src/par_mod.f90
View file @
d1a87077
...
...
@@ -251,7 +251,7 @@ module par_mod
integer
,
parameter
::
unitspecies
=
1
,
unitoutrecept
=
91
,
unitoutreceptppt
=
92
integer
,
parameter
::
unitlsm
=
1
,
unitsurfdata
=
1
,
unitland
=
1
,
unitwesely
=
1
integer
,
parameter
::
unitOH
=
1
integer
,
parameter
::
unitdates
=
94
,
unitheader
=
90
,
unitheader_txt
=
100
,
unitshortpart
=
95
integer
,
parameter
::
unitdates
=
94
,
unitheader
=
90
,
unitheader_txt
=
100
,
unitshortpart
=
95
,
unitprecip
=
101
integer
,
parameter
::
unitboundcond
=
89
integer
,
parameter
::
unittmp
=
101
...
...
src/timemanager.f90
View file @
d1a87077
...
...
@@ -147,6 +147,8 @@ subroutine timemanager
!CGZ-lifetime: set lifetime to 0
if
(
.not.
usekernel
)
write
(
*
,
*
)
'Not using the kernel'
if
(
turboff
)
write
(
*
,
*
)
'Turbulence switched off'
write
(
*
,
46
)
float
(
itime
)/
3600
,
itime
,
numpart
if
(
verbosity
.gt.
0
)
then
...
...
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