/[MITgcm]/MITgcm/pkg/seaice/seaice_exch_uv.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_exch_uv.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by dimitri, Mon Dec 27 20:34:11 2004 UTC revision 1.3 by jmc, Thu Aug 24 01:01:47 2006 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "SEAICE_OPTIONS.h"  #include "SEAICE_OPTIONS.h"
5    
6  CStartOfInterface  CBOP
7        SUBROUTINE SEAICE_EXCH_UV ( ufld, vfld, myThid )  C     !ROUTINE: SEAICE_EXCH_UV
8  C     /==========================================================\  
9  C     | SUBROUTINE SEAICE_EXCH_UV                                |  C     !INTERFACE:
10  C     | o RL exchange routine with k=3                           |        SUBROUTINE SEAICE_EXCH_UV(
11  C     |==========================================================|       U                           uFld, vFld,
12  C     \==========================================================/       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        IMPLICIT NONE        IMPLICIT NONE
23    
24  C     == Global variables ===  C     == Global variables ===
25  #include "SIZE.h"  #include "SIZE.h"
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
27    
28    C     !INPUT/OUTPUT PARAMETERS:
29  C     == Routine arguments ==  C     == Routine arguments ==
30  C     myThid - Thread number for this instance of the routine.  C     myThid :: Thread number for this instance of the routine.
31        _RL ufld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy)        _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)        _RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy)
33        INTEGER myThid        INTEGER myThid
 CEndofinterface  
34    
35  C     == Local variables ==  C     !LOCAL VARIABLES:
36        INTEGER i,j,k,bi,bj  CEOP
37        _RL tempU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
38        _RL tempV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  C--   Update overlap regions
39          CALL EXCH_UV_3D_RL(
40  C--   Update overlap regions       U                    uFld, vFld,
41        DO k=1,3       I                    .TRUE., 3, myThid )
          DO bj=myByLo(myThid),myByHi(myThid)  
             DO bi=myBxLo(myThid),myBxHi(myThid)  
                DO j=1-Oly,sNy+OLy  
                   DO i=1-OLx,sNx+OLx  
                      tempU(i,j,bi,bj)=ufld(i,j,k,bi,bj)  
                      tempV(i,j,bi,bj)=vfld(i,j,k,bi,bj)  
                   ENDDO  
                ENDDO  
             ENDDO  
          ENDDO  
          CALL EXCH_UV_XY_RL(tempU,tempV,.TRUE.,myThid)  
          DO bj=myByLo(myThid),myByHi(myThid)  
             DO bi=myBxLo(myThid),myBxHi(myThid)  
                DO j=1-Oly,sNy+OLy  
                   DO i=1-OLx,sNx+OLx  
                      ufld(i,j,k,bi,bj)=tempU(i,j,bi,bj)  
                      vfld(i,j,k,bi,bj)=tempV(i,j,bi,bj)  
                   ENDDO  
                ENDDO  
             ENDDO  
          ENDDO  
       ENDDO  
42    
43        RETURN        RETURN
44        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22