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

      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 ( tIter0 .NE. UNSET_I ) THEN

       tIter0 = UNSET_I

      num_v_smooth_BV = UNSET_I

      num_z_smooth_sh = UNSET_I

      num_m_smooth_sh = UNSET_I

      IF ( num_v_smooth_BV .NE. UNSET_I ) THEN

      IF ( num_z_smooth_sh .NE. UNSET_I ) THEN

      IF ( num_m_smooth_sh .NE. UNSET_I ) THEN

       mnc_def_imv(i) = UNSET_I

      IF ( offlineOffsetIter .NE. UNSET_I ) THEN

      offlineOffsetIter = UNSET_I

      IF ( SEAICEnEVPstarSteps.NE.UNSET_I .AND.

     &     .AND. SEAICEnEVPstarSteps.NE.UNSET_I ) THEN

      IF ( SEAICEnEVPstarSteps.NE.UNSET_I ) nEVPstep=SEAICEnEVPstarSteps

      IF ( SOLV_MAX_ITERS .NE. UNSET_I ) THEN

      IF ( LAD .NE. UNSET_I ) THEN

      IF ( SEAICEadvSchAge .NE. UNSET_I ) THEN

      IF ( SEAICEturbFluxFormula .NE. UNSET_I ) THEN

      SEAICEadvSchArea   = UNSET_I

      SEAICEadvSchHeff   = UNSET_I

      SEAICEadvSchSnow   = UNSET_I

      SEAICEadvSchSalt   = UNSET_I

      SEAICE_JFNK_lsIter  = UNSET_I

      SEAICE_OLx          = UNSET_I

      SEAICE_OLy          = UNSET_I

      SEAICEnEVPstarSteps = UNSET_I

      SEAICEnonLinIterMax = UNSET_I

      SEAICElinearIterMax = UNSET_I

      SEAICE_debugPointI = UNSET_I

      SEAICE_debugPointJ = UNSET_I

      LAD        = UNSET_I

      NPSEUDOTIMESTEPS   = UNSET_I

      SOLV_MAX_ITERS     = UNSET_I

      SEAICEnewtonIterMax= UNSET_I

      SEAICEkrylovIterMax= UNSET_I

      SEAICEadvSchAge    = UNSET_I

      SEAICEturbFluxFormula =UNSET_I

      IF ( SEAICEnonLinIterMax .EQ. UNSET_I ) THEN

      IF ( SEAICElinearIterMax .EQ. UNSET_I ) THEN

      IF ( SEAICE_JFNK_lsIter .EQ. UNSET_I )

      IF ( SEAICE_OLx.EQ.UNSET_I ) THEN

      IF ( SEAICE_OLy.EQ.UNSET_I ) THEN

      IF ( SEAICEadvSchArea .EQ. UNSET_I )

      IF ( SEAICEadvSchArea .EQ. UNSET_I )

      IF ( SEAICEadvSchHeff .EQ. UNSET_I )

      IF ( SEAICEadvSchSnow .EQ. UNSET_I )

      IF ( SEAICEadvSchSalt .EQ. UNSET_I )

      IF ( SEAICEnewtonIterMax .NE. UNSET_I ) THEN

      IF ( SEAICEkrylovIterMax .NE. UNSET_I ) THEN

      IF ( NPSEUDOTIMESTEPS    .NE. UNSET_I ) THEN

      IF ( monitorSelect.EQ.UNSET_I ) THEN

      IF ( cg2dUseMinResSol.EQ.UNSET_I ) THEN

      tracerAdvScheme = UNSET_I

      plotLevel         = UNSET_I

        IF ( selectVortScheme.EQ.UNSET_I ) selectVortScheme = 2

      IF ( plotLevel.EQ.UNSET_I ) plotLevel = debugLevel

      IF ( tracerAdvScheme .NE. UNSET_I ) THEN

      IF ( momForcingOutAB  .EQ. UNSET_I ) THEN

      IF ( tracForcingOutAB .EQ. UNSET_I ) THEN

      selectP_inEOS_Zc    = UNSET_I

      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

        IF ( selectP_inEOS_Zc.EQ.UNSET_I ) THEN

     I         UNSET_RS, UNSET_RL, UNSET_I,

           misval_int(ii) = 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  )