/[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.3 by adcroft, Wed May 20 21:29:31 1998 UTC revision 1.4 by cnh, Mon May 25 20:05:55 1998 UTC
# Line 85  C     == Local variables == Line 85  C     == Local variables ==
85  C     I, J, K - Loop counters  C     I, J, K - Loop counters
86        INTEGER i,j        INTEGER i,j
87        _RL afFacT, dfFacT        _RL afFacT, dfFacT
       _RL dutdxFac  
88        _RL dTdx(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL dTdx(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
89        _RL dTdy(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL dTdy(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
90    
91        afFacT = 1. _d 0        afFacT = 1. _d 0
92        dfFacT = 1. _d 0        dfFacT = 1. _d 0
       dutdxFac = afFacT  
93    
 C---  
94  C---  Calculate advective and diffusive fluxes between cells.  C---  Calculate advective and diffusive fluxes between cells.
 C---  
95    
96  C--   Zonal flux (fZon is at west face of "theta" cell)  C--   Zonal flux (fZon is at west face of "theta" cell)
97  C     Advective component of zonal flux  C     Advective component of zonal flux
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22