pkg/generic_advdiff/gad_som_exchanges.F

d7ce0d34f8 Jean*0001 #include "GAD_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: GAD_SOM_EXCHANGES
                0005 C     !INTERFACE:
                0006       SUBROUTINE GAD_SOM_EXCHANGES( myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE GAD_SOM_EXCHANGES
                0011 C     | o Apply exchanges to update overlaps
                0012 C     |   for 2nd.Order Moment fields
                0013 C     *==========================================================*
                0014 C     \ev
                0015 C     !USES:
                0016       IMPLICIT NONE
                0017
                0018 C     === Global variables ===
                0019 #include "SIZE.h"
                0020 #include "EEPARAMS.h"
                0021 #include "GAD.h"
                0022 #include "GAD_SOM_VARS.h"
                0023
                0024 C     !INPUT/OUTPUT PARAMETERS:
                0025 C     === Routine arguments ===
                0026 C     myThid ::  my Thread Id number
                0027       INTEGER myThid
                0028 CEOP
                0029
6e23417f74 Jean*0030 #ifdef GAD_ALLOW_TS_SOM_ADV
d7ce0d34f8 Jean*0031 C     !LOCAL VARIABLES:
                0032 C     === Local variables ===
                0033
                0034 C--   Apply exchanges to Temp. 2nd.O.Moments:
                0035       IF ( tempSOM_Advection ) THEN
bcbf0beb7c Jean*0036        CALL GAD_EXCH_SOM( som_T, Nr, myThid )
d7ce0d34f8 Jean*0037       ENDIF
                0038
                0039 C--   Apply exchanges to Salin. 2nd.O.Moments:
                0040       IF ( saltSOM_Advection ) THEN
bcbf0beb7c Jean*0041        CALL GAD_EXCH_SOM( som_S, Nr, myThid )
d7ce0d34f8 Jean*0042       ENDIF
                0043
6e23417f74 Jean*0044 #endif /* GAD_ALLOW_TS_SOM_ADV */
d7ce0d34f8 Jean*0045
                0046       RETURN
                0047       END