/[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.3 by jmc, Tue Feb 12 20:29:57 2008 UTC revision 1.4 by jmc, Fri May 9 21:43:16 2008 UTC
# Line 36  C     myThid ::  my Thread Id number Line 36  C     myThid ::  my Thread Id number
36        INTEGER myThid        INTEGER myThid
37  CEOP  CEOP
38    
 #ifdef GAD_ALLOW_SOM_ADVECT  
39  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
40  C     === Local variables ===  C     === Local variables ===
41    
# Line 71  C-    Sxz,Syz : Line 70  C-    Sxz,Syz :
70       U                 smTr(1-OLx,1-OLy,1,1,1,9),       U                 smTr(1-OLx,1-OLy,1,1,1,9),
71       I                 .TRUE., myNz, myThid )       I                 .TRUE., myNz, myThid )
72    
 #endif /* GAD_ALLOW_SOM_ADVECT */  
   
73        RETURN        RETURN
74        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22