/[MITgcm]/MITgcm/pkg/thsice/thsice_output.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_output.F

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

revision 1.2 by jmc, Wed Apr 6 18:47:11 2005 UTC revision 1.3 by jmc, Sun May 15 03:04:57 2005 UTC
# Line 42  CEOP Line 42  CEOP
42  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
43    
44  C     == Local variables ==  C     == Local variables ==
45        LOGICAL  DIFF_BASE_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
46        EXTERNAL DIFF_BASE_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
47        INTEGER bi, bj, kl        INTEGER bi, bj, kl
48        CHARACTER*(MAX_LEN_MBUF) suff, fn        CHARACTER*(MAX_LEN_MBUF) suff, fn
49        LOGICAL gf        LOGICAL gf
# Line 75  c set arrays to zero if first timestep Line 75  c set arrays to zero if first timestep
75    
76  C     Dump files and restart average computation if needed  C     Dump files and restart average computation if needed
77        ELSEIF (        ELSEIF (
78       &  DIFF_BASE_MULTIPLE(baseTime,thSIce_taveFreq,myTime,deltaTClock)       &  DIFFERENT_MULTIPLE(thSIce_taveFreq,myTime,deltaTClock)
79       &     ) THEN       &     ) THEN
80    
81  C--    Normalize by integrated time  C--    Normalize by integrated time
# Line 253  C--    Reset averages to zero Line 253  C--    Reset averages to zero
253    
254  C     Dump a snap-shot of main state variables:  C     Dump a snap-shot of main state variables:
255        IF (        IF (
256       &  DIFF_BASE_MULTIPLE(baseTime,thSIce_diagFreq,myTime,deltaTClock)       &  DIFFERENT_MULTIPLE(thSIce_diagFreq,myTime,deltaTClock)
257       &     .OR. myTime.EQ.startTime       &     .OR. myTime.EQ.startTime
258       &     .OR. myTime.EQ.endTime ) THEN       &     .OR. myTime.EQ.endTime ) THEN
259    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22