/[MITgcm]/MITgcm/model/src/the_correction_step.F
ViewVC logotype

Diff of /MITgcm/model/src/the_correction_step.F

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

revision 1.4 by jmc, Wed Feb 14 22:51:27 2001 UTC revision 1.5 by jmc, Tue Mar 6 17:15:28 2001 UTC
# Line 74  C       range is all but first row and c Line 74  C       range is all but first row and c
74  C-      Calculate gradient of surface pressure  C-      Calculate gradient of surface pressure
75          CALL CALC_GRAD_ETA_SURF(          CALL CALC_GRAD_ETA_SURF(
76       I       bi,bj,iMin,iMax,jMin,jMax,       I       bi,bj,iMin,iMax,jMin,jMax,
77         I       etaN,
78       O       etaSurfX,etaSurfY,       O       etaSurfX,etaSurfY,
79       I       myThid )       I       myThid )
80    
# Line 118  C--     Convectively adjust new fields t Line 119  C--     Convectively adjust new fields t
119       I       bi, bj, iMin, iMax, jMin, jMax,       I       bi, bj, iMin, iMax, jMin, jMax,
120       I       myTime, myIter, myThid )       I       myTime, myIter, myThid )
121    
122  #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE  #ifdef ALLOW_TIMEAVE
123          IF (taveFreq.GT.0.) THEN          IF (taveFreq.GT.0.) THEN
124            CALL DO_TIME_AVERAGES(myTime, myIter, bi, bj, myThid)            CALL TIMEAVE_STATVARS(myTime, myIter, bi, bj, myThid)
125          ENDIF          ENDIF
126  #endif /* INCLUDE_DIAGNOSTICS_INTERFACE_CODE */  #endif /* ALLOW_TIMEAVE */
127    
128         ENDDO         ENDDO
129        ENDDO        ENDDO
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22