/[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.21 by adcroft, Wed Jun 21 19:15:26 2000 UTC revision 1.22 by heimbach, Mon Sep 11 22:59:08 2000 UTC
# Line 157  C     o Diffusive component of zonal flu Line 157  C     o Diffusive component of zonal flu
157         ENDDO         ENDDO
158        ENDDO        ENDDO
159  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
160        IF (use_GMRedi) CALL GMREDI_XTRANSPORT(        IF (useGMRedi) CALL GMREDI_XTRANSPORT(
161       I     iMin,iMax,jMin,jMax,bi,bj,K,       I     iMin,iMax,jMin,jMax,bi,bj,K,
162       I     xA,salt,       I     xA,salt,
163       U     df,       U     df,
# Line 195  C     Diffusive component of meridional Line 195  C     Diffusive component of meridional
195         ENDDO         ENDDO
196        ENDDO        ENDDO
197  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
198        IF (use_GMRedi) CALL GMREDI_YTRANSPORT(        IF (useGMRedi) CALL GMREDI_YTRANSPORT(
199       I     iMin,iMax,jMin,jMax,bi,bj,K,       I     iMin,iMax,jMin,jMax,bi,bj,K,
200       I     yA,salt,       I     yA,salt,
201       U     df,       U     df,
# Line 249  C           boundary condition. Line 249  C           boundary condition.
249        ENDIF        ENDIF
250    
251  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
252        IF (use_GMRedi) CALL GMREDI_RTRANSPORT(        IF (useGMRedi) CALL GMREDI_RTRANSPORT(
253       I     iMin,iMax,jMin,jMax,bi,bj,K,       I     iMin,iMax,jMin,jMax,bi,bj,K,
254       I     maskUp,salt,       I     maskUp,salt,
255       U     df,       U     df,
# Line 258  C           boundary condition. Line 258  C           boundary condition.
258    
259  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
260  C--   Add non-local KPP transport term (ghat) to diffusive salt flux.  C--   Add non-local KPP transport term (ghat) to diffusive salt flux.
261        IF (use_KPPmixing) CALL KPP_TRANSPORT_S(        IF (useKPP) CALL KPP_TRANSPORT_S(
262       I     iMin,iMax,jMin,jMax,bi,bj,k,km1,       I     iMin,iMax,jMin,jMax,bi,bj,k,km1,
263       I     maskC,KappaRS,       I     maskC,KappaRS,
264       U     df )       U     df )
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22