Commit cdae0cb9 authored by Knut's avatar Knut

output: fixed registration for metforcing=False

parent ff9895c1
......@@ -237,7 +237,7 @@
LEVEL2 'register_meteo_variables()'
if (met_method .eq. 2) then
if (metforcing) then
if (calc_met) then
call fm%register('airp', 'Pa', 'air pressure', standard_name='', data2d=airp(_2D_W_), category="meteo/in", output_level=output_level_debug)
call fm%register('t2', 'Celcius', '2m air temperature', standard_name='', data2d=t2(_2D_W_), category="meteo/in", output_level=output_level_debug)
......@@ -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'
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment