pkg/seaice/seaice_exch_uv.F

C $Header: /u/gcmpack/MITgcm/pkg/seaice/seaice_exch_uv.F,v 1.2 2004/12/27 20:34:11 dimitri Exp $
C $Name:  $

#include "SEAICE_OPTIONS.h"

CBOP
C     !ROUTINE: SEAICE_EXCH_UV

C     !INTERFACE:
      SUBROUTINE SEAICE_EXCH_UV(
     U                           uFld, vFld,
     I                           myThid )

C     !DESCRIPTION:
C     *==========================================================*
C     | SUBROUTINE SEAICE_EXCH_UV
C     | o RL exchange routine with k=3
C     *==========================================================*
C     *==========================================================*

C     !USES:
      IMPLICIT NONE

C     == Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"

C     !INPUT/OUTPUT PARAMETERS:
C     == Routine arguments ==
C     myThid :: Thread number for this instance of the routine.
      _RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy)
      _RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy)
      INTEGER myThid

C     !LOCAL VARIABLES:
CEOP

C--   Update overlap regions
      CALL EXCH_UV_3D_RL(
     U                    uFld, vFld,
     I                    .TRUE., 3, myThid )

      RETURN
      END
1	jmc	1.3	C $Header: /u/gcmpack/MITgcm/pkg/seaice/seaice_exch_uv.F,v 1.2 2004/12/27 20:34:11 dimitri Exp $
2	dimitri	1.1	C $Name: $
3
4			#include "SEAICE_OPTIONS.h"
5	jmc	1.3
6			CBOP
7			C !ROUTINE: SEAICE_EXCH_UV
8
9			C !INTERFACE:
10			SUBROUTINE SEAICE_EXCH_UV(
11			U uFld, vFld,
12			I myThid )
13
14			C !DESCRIPTION:
15			C ==========================================================
16			C \| SUBROUTINE SEAICE_EXCH_UV
17			C \| o RL exchange routine with k=3
18			C ==========================================================
19			C ==========================================================
20
21			C !USES:
22	dimitri	1.1	IMPLICIT NONE
23
24			C == Global variables ===
25			#include "SIZE.h"
26			#include "EEPARAMS.h"
27
28	jmc	1.3	C !INPUT/OUTPUT PARAMETERS:
29	dimitri	1.1	C == Routine arguments ==
30	jmc	1.3	C myThid :: Thread number for this instance of the routine.
31			_RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy)
32			_RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy)
33	dimitri	1.1	INTEGER myThid
34
35	jmc	1.3	C !LOCAL VARIABLES:
36			CEOP
37
38			C-- Update overlap regions
39			CALL EXCH_UV_3D_RL(
40			U uFld, vFld,
41			I .TRUE., 3, myThid )
42	dimitri	1.1
43			RETURN
44			END