Commit db8af145 authored by Knut's avatar Knut
Browse files

runtype check for meanout=0

parent f2f334a9
......@@ -590,11 +590,12 @@
call restart_file(WRITING,trim(hot_out),loop,runtype)
end if
if (meanout .eq. 0) then
if (save_mean .and. meanout.eq.0) then
select case (out_fmt)
case(NETCDF)
dummy=-_ZERO_
#ifndef NO_3D
LEVEL3 timestr, ': saving mean fields .... '
call save_mean_ncdf(dummy)
#endif
end select
......
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