/[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.23 by adcroft, Fri Mar 24 16:03:03 2000 UTC revision 1.24 by heimbach, Fri Jun 9 02:45:04 2000 UTC
# Line 104  C     I, J, K - Loop counters Line 104  C     I, J, K - Loop counters
104        integer jwtype                            ! index for Jerlov water type        integer jwtype                            ! index for Jerlov water type
105  #endif  #endif
106    
107    #ifdef ALLOW_AUTODIFF_TAMC
108    C--   only the kUp part of fverT is set in this subroutine
109    C--   the kDown is still required
110    
111          fVerT(1,1,kDown) = fVerT(1,1,kDown)
112          DO j=1-OLy,sNy+OLy
113           DO i=1-OLx,sNx+OLx
114            fZon(i,j)      = 0.0
115            fMer(i,j)      = 0.0
116            fVerT(i,j,kUp) = 0.0
117           ENDDO
118          ENDDO
119    #endif
120    
121        afFacT = 1. _d 0        afFacT = 1. _d 0
122        dfFacT = 1. _d 0        dfFacT = 1. _d 0
123        TOP_LAYER = K .EQ. 1        TOP_LAYER = K .EQ. 1
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22