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 |
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 |
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 |
|
|