/[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.19 by adcroft, Wed May 26 20:26:41 1999 UTC revision 1.20 by heimbach, Fri Jun 9 14:26:30 2000 UTC
# Line 97  C     I, J, K - Loop counters Line 97  C     I, J, K - Loop counters
97        _RL dSdy(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL dSdy(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
98        _RL df4   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL df4   (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
99    
100    #ifdef ALLOW_AUTODIFF_TAMC
101    C--   only the kUp part of fverS is set in this subroutine
102    C--   the kDown is still required
103    
104          fVerS(1,1,kDown) = fVerS(1,1,kDown)
105          DO j=1-OLy,sNy+OLy
106           DO i=1-OLx,sNx+OLx
107            fZon(i,j)      = 0.0
108            fMer(i,j)      = 0.0
109            fVerS(i,j,kUp) = 0.0
110           ENDDO
111          ENDDO
112    #endif
113    
114        afFacS = 1. _d 0        afFacS = 1. _d 0
115        dfFacS = 1. _d 0        dfFacS = 1. _d 0
116        TOP_LAYER = K .EQ. 1        TOP_LAYER = K .EQ. 1
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22