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