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
ddaeb130
Commit
ddaeb130
authored
Oct 30, 2018
by
Sabine
Browse files
added info about step and precip. thres in logfile
parent
66ea1877
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/calculate_watercycle.f90
View file @
ddaeb130
...
...
@@ -41,18 +41,18 @@ subroutine calculate_watercycle(partnumber,itime)
real
::
dt1
,
dt2
,
dtt
,
ddx
,
ddy
,
rddx
,
rddy
,
p1
,
p2
,
p3
,
p4
,
xtn
,
ytn
real
centerposx_real
,
centerposy_real
,
centerposx
,
centerposy
,
diff
,
xl
(
2
),
yl
(
2
)
real
qv1
(
2
),
qvprof
(
2
),
qvi
,
dz
,
dz1
,
dz2
real
e_minus_p1
(
2
),
e_minus_pi
real
e_minus_p1
(
2
),
e_minus_pi
,
threshold
real
precip_reference
(
360
,
180
),
eminusp_saved
,
waterthreshold
real
precip_reference
(
360
,
180
),
eminusp_saved
integer
ixr
,
jyr
,
idumx
,
idumy
,
istep
,
watersynctime
watersynctime
=
3600
*
3
! was loutstep before, but for monthly run not possible
water
threshold
=
-.1
!
watersynctime=
3600
!
watersynctime=loutstep
watersynctime
=
3600
*
3
! was loutstep before, but for monthly run not possible
!
water
synctime=3600
! watersynctime=
loutstep
threshold
=
-.5
if
((
partnumber
.eq.
1
)
.and.
(
itime
.eq.
0
))
write
(
*
,
*
)
'Watersynctime '
,
watersynctime
,
lsynctime
,
water
threshold
if
((
partnumber
.eq.
1
)
.and.
(
itime
.eq.
0
))
write
(
*
,
*
)
'Watersynctime '
,
watersynctime
,
lsynctime
,
', threshold: '
,
threshold
! Some variables needed for temporal interpolation
!*************************************************
...
...
@@ -70,7 +70,7 @@ subroutine calculate_watercycle(partnumber,itime)
forparticle
=
numpart
totalparticle
=
0
istep
=
int
(
itime
/
watersynctime
)
write
(
*
,
*
)
'Model step:'
,
istep
!
write(*,*) 'Model step:',istep
! open(43,file='precip_ref_input.dat',status='old')
! write(*,*) 'Reading eminusp from file'
! do 75 jyr=1,90
...
...
@@ -231,7 +231,7 @@ subroutine calculate_watercycle(partnumber,itime)
! e_minus_pi=precip_reference(ix+1,jy-90+2)*(-24.)
! First timestep and criteria fullfilled, keep it or throw it?
if
(
((
diff
.ge.
0
)
.or.
((
e_minus_pi
/
24
)
.gt.
water
threshold
))
.and.
(
status_q
(
i
)
.eq.
1
)
)
then
if
(
((
diff
.ge.
0
)
.or.
((
e_minus_pi
/
24
)
.gt.
threshold
))
.and.
(
status_q
(
i
)
.eq.
1
)
)
then
! if ( ((diff.ge.0).or.((e_minus_pi/24).gt.-2.0)) .and. (status_q(i).eq.1) ) then
! if ( ((diff.ge.0)) .and. (status_q(i).eq.1) ) then
! if (status_q(i).eq.-100) then ! never! all trajectories.
...
...
@@ -279,7 +279,7 @@ subroutine calculate_watercycle(partnumber,itime)
end
do
if
((
partnumber
.eq.
-1
)
.and.
(
totalparticle
.gt.
0
))
then
write
(
*
,
*
)
'calculated watercycle, '
,
totalparticle
,
numpart
,
partnumber
,
forparticle
,
itime
!
write (*,*) 'calculated watercycle, ',totalparticle,numpart,partnumber,forparticle,itime
endif
...
...
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