pkg/obcs/obcs_adjust.F

abfe198bce Mart*0001 #include "OBCS_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: OBCS_ADJUST
                0005
                0006 C     !INTERFACE:
                0007       SUBROUTINE OBCS_ADJUST(
                0008      &     futureTime, futureIter, myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     *==========================================================*
                0012 C     | SUBROUTINE OBCS_ADJUST
                0013 C     | o adjust boundary fluxes to balance flow
                0014 C     | o this code used to be part of S/R OBCS_CALC, but with
                0015 C     |   surface balancing, we need all forcing terms so this
                0016 C     |   part needs be called after S/R EXTERNAL_FORCING_SURF
                0017 C     | o tidal forcing needs to be applied at the very end after
                0018 C     |   balancing the flow because it introduces new
                0019 C     |   (purposefully) unbalanced flow
                0020 C     *==========================================================*
                0021
                0022 C     !USES:
                0023       IMPLICIT NONE
                0024
                0025 C     === Global variables ===
                0026 #include "SIZE.h"
                0027 #include "EEPARAMS.h"
                0028 #include "OBCS_PARAMS.h"
                0029
                0030 C     !INPUT/OUTPUT PARAMETERS:
                0031 C     == Routine arguments ==
                0032       INTEGER futureIter
                0033       _RL futureTime
                0034       INTEGER myThid
                0035
                0036 #ifdef ALLOW_OBCS
                0037
                0038 #ifdef ALLOW_DEBUG
                0039       IF (debugMode) CALL DEBUG_ENTER('OBCS_ADJUST',myThid)
                0040 #endif
                0041
                0042 #ifdef ALLOW_OBCS_BALANCE
                0043       IF ( useOBCSbalance ) THEN
                0044         CALL OBCS_BALANCE_FLOW( futureTime, futureIter, myThid )
                0045       ENDIF
                0046 #endif /* ALLOW_OBCS_BALANCE */
                0047
                0048 #ifdef ALLOW_OBCS_TIDES
                0049       IF ( useOBCStides ) THEN
                0050         CALL OBCS_ADD_TIDES( futureTime, futureIter, myThid )
                0051       ENDIF
                0052 #endif /* ALLOW_OBCS_TIDES */
                0053
                0054 #ifdef ALLOW_DEBUG
                0055       IF (debugMode) CALL DEBUG_LEAVE('OBCS_ADJUST',myThid)
                0056 #endif
                0057 #endif /* ALLOW_OBCS */
                0058
                0059       RETURN
                0060       END