/[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.25 by adcroft, Wed Jun 21 19:15:33 2000 UTC revision 1.26 by heimbach, Mon Sep 11 22:59:09 2000 UTC
# Line 162  C     o Diffusive component of zonal flu Line 162  C     o Diffusive component of zonal flu
162         ENDDO         ENDDO
163        ENDDO        ENDDO
164  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
165        IF (use_GMRedi) CALL GMREDI_XTRANSPORT(        IF (useGMRedi) CALL GMREDI_XTRANSPORT(
166       I     iMin,iMax,jMin,jMax,bi,bj,K,       I     iMin,iMax,jMin,jMax,bi,bj,K,
167       I     xA,theta,       I     xA,theta,
168       U     df,       U     df,
# Line 205  C     o Diffusive component of meridiona Line 205  C     o Diffusive component of meridiona
205         ENDDO         ENDDO
206        ENDDO        ENDDO
207  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
208        IF (use_GMRedi) CALL GMREDI_YTRANSPORT(        IF (useGMRedi) CALL GMREDI_YTRANSPORT(
209       I     iMin,iMax,jMin,jMax,bi,bj,K,       I     iMin,iMax,jMin,jMax,bi,bj,K,
210       I     yA,theta,       I     yA,theta,
211       U     df,       U     df,
# Line 305  C           boundary condition. Line 305  C           boundary condition.
305  #endif /* INCLUDE_T_DIFFUSION_CODE */  #endif /* INCLUDE_T_DIFFUSION_CODE */
306    
307  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
308        IF (use_GMRedi) CALL GMREDI_RTRANSPORT(        IF (useGMRedi) CALL GMREDI_RTRANSPORT(
309       I     iMin,iMax,jMin,jMax,bi,bj,K,       I     iMin,iMax,jMin,jMax,bi,bj,K,
310       I     maskUp,theta,       I     maskUp,theta,
311       U     df,       U     df,
# Line 314  C           boundary condition. Line 314  C           boundary condition.
314    
315  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
316  C--   Add non local KPP transport term (ghat) to diffusive T flux.  C--   Add non local KPP transport term (ghat) to diffusive T flux.
317        IF (use_KPPmixing) CALL KPP_TRANSPORT_T(        IF (useKPP) CALL KPP_TRANSPORT_T(
318       I     iMin,iMax,jMin,jMax,bi,bj,k,km1,       I     iMin,iMax,jMin,jMax,bi,bj,k,km1,
319       I     maskC,KappaRT,       I     maskC,KappaRT,
320       U     df )       U     df )
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22