/[MITgcm]/MITgcm/pkg/layers/layers_output.F
ViewVC logotype

Diff of /MITgcm/pkg/layers/layers_output.F

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

revision 1.1 by rpa, Wed Sep 16 21:25:47 2009 UTC revision 1.2 by rpa, Sun Sep 20 20:54:48 2009 UTC
# Line 51  C     == Local variables == Line 51  C     == Local variables ==
51        ENDIF        ENDIF
52    
53        IF ( DIFFERENT_MULTIPLE(dumpFreq,myTime,deltaTClock)        IF ( DIFFERENT_MULTIPLE(dumpFreq,myTime,deltaTClock)
54       &   ) THEN       &  .AND. myIter .GT. 0 ) THEN
55    
56          IF ( layers_MDSIO ) THEN          IF ( layers_MDSIO ) THEN
57            WRITE(suff,'(I10.10)') myIter            WRITE(suff,'(I10.10)') myIter
# Line 87  C           But how? Line 87  C           But how?
87    
88  C     Dump files and restart average computation if needed  C     Dump files and restart average computation if needed
89        IF ( DIFFERENT_MULTIPLE(taveFreq,myTime,deltaTClock)        IF ( DIFFERENT_MULTIPLE(taveFreq,myTime,deltaTClock)
90       &     ) THEN       & .AND. myIter .GT. 0   ) THEN
91    
92  C      Normalize by integrated time  C      Normalize by integrated time
93         DO bj = myByLo(myThid), myByHi(myThid)         DO bj = myByLo(myThid), myByHi(myThid)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22