pkg/ptracers/ptracers_fields_blocking_exch.F

785a077159 Alis*0001 #include "PTRACERS_OPTIONS.h"
d217ad1db8 Oliv*0002 #include "GAD_OPTIONS.h"
785a077159 Alis*0003
                0004 CBOP
4519742d4e Jean*0005 C !ROUTINE: PTRACERS_FIELDS_BLOCKING_EXCH
785a077159 Alis*0006
                0007 C !INTERFACE: ==========================================================
064f472621 Ed H*0008       SUBROUTINE PTRACERS_FIELDS_BLOCKING_EXCH( myThid )
785a077159 Alis*0009
                0010 C !DESCRIPTION:
                0011 C     Exchange data to update overlaps for passive tracers
                0012
                0013 C !USES: ===============================================================
d217ad1db8 Oliv*0014 #include "PTRACERS_MOD.h"
785a077159 Alis*0015       IMPLICIT NONE
                0016 #include "SIZE.h"
                0017 #include "EEPARAMS.h"
1af4b8eac8 Jean*0018 #include "PARAMS.h"
636477d15b Jean*0019 #include "PTRACERS_SIZE.h"
0a278985fd Jean*0020 #include "PTRACERS_PARAMS.h"
4519742d4e Jean*0021 #include "PTRACERS_START.h"
0a278985fd Jean*0022 #include "PTRACERS_FIELDS.h"
785a077159 Alis*0023
                0024 C !INPUT PARAMETERS: ===================================================
b689e79849 Jean*0025 C  myThid         :: thread number
785a077159 Alis*0026       INTEGER myThid
                0027
                0028 C !OUTPUT PARAMETERS: ==================================================
                0029 C  none
                0030
                0031 #ifdef ALLOW_PTRACERS
                0032
                0033 C !LOCAL VARIABLES: ====================================================
b689e79849 Jean*0034 C  iTracer        :: loop indices
1af4b8eac8 Jean*0035 C  bi, bj         :: tile indices
785a077159 Alis*0036       INTEGER iTracer
1af4b8eac8 Jean*0037 #ifdef ALLOW_OBCS
97be5f9871 Jean*0038 c     INTEGER bi, bj
1af4b8eac8 Jean*0039 #endif /* ALLOW_OBCS */
785a077159 Alis*0040 CEOP
                0041
                0042 C Loop over passive tracers
                0043       DO iTracer=1,PTRACERS_numInUse
4519742d4e Jean*0044        IF ( PTRACERS_StepFwd(iTracer) ) THEN
785a077159 Alis*0045
                0046 C Exchange overlaps
4519742d4e Jean*0047         CALL EXCH_3D_RL( pTracer(1-OLx,1-OLy,1,1,1,iTracer),
b689e79849 Jean*0048      &                   Nr, myThid )
811d3e9bd3 Jean*0049 #ifdef PTRACERS_ALLOW_DYN_STATE
                0050         IF ( PTRACERS_SOM_Advection(iTracer) ) THEN
646c54e667 Jean*0051           CALL GAD_EXCH_SOM( _Ptracers_som(:,:,:,:,:,:,iTracer),
d217ad1db8 Oliv*0052      &                       Nr, myThid )
811d3e9bd3 Jean*0053         ENDIF
                0054 #endif /* PTRACERS_ALLOW_DYN_STATE */
785a077159 Alis*0055
                0056 C End of tracer loop
4519742d4e Jean*0057        ENDIF
785a077159 Alis*0058       ENDDO
                0059
                0060 #endif /* ALLOW_PTRACERS */
                0061
                0062       RETURN
                0063       END