/[MITgcm]/MITgcm/model/src/calc_gt.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_gt.F

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

revision 1.29 by cnh, Sun Feb 4 14:38:46 2001 UTC revision 1.30 by cnh, Tue Feb 6 03:08:59 2001 UTC
# Line 102  C--   the kDown is still required Line 102  C--   the kDown is still required
102        ENDDO        ENDDO
103  #endif  #endif
104    
105    CcnhDebugStarts
106          DO j=1-OLy,sNy+OLy
107           DO i=1-OLx,sNx+OLx
108            fZon(i,j)      = 0.0
109            fMer(i,j)      = 0.0
110            fVerT(i,j,kUp) = 0.0
111           ENDDO
112          ENDDO
113    CcnhDebugEnds
114    
115        afFacT = 1. _d 0        afFacT = 1. _d 0
116        dfFacT = 1. _d 0        dfFacT = 1. _d 0
117        TOP_LAYER = K .EQ. 1        TOP_LAYER = K .EQ. 1
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22