pkg/salt_plume/salt_plume_do_exch.F

9d71427857 Jean*0001 #include "SALT_PLUME_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: SALT_PLUME_DO_EXCH
                0005 C     !INTERFACE:
                0006       SUBROUTINE SALT_PLUME_DO_EXCH(
                0007      I                           myTime, myIter, myThid )
                0008
                0009 C     !DESCRIPTION: \bv
                0010 C     *==========================================================*
                0011 C     | SUBROUTINE SALT_PLUME_DO_EXCH
                0012 C     | o Apply Exchanges to SALT_PLUME variables when necessary
                0013 C     *==========================================================*
3a1cc20a0a Jean*0014 C     | o If coupled, prior to EXCH call, also apply update
                0015 C     |   from coupling interface
                0016 C     *==========================================================*
9d71427857 Jean*0017 C     \ev
                0018
                0019 C     !USES:
                0020       IMPLICIT NONE
                0021
                0022 C     == Global variables ==
                0023 #include "SIZE.h"
                0024 #include "EEPARAMS.h"
                0025 #include "PARAMS.h"
                0026 #include "SALT_PLUME.h"
3a1cc20a0a Jean*0027 #ifdef ALLOW_OCN_COMPON_INTERF
                0028 # include "CPL_PARAMS.h"
                0029 # include "OCNCPL.h"
                0030 #endif /* ALLOW_OCN_COMPON_INTERF */
9d71427857 Jean*0031
                0032 C     !INPUT/OUTPUT PARAMETERS:
                0033 C     myTime :: Current time in simulation
                0034 C     myIter :: Current iteration number in simulation
                0035 C     myThid :: my Thread Id. number
                0036       _RL     myTime
                0037       INTEGER myIter
                0038       INTEGER myThid
                0039 CEOP
                0040
                0041 C     !LOCAL VARIABLES:
3a1cc20a0a Jean*0042 #ifdef ALLOW_OCN_COMPON_INTERF
                0043       INTEGER bi, bj, i, j
                0044 #endif /* ALLOW_OCN_COMPON_INTERF */
                0045
                0046 #ifdef ALLOW_OCN_COMPON_INTERF
                0047 c     IF ( useSALT_PLUME .AND. useCoupler ) THEN
                0048       IF ( useCoupler ) THEN
                0049        IF ( useImportSltPlm ) THEN
                0050 C-    Take a fraction (SPsalFRAC) of the coupler-imported salt-flux
                0051 C      and apply it to salt-plume array (for vertical redistribution)
                0052         DO bj = myByLo(myThid), myByHi(myThid)
                0053          DO bi = myBxLo(myThid), myBxHi(myThid)
                0054            DO j=1-OLy,sNy+OLy
                0055             DO i=1-OLx,sNx+OLx
                0056               saltPlumeFlux(i,j,bi,bj) = saltPlmFlx_cpl(i,j,bi,bj)
                0057      &                                 * SPsalFRAC
                0058             ENDDO
                0059            ENDDO
                0060          ENDDO
                0061         ENDDO
                0062        ENDIF
                0063       ENDIF
                0064 #endif /* ALLOW_OCN_COMPON_INTERF */
9d71427857 Jean*0065
                0066       IF ( useSALT_PLUME ) THEN
                0067        _EXCH_XY_RL( saltPlumeFlux, myThid )
                0068       ENDIF
                0069
                0070       RETURN
                0071       END