Commit 86d85bf3 authored by Karsten Bolding's avatar Karsten Bolding
Browse files

always call init_advection_3d() if 3D run - Klingbeil

parent 03c8e72f
......@@ -272,6 +272,8 @@
end if
#endif
call init_advection_3d(2)
#ifndef NO_BAROCLINIC
if (runtype .eq. 3 .or. runtype .eq. 4) then
call init_eqstate()
......@@ -280,9 +282,6 @@
#endif
if (runtype .ge. 3) call init_internal_pressure()
if (runtype .eq. 3) call do_internal_pressure()
if (runtype .eq. 4) then
call init_advection_3d(2)
end if
end if
#endif
......
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