/[MITgcm]/MITgcm/pkg/monitor/mon_surfcor.F
ViewVC logotype

Diff of /MITgcm/pkg/monitor/mon_surfcor.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by adcroft, Tue May 13 18:18:05 2003 UTC revision 1.4 by jmc, Wed Dec 24 00:29:17 2003 UTC
# Line 37  C     === Routine arguments === Line 37  C     === Routine arguments ===
37  C     === Local variables ====  C     === Local variables ====
38        INTEGER i,j,k,ks,bi,bj        INTEGER i,j,k,ks,bi,bj
39        _RL theArea, wT_Mean, wS_Mean, tmp_wS_M, wT_Heat        _RL theArea, wT_Mean, wS_Mean, tmp_wS_M, wT_Heat
40        _RL theVol, vT_Mean, vS_Mean, vT_Heat, theta2PE        _RL vT_Mean, vS_Mean, vT_Heat, theta2PE
41        _RL tmpVol, tmpVal, conv_th2Heat, ddPI        _RL tmpVol, tmpVal, conv_th2Heat, ddPI
42    
43  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
# Line 119  C-- Compute Volume expansion term & do t Line 119  C-- Compute Volume expansion term & do t
119             DO j=1,sNy             DO j=1,sNy
120              DO i=1,sNx              DO i=1,sNx
121                tmpVol  = rA(i,j,bi,bj)*h0FacC(i,j,k,bi,bj)*drF(k)                tmpVol  = rA(i,j,bi,bj)*h0FacC(i,j,k,bi,bj)*drF(k)
               theVol  = theVol + tmpVol  
122                tmpVal  = rStarDhCDt(i,j,bi,bj)*theta(i,j,k,bi,bj)                tmpVal  = rStarDhCDt(i,j,bi,bj)*theta(i,j,k,bi,bj)
123                vT_Mean = vT_Mean + tmpVol*tmpVal                vT_Mean = vT_Mean + tmpVol*tmpVal
124                vS_Mean = vS_Mean                vS_Mean = vS_Mean
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22