pkg/ggl90/ggl90_exchanges.F

76f580e1f0 Mart*0001 #include "GGL90_OPTIONS.h"
                0002
                0003 CBOP
                0004 C !ROUTINE: GGL90_EXCHANGES
                0005
                0006 C !INTERFACE: ==========================================================
                0007       SUBROUTINE GGL90_EXCHANGES( myThid )
                0008
31a3206180 Mart*0009 C !DESCRIPTION: \bv
                0010 C     *================================================================*
                0011 C     | S/R GGL90_EXCHANGES
                0012 C     | Exchange data to update overlaps for GGL90TKE
                0013 C     *================================================================*
                0014 C \ev
76f580e1f0 Mart*0015
                0016 C !USES: ===============================================================
                0017       IMPLICIT NONE
31a3206180 Mart*0018 C     === Global variables ===
76f580e1f0 Mart*0019 #include "SIZE.h"
                0020 #include "EEPARAMS.h"
                0021 #include "GGL90.h"
                0022
31a3206180 Mart*0023 C     !INPUT/OUTPUT PARAMETERS: ========================================
31f96e9372 Jean*0024 C      myThid     :: my Thread Id number
76f580e1f0 Mart*0025       INTEGER myThid
                0026
                0027 #ifdef ALLOW_GGL90
                0028 C !LOCAL VARIABLES: ====================================================
                0029 CEOP
                0030
31a3206180 Mart*0031 #ifdef ALLOW_GGL90_IDEMIX
31f96e9372 Jean*0032       IF ( useIDEMIX .AND. IDEMIX_tau_h .GT. zeroRL ) THEN
                0033        _EXCH_XYZ_RL( GGL90TKE, myThid )
                0034        _EXCH_XYZ_RL( IDEMIX_E, myThid )
                0035       ELSEIF ( GGL90diffTKEh .GT. zeroRL ) THEN
                0036 #else /* ALLOW_GGL90_IDEMIX */
                0037       IF ( GGL90diffTKEh .GT. zeroRL ) THEN
                0038 #endif /* ALLOW_GGL90_IDEMIX */
                0039        _EXCH_XYZ_RL( GGL90TKE, myThid )
31a3206180 Mart*0040       ENDIF
31f96e9372 Jean*0041
                0042 C--   Just to check that it does not affects results:
                0043 c      CALL EXCH_UV_3D_RL( GGL90viscArU, GGL90viscArV,
                0044 c    I                     .FALSE., Nr, myThid )
76f580e1f0 Mart*0045 #endif /* ALLOW_GGL90 */
                0046
                0047       RETURN
                0048       END