Commit d1b89d09 authored by Knut's avatar Knut
Browse files

joined if (kmax.gt.1) loops

parent c6f49372
......@@ -491,16 +491,14 @@
end if
call coordinates(.false.)
#endif
if (kmax .gt. 1) then
call ww_momentum_3d()
end if
if (kmax .gt. 1) then
call uv_advect_3d()
call uv_diffusion_3d() ! Must be called after uv_advect_3d
end if
if (kmax .gt. 1) then
#ifndef NO_BOTTFRIC
call stresses_3d()
#endif
......@@ -511,7 +509,9 @@
call gotm()
if (advect_turbulence) call tke_eps_advect_3d()
#endif
end if
#ifndef NO_BAROCLINIC
if(runtype .eq. 4) then ! prognostic T and S
if (calc_temp) call do_temperature(n)
......
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