46 |
|
|
47 |
#ifdef ALLOW_THSICE |
#ifdef ALLOW_THSICE |
48 |
C == Local variables == |
C == Local variables == |
49 |
LOGICAL DIFF_BASE_MULTIPLE |
LOGICAL DIFFERENT_MULTIPLE |
50 |
EXTERNAL DIFF_BASE_MULTIPLE |
EXTERNAL DIFFERENT_MULTIPLE |
51 |
INTEGER wrtIter |
INTEGER wrtIter |
52 |
|
|
53 |
#ifdef ALLOW_TIMEAVE |
#ifdef ALLOW_TIMEAVE |
119 |
ENDIF |
ENDIF |
120 |
#endif /* ALLOW_TIMEAVE */ |
#endif /* ALLOW_TIMEAVE */ |
121 |
|
|
122 |
IF ( DIFF_BASE_MULTIPLE(baseTime,thSIce_diagFreq, |
IF ( DIFFERENT_MULTIPLE(thSIce_diagFreq, |
123 |
& myTime+deltaTClock,deltaTClock) |
& myTime+deltaTClock,deltaTClock) |
124 |
& .AND. fluidIsWater ) THEN |
& .AND. fluidIsWater ) THEN |
125 |
wrtIter = myIter+1 |
wrtIter = myIter+1 |