pkg/kpp/kpp_do_exch.F

d872de328b Jean*0001 #include "KPP_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: KPP_DO_EXCH
                0005 C     !INTERFACE:
                0006       SUBROUTINE KPP_DO_EXCH( myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE KPP_DO_EXCH
                0011 C     | o fill overlap regions of KPP arrays by calling exchanges
                0012 C     *==========================================================*
                0013 C     \ev
                0014
                0015 C     !USES:
                0016       IMPLICIT NONE
                0017
                0018 C     === Global variables ===
                0019 #include "SIZE.h"
                0020 #include "EEPARAMS.h"
                0021 c#include "PARAMS.h"
                0022 c#include "KPP_PARAMS.h"
                0023 #include "KPP.h"
                0024
                0025 C     !INPUT/OUTPUT PARAMETERS:
                0026 C     myThid    :: My Thread Id number
                0027       INTEGER myThid
                0028
                0029 #ifdef ALLOW_KPP
                0030 C     !LOCAL VARIABLES:
                0031 CEOP
                0032
3860c7763e Jean*0033 #ifndef ALLOW_AUTODIFF
d872de328b Jean*0034       CALL EXCH_3D_RL( KPPviscAz, Nr, myThid )
51b4da3cd6 Patr*0035 #else
6637358eea Jean*0036       _EXCH_XYZ_RL( KPPviscAz, myThid )
51b4da3cd6 Patr*0037 #endif
d872de328b Jean*0038
                0039 #endif /* ALLOW_KPP */
                0040
                0041       RETURN
                0042       END