/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_sum_levels.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_sum_levels.F

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

revision 1.1 by jmc, Mon Jan 11 19:42:32 2010 UTC revision 1.2 by jmc, Wed Jan 13 01:20:38 2010 UTC
# Line 177  C--   Cumulate the level-thickness & hFa Line 177  C--   Cumulate the level-thickness & hFa
177                 ELSE                 ELSE
178                   tmpFac = drF(kLev)                   tmpFac = drF(kLev)
179                 ENDIF                 ENDIF
180                 DO j = 1-OLy,sNy+OLy                 DO j = 2-OLy,sNy+OLy
181                  DO i = 1-OLx,sNx+OLx                  DO i = 2-OLx,sNx+OLx
182                   hFacLoc = MIN(                   hFacLoc = MIN(
183       &                          hFacW( i, j, kLev,bi,bj),       &                          hFacW( i, j, kLev,bi,bj),
184       &                          hFacW( i,j-1,kLev,bi,bj),       &                          hFacW( i,j-1,kLev,bi,bj),
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22