Commit cb589846 authored by Knut's avatar Knut
Browse files

removed runtype=2 reset for calc_temp=calc_salt=F

parent 02f7b54c
......@@ -53,8 +53,8 @@
integer :: vel3d_adv_split=0
integer :: vel3d_adv_hor=1
integer :: vel3d_adv_ver=1
logical :: calc_temp=.false.
logical :: calc_salt=.false.
logical :: calc_temp=.true.
logical :: calc_salt=.true.
logical :: bdy3d=.false.
integer :: bdyfmt_3d,bdy3d_ramp
character(len=PATH_MAX) :: bdyfile_3d
......@@ -86,12 +86,10 @@
IMPLICIT NONE
!
! !INPUT PARAMETERS:
integer, intent(in) :: runtype
REALTYPE, intent(in) :: timestep
logical, intent(in) :: hotstart
!
! !INPUT/OUTPUT PARAMETERS:
integer, intent(inout) :: runtype
!
!
! !DESCRIPTION:
! Here, the {\tt m3d} namelist is read from {\tt getm.inp}, and the
......@@ -139,11 +137,6 @@
read(NAMLST,m3d)
! rewind(NAMLST)
if (runtype.ge.3 .and. .not.calc_temp .and. .not.calc_salt) then
LEVEL2 'reset runtype to 2 because neither temp nor salt are calculated'
runtype = 2
end if
LEVEL2 "splitting factor M: ",M
if (avmback .lt. _ZERO_) 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