/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_exch_som.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_exch_som.F

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

revision 1.1 by jmc, Thu Aug 16 21:23:45 2007 UTC revision 1.2 by jmc, Fri Feb 8 17:16:15 2008 UTC
# Line 14  C     !INTERFACE: Line 14  C     !INTERFACE:
14  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
15  C     *==========================================================*  C     *==========================================================*
16  C     | SUBROUTINE GAD_EXCH_SOM  C     | SUBROUTINE GAD_EXCH_SOM
17  C     | o Apply exchanges to update overlaps of 1srt & 2nd.Order  C     | o Apply exchanges to update overlaps of 1srt & 2nd.Order
18  C     |   Moments array, corresponding to 1 tracer  C     |   Moments array, corresponding to 1 tracer
19  C     *==========================================================*  C     *==========================================================*
20  C     \ev  C     \ev
# Line 43  C     === Local variables === Line 43  C     === Local variables ===
43    
44  C--   Apply exchanges to 1rst.O.Moments:  C--   Apply exchanges to 1rst.O.Moments:
45  C-    Sx,Sy :  C-    Sx,Sy :
46        CALL EXCH_UV_AGRID_3D_RL(        CALL EXCH_UV_AGRID_3D_RL(
47       U                 smTr(1-OLx,1-OLy,1,1,1,1),       U                 smTr(1-OLx,1-OLy,1,1,1,1),
48       U                 smTr(1-OLx,1-OLy,1,1,1,2),       U                 smTr(1-OLx,1-OLy,1,1,1,2),
49       I                 .TRUE., myNz, myThid )       I                 .TRUE., myNz, myThid )
# Line 54  C-    Sz : Line 54  C-    Sz :
54    
55  C--   Apply exchanges to 2nd.O.Moments:  C--   Apply exchanges to 2nd.O.Moments:
56  C-    Sxx,Syy :  C-    Sxx,Syy :
57        CALL EXCH_UV_AGRID_3D_RL(        CALL EXCH_UV_AGRID_3D_RL(
58       U                 smTr(1-OLx,1-OLy,1,1,1,4),       U                 smTr(1-OLx,1-OLy,1,1,1,4),
59       U                 smTr(1-OLx,1-OLy,1,1,1,5),       U                 smTr(1-OLx,1-OLy,1,1,1,5),
60       I                 .FALSE., myNz, myThid )       I                 .FALSE., myNz, myThid )
61  C-    Sz :  C-    Szz :
62        CALL EXCH_3D_RL(        CALL EXCH_3D_RL(
63       U                 smTr(1-OLx,1-OLy,1,1,1,6),       U                 smTr(1-OLx,1-OLy,1,1,1,6),
64       I                 myNz, myThid )       I                 myNz, myThid )
# Line 67  C-    Sxy : Line 67  C-    Sxy :
67       U                 smTr(1-OLx,1-OLy,1,1,1,7),       U                 smTr(1-OLx,1-OLy,1,1,1,7),
68       I                 .TRUE., myNz, myThid )       I                 .TRUE., myNz, myThid )
69  C-    Sxz,Syz :  C-    Sxz,Syz :
70        CALL EXCH_UV_AGRID_3D_RL(        CALL EXCH_UV_AGRID_3D_RL(
71       U                 smTr(1-OLx,1-OLy,1,1,1,8),       U                 smTr(1-OLx,1-OLy,1,1,1,8),
72       U                 smTr(1-OLx,1-OLy,1,1,1,9),       U                 smTr(1-OLx,1-OLy,1,1,1,9),
73       I                 .TRUE., myNz, myThid )       I                 .TRUE., myNz, myThid )
74          
75  #endif /* GAD_ALLOW_SOM_ADVECT */  #endif /* GAD_ALLOW_SOM_ADVECT */
76    
77        RETURN        RETURN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22