/[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.30 by cnh, Tue Feb 6 03:08:59 2001 UTC revision 1.31 by adcroft, Wed Feb 7 16:27:29 2001 UTC
# Line 91  C     I, J, K - Loop counters Line 91  C     I, J, K - Loop counters
91  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
92  C--   only the kUp part of fverT is set in this subroutine  C--   only the kUp part of fverT is set in this subroutine
93  C--   the kDown is still required  C--   the kDown is still required
   
94        fVerT(1,1,kDown) = fVerT(1,1,kDown)        fVerT(1,1,kDown) = fVerT(1,1,kDown)
       DO j=1-OLy,sNy+OLy  
        DO i=1-OLx,sNx+OLx  
         fZon(i,j)      = 0.0  
         fMer(i,j)      = 0.0  
         fVerT(i,j,kUp) = 0.0  
        ENDDO  
       ENDDO  
95  #endif  #endif
   
 CcnhDebugStarts  
96        DO j=1-OLy,sNy+OLy        DO j=1-OLy,sNy+OLy
97         DO i=1-OLx,sNx+OLx         DO i=1-OLx,sNx+OLx
98          fZon(i,j)      = 0.0          fZon(i,j)      = 0.0
# Line 110  CcnhDebugStarts Line 100  CcnhDebugStarts
100          fVerT(i,j,kUp) = 0.0          fVerT(i,j,kUp) = 0.0
101         ENDDO         ENDDO
102        ENDDO        ENDDO
 CcnhDebugEnds  
103    
104        afFacT = 1. _d 0        afFacT = 1. _d 0
105        dfFacT = 1. _d 0        dfFacT = 1. _d 0
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22