Commit c75f4789 authored by Knut's avatar Knut

TODO: move call to do_eqstate and ss_nn (and do_internal_pressure) to where...

TODO: move call to do_eqstate and ss_nn (and do_internal_pressure) to where layer heights are available also during hotstart
parent 6cbbed0d
......@@ -272,6 +272,7 @@
if (runtype .eq. 3 .or. runtype .eq. 4) then
call init_eqstate()
#ifndef PECS
! KK-TODO: in case of hotstart no layer heights are available at this point
call do_eqstate()
call ss_nn()
#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