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

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

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

revision 1.3 by jmc, Wed Aug 22 00:26:01 2007 UTC revision 1.4 by jmc, Fri May 9 21:43:16 2008 UTC
# Line 52  C  sm_xy,xz,yz  ::  2nd order moment of Line 52  C  sm_xy,xz,yz  ::  2nd order moment of
52        _RL sm_xz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL sm_xz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
53        _RL sm_yz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL sm_yz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
54    
 #ifdef GAD_ALLOW_SOM_ADVECT  
55  C !LOCAL VARIABLES: ====================================================  C !LOCAL VARIABLES: ====================================================
56  C  i,j,k        :: loop indices  C  i,j,k        :: loop indices
57        _RL  three        _RL  three
# Line 82  C     appropriate moments before transpo Line 81  C     appropriate moments before transpo
81         ENDDO         ENDDO
82        ENDIF        ENDIF
83    
 #endif /* GAD_ALLOW_SOM_ADVECT */  
   
84        RETURN        RETURN
85        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22