Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Open sidebar
Knut Klingbeil
getm
Commits
cdae0cb9
Commit
cdae0cb9
authored
Aug 07, 2017
by
Knut
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
output: fixed registration for metforcing=False
parent
ff9895c1
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
2 additions
and
1 deletion
+2
-1
src/getm/register_all_variables.F90
src/getm/register_all_variables.F90
+1
-1
src/meteo/meteo.F90
src/meteo/meteo.F90
+1
-0
No files found.
src/getm/register_all_variables.F90
View file @
cdae0cb9
...
...
@@ -237,7 +237,7 @@
!BOC
LEVEL2
'register_meteo_variables()'
if
(
met
_method
.eq.
2
)
then
if
(
met
forcing
)
then
if
(
calc_met
)
then
call
fm
%
register
(
'airp'
,
'Pa'
,
'air pressure'
,
standard_name
=
''
,
data2d
=
airp
(
_
2
D_W_
),
category
=
"meteo/in"
,
output_level
=
output_level_debug
)
call
fm
%
register
(
't2'
,
'Celcius'
,
'2m air temperature'
,
standard_name
=
''
,
data2d
=
t2
(
_
2
D_W_
),
category
=
"meteo/in"
,
output_level
=
output_level_debug
)
...
...
src/meteo/meteo.F90
View file @
cdae0cb9
...
...
@@ -158,6 +158,7 @@
LEVEL3
'ty = '
,
ty
LEVEL3
'swr = '
,
swr_const
LEVEL3
'shf = '
,
shf_const
calc_met
=
.false.
case
(
2
)
if
(
on_grid
)
then
LEVEL2
'Meteorological fields are on the computational grid'
...
...
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