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
8b3d324e
Commit
8b3d324e
authored
Jun 25, 2018
by
pesei
Browse files
comment out print statements
comment out print statements for the reference height, adjust the i/o comment line
parent
1a8fbee0
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/verttransform_ecmwf.f90
View file @
8b3d324e
...
...
@@ -20,7 +20,7 @@
! **********************************************************************
subroutine
verttransform_ecmwf
(
n
,
uuh
,
vvh
,
wwh
,
pvh
)
! i i i i i
!
i i i i i
!*****************************************************************************
! *
! This subroutine transforms temperature, dew point temperature and *
...
...
@@ -167,7 +167,7 @@ subroutine verttransform_ecmwf(n,uuh,vvh,wwh,pvh)
end
do
3
continue
print
*
,
'oldheights at'
,
ixref
,
jyref
,
ps
(
ixref
,
jyref
,
1
,
n
)
!
print*,'oldheights at' ,ixref,jyref,ps(ixref,jyref,1,n)
else
! new reference grid point
! PS: the old version fails if the pressure is <=1000 hPa in the whole
! domain. Let us find a good replacement, not just a quick fix.
...
...
@@ -185,11 +185,11 @@ subroutine verttransform_ecmwf(n,uuh,vvh,wwh,pvh)
!> (reject mountains, accept valleys)
psmean
=
sum
(
ps
(:,:,
1
,
n
),
ps
(:,:,
1
,
n
)
>
psmean
-
psstd
)
/
&
count
(
ps
(:,:,
1
,
n
)
>
psmean
-
psstd
)
print
*
,
'height: std, new psmean'
,
psstd
,
psmean
!
print*,'height: std, new psmean',psstd,psmean
ixyref
=
minloc
(
abs
(
ps
(:,:,
1
,
n
)
-
psmean
)
)
ixref
=
ixyref
(
1
)
jyref
=
ixyref
(
2
)
print
*
,
'newheights at'
,
ixref
,
jyref
,
ps
(
ixref
,
jyref
,
1
,
n
)
!
print*,'newheights at' ,ixref,jyref,ps(ixref,jyref,1,n)
endif
tvoldref
=
tt2
(
ixref
,
jyref
,
1
,
n
)
*
&
...
...
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