IF (implicDiv2Dflow .NE. 1. _d 0 .OR. useOBCS )
IF ( useOBCS .AND. nonlinFreeSurf.GT.0 )
IF (useOBCS) CALL OBCS_CHECK( myThid )
IF (useOBCS) CALL PACKAGES_CHECK_ERROR('OBCS', myThid)
IF (useOBCS) THEN
IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )
IF (useOBCS) CALL OBCS_APPLY_R_STAR(
IF ( useFLT .AND. useOBCS ) THEN
& useOBCS,
useOBCS=.FALSE.
IF (useOBCS .AND. myIter.NE.nIter0 )
IF (useOBCS) CALL OBCS_READPARMS( myThid )
& ) .AND. useOBCS ) THEN
IF ( useOBCS .AND.(implicitViscosity.OR.momImplVertAdv) ) THEN
LOGICAL useOBCS
& useKPP, useGMRedi, useOBCS, useAIM, useLand, useECCO,
IF ( useOBCS ) THEN
IF (useOBCS) CALL CTRL_INIT_OBCS_VARIABLES( mythid )
IF ( useOBCS )
IF (useOBCS.AND.nonHydrostatic) THEN
IF (useOBCS) CALL OBCS_APPLY_SURF_DR(