& startIceModel, nitMaxTsf, thSIceAdvScheme, thSIceBalanceAtmFW
INTEGER thSIceBalanceAtmFW
ELSEIF ( thSIceBalanceAtmFW.EQ.2 ) THEN
ELSEIF ( thSIceBalanceAtmFW.NE.0 ) THEN
IF ( thSIceBalanceAtmFW.NE.0 ) THEN
IF ( thSIceBalanceAtmFW.EQ.2 )
IF ( thSIceBalanceAtmFW.EQ.1 ) THEN
thSIceBalanceAtmFW = 0
IF ( fluidIsAir .AND. thSIceBalanceAtmFW.NE.0 ) THEN
WRITE(iUnit,fmtI) 'ThSI:','thSIceBalanceAtmFW=',thSIceBalanceAtmFW
& thSIceBalanceAtmFW,