/[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.22 by adcroft, Wed May 26 20:26:42 1999 UTC revision 1.23 by adcroft, Fri Mar 24 16:03:03 2000 UTC
# Line 173  C     o Net zonal flux Line 173  C     o Net zonal flux
173        DO j=jMin,jMax        DO j=jMin,jMax
174         DO i=iMin,iMax         DO i=iMin,iMax
175          fZon(i,j) = 0.          fZon(i,j) = 0.
176       _ADT(&            + afFacT*af(i,j) )       & _ADT( + afFacT*af(i,j) )
177       _LPT(&            + dfFacT*df(i,j) )       & _LPT( + dfFacT*df(i,j) )
178         ENDDO         ENDDO
179        ENDDO        ENDDO
180    
# Line 210  C     o Net meridional flux Line 210  C     o Net meridional flux
210        DO j=jMin,jMax        DO j=jMin,jMax
211         DO i=iMin,iMax         DO i=iMin,iMax
212          fMer(i,j) = 0.          fMer(i,j) = 0.
213       _ADT(&  + afFacT*af(i,j) )       & _ADT( + afFacT*af(i,j) )
214       _LPT(&  + dfFacT*df(i,j) )       & _LPT( + dfFacT*df(i,j) )
215         ENDDO         ENDDO
216        ENDDO        ENDDO
217    
# Line 342  C     o Net vertical flux Line 342  C     o Net vertical flux
342        DO j=jMin,jMax        DO j=jMin,jMax
343         DO i=iMin,iMax         DO i=iMin,iMax
344          fVerT(i,j,kUp) = 0.          fVerT(i,j,kUp) = 0.
345       _ADT(&  +afFacT*af(i,j)*maskUp(i,j) )       & _ADT( +afFacT*af(i,j)*maskUp(i,j) )
346       _LPT(&  +dfFacT*df(i,j)*maskUp(i,j) )       & _LPT( +dfFacT*df(i,j)*maskUp(i,j) )
347         ENDDO         ENDDO
348        ENDDO        ENDDO
349  #ifdef INCLUDE_T_ADVECTION_CODE  #ifdef INCLUDE_T_ADVECTION_CODE
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22