/[MITgcm]/MITgcm/pkg/seaice/seaice_do_diags.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_do_diags.F

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

revision 1.2 by heimbach, Tue Nov 12 20:47:27 2002 UTC revision 1.3 by dimitri, Thu Dec 5 08:43:03 2002 UTC
# Line 218  C      Reset averages to zero Line 218  C      Reset averages to zero
218           CALL TIMEAVE_RESET(HEFFtave ,1,bi,bj,myThid)           CALL TIMEAVE_RESET(HEFFtave ,1,bi,bj,myThid)
219           CALL TIMEAVE_RESET(AREAtave ,1,bi,bj,myThid)           CALL TIMEAVE_RESET(AREAtave ,1,bi,bj,myThid)
220           DO k=1,Nr           DO k=1,Nr
221            SEAICE_TimeAve(k,bi,bj)=0.            SEAICE_TimeAve(k,bi,bj)=ZERO
222           ENDDO           ENDDO
223          ENDDO          ENDDO
224         ENDDO         ENDDO
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22