Commit 404fe63a authored by Knut's avatar Knut
Browse files

reset calc_[temp|salt] in case of runtype=2

parent ab214dba
......@@ -233,13 +233,16 @@
call hcc_check()
end if
if (runtype .eq. 2) then
calc_temp = .false.
calc_salt = .false.
else
#ifndef NO_BAROCLINIC
if (runtype .eq. 3 .or. runtype .eq. 4) then
T = _ZERO_ ; S = _ZERO_ ; rho = _ZERO_
if(calc_temp) call init_temperature()
if(calc_salt) call init_salinity()
end if
#endif
end if
#ifndef NO_BAROCLINIC
if (runtype .eq. 3 .or. runtype .eq. 4) then
......
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