Commit 5264e99d authored by Karsten Bolding's avatar Karsten Bolding
Browse files
parents ad8a8404 db8af145
......@@ -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