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

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

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

revision 1.4 by jmc, Tue Feb 12 20:32:34 2008 UTC revision 1.5 by jmc, Fri May 9 21:43:16 2008 UTC
# Line 75  C  vT           :: meridional advective Line 75  C  vT           :: meridional advective
75        _RL sm_yz (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL sm_yz (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
76        _RL vT    (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL vT    (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
77    
 #ifdef GAD_ALLOW_SOM_ADVECT  
78  C !LOCAL VARIABLES: ====================================================  C !LOCAL VARIABLES: ====================================================
79  C  i,j           :: loop indices  C  i,j           :: loop indices
80  C  vLoc          :: volume transported (per time step)  C  vLoc          :: volume transported (per time step)
# Line 307  C      add into grid box (j): positive V Line 306  C      add into grid box (j): positive V
306  C--   end 2nd loop on strip number "ns"  C--   end 2nd loop on strip number "ns"
307        ENDDO        ENDDO
308    
 #endif /* GAD_ALLOW_SOM_ADVECT */  
   
309        RETURN        RETURN
310        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22