siobNstartdate1 = UNSET_I
siobNstartdate2 = UNSET_I
siobSstartdate1 = UNSET_I
siobSstartdate2 = UNSET_I
siobEstartdate1 = UNSET_I
siobEstartdate2 = UNSET_I
siobWstartdate1 = UNSET_I
siobWstartdate2 = UNSET_I
exf_iprec_obcs = UNSET_I
IF(siobNstartdate1.EQ.UNSET_I ) siobNstartdate1=obcsNstartdate1
IF(siobNstartdate2.EQ.UNSET_I ) siobNstartdate2=obcsNstartdate2
IF(siobSstartdate1.EQ.UNSET_I ) siobSstartdate1=obcsSstartdate1
IF(siobSstartdate2.EQ.UNSET_I ) siobSstartdate2=obcsSstartdate2
IF(siobEstartdate1.EQ.UNSET_I ) siobEstartdate1=obcsEstartdate1
IF(siobEstartdate2.EQ.UNSET_I ) siobEstartdate2=obcsEstartdate2
IF(siobWstartdate1.EQ.UNSET_I ) siobWstartdate1=obcsWstartdate1
IF(siobWstartdate2.EQ.UNSET_I ) siobWstartdate2=obcsWstartdate2
IF(exf_iprec_obcs .EQ. UNSET_I) exf_iprec_obcs =exf_iprec
IF ( tIter0 .NE. UNSET_I ) THEN
tIter0 = UNSET_I
mnc_def_imv(i) = UNSET_I
IF ( SEAICEnEVPstarSteps.NE.UNSET_I .AND.
& .AND. SEAICEnEVPstarSteps.NE.UNSET_I ) THEN
& SEAICEnEVPstarSteps.NE.UNSET_I ) THEN
IF ( SEAICEnEVPstarSteps.NE.UNSET_I ) nEVPstep=SEAICEnEVPstarSteps
IF ( SEAICEturbFluxFormula .NE. UNSET_I ) THEN
SEAICEadvSchArea = UNSET_I
SEAICEadvSchHeff = UNSET_I
SEAICEadvSchSnow = UNSET_I
SEAICEadvSchSalt = UNSET_I
SEAICE_JFNK_lsIter = UNSET_I
SEAICEnEVPstarSteps = UNSET_I
SOLV_MAX_ITERS = UNSET_I
SEAICE_debugPointI = UNSET_I
SEAICE_debugPointJ = UNSET_I
LAD = UNSET_I
SEAICEadvSchAge = UNSET_I
SEAICEturbFluxFormula =UNSET_I
IF ( SOLV_MAX_ITERS .EQ. UNSET_I ) THEN
IF ( SEAICE_JFNK_lsIter .EQ. UNSET_I )
IF ( SEAICEadvSchArea .EQ. UNSET_I )
IF ( SEAICEadvSchHeff .EQ. UNSET_I )
IF ( SEAICEadvSchSnow .EQ. UNSET_I )
IF ( SEAICEadvSchSalt .EQ. UNSET_I )
IF ( LAD .NE. UNSET_I ) THEN
IF ( SEAICEadvSchAge .NE. UNSET_I ) THEN
IF ( monitorSelect.EQ.UNSET_I ) THEN
IF ( cg2dUseMinResSol.EQ.UNSET_I ) THEN
tracerAdvScheme = UNSET_I
IF ( selectVortScheme.EQ.UNSET_I ) selectVortScheme = 2
IF ( tracerAdvScheme .NE. UNSET_I ) THEN
IF ( momForcingOutAB .EQ. UNSET_I ) THEN
IF ( tracForcingOutAB .EQ. UNSET_I ) THEN
selectVortScheme = UNSET_I
cg2dUseMinResSol = UNSET_I
momForcingOutAB = UNSET_I
tracForcingOutAB = UNSET_I
monitorSelect = UNSET_I
IF ( selectVortScheme.EQ.UNSET_I ) THEN
ELSEIF ( selectVortScheme.NE.UNSET_I ) THEN
I UNSET_RS, UNSET_RL, UNSET_I,
misval_int(ii) = UNSET_I
missing_value_int(l) = UNSET_I
stat_region(k,l) = UNSET_I
IF ( j.NE.UNSET_I .AND. j.GE.0 .AND. j.LE.nRegions ) THEN
ELSEIF ( j.NE.UNSET_I ) THEN
INTEGER UNSET_I
PARAMETER ( UNSET_I = 123456789 )