pkg/kpp/kpp_do_exch.F

C $Header: /u/gcmpack/MITgcm/pkg/kpp/kpp_open_diags.F,v 1.4 2001/03/06 17:58:15 jmc Exp $
C $Name:  $

#include "KPP_OPTIONS.h"

CBOP
C     !ROUTINE: KPP_DO_EXCH
C     !INTERFACE:
      SUBROUTINE KPP_DO_EXCH( myThid )

C     !DESCRIPTION: \bv
C     *==========================================================*
C     | SUBROUTINE KPP_DO_EXCH
C     | o fill overlap regions of KPP arrays by calling exchanges
C     *==========================================================*
C     \ev

C     !USES:
      IMPLICIT NONE

C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
c#include "PARAMS.h"
c#include "KPP_PARAMS.h"
#include "KPP.h"

C     !INPUT/OUTPUT PARAMETERS:
C     myThid    :: My Thread Id number
      INTEGER myThid

#ifdef ALLOW_KPP
C     !LOCAL VARIABLES:
CEOP

      CALL EXCH_3D_RL( KPPviscAz, Nr, myThid )

#endif /* ALLOW_KPP */

      RETURN
      END
1	jmc	1.1	C $Header: /u/gcmpack/MITgcm/pkg/kpp/kpp_open_diags.F,v 1.4 2001/03/06 17:58:15 jmc Exp $
2			C $Name: $
3
4			#include "KPP_OPTIONS.h"
5
6			CBOP
7			C !ROUTINE: KPP_DO_EXCH
8			C !INTERFACE:
9			SUBROUTINE KPP_DO_EXCH( myThid )
10
11			C !DESCRIPTION: \bv
12			C ==========================================================
13			C \| SUBROUTINE KPP_DO_EXCH
14			C \| o fill overlap regions of KPP arrays by calling exchanges
15			C ==========================================================
16			C \ev
17
18			C !USES:
19			IMPLICIT NONE
20
21			C === Global variables ===
22			#include "SIZE.h"
23			#include "EEPARAMS.h"
24			c#include "PARAMS.h"
25			c#include "KPP_PARAMS.h"
26			#include "KPP.h"
27
28			C !INPUT/OUTPUT PARAMETERS:
29			C myThid :: My Thread Id number
30			INTEGER myThid
31
32			#ifdef ALLOW_KPP
33			C !LOCAL VARIABLES:
34			CEOP
35
36			CALL EXCH_3D_RL( KPPviscAz, Nr, myThid )
37
38			#endif /* ALLOW_KPP */
39
40			RETURN
41			END