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

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

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

revision 1.26 by cnh, Tue Feb 6 05:12:46 2001 UTC revision 1.27 by adcroft, Wed Feb 7 16:27:29 2001 UTC
# Line 89  C     I, J, K - Loop counters Line 89  C     I, J, K - Loop counters
89  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
90  C--   only the kUp part of fverS is set in this subroutine  C--   only the kUp part of fverS is set in this subroutine
91  C--   the kDown is still required  C--   the kDown is still required
   
92        fVerS(1,1,kDown) = fVerS(1,1,kDown)        fVerS(1,1,kDown) = fVerS(1,1,kDown)
93    #endif
94        DO j=1-OLy,sNy+OLy        DO j=1-OLy,sNy+OLy
95         DO i=1-OLx,sNx+OLx         DO i=1-OLx,sNx+OLx
96          fZon(i,j)      = 0.0          fZon(i,j)      = 0.0
# Line 98  C--   the kDown is still required Line 98  C--   the kDown is still required
98          fVerS(i,j,kUp) = 0.0          fVerS(i,j,kUp) = 0.0
99         ENDDO         ENDDO
100        ENDDO        ENDDO
 #endif  
101    
102        afFacS = 1. _d 0        afFacS = 1. _d 0
103        dfFacS = 1. _d 0        dfFacS = 1. _d 0
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22