IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 ) THEN
& baseTime, startTime, endTime,
_RL baseTime
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0
IF ( ( startTime.EQ.baseTime .AND. nIter0.EQ.0 ) .OR.
endTime = baseTime + deltaTClock*float(nEndIter)
IF ( startTime.NE.baseTime .OR. nIter0.NE.0
& .AND. startTime.NE.baseTime .AND. usePickupBeforeC54 ) THEN
CALL WRITE_0D_RL( baseTime, INDEX_NONE,'baseTime =',
IF ( .NOT. ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0
nIter0 = NINT( (startTime-baseTime)/deltaTClock )
& startTime.EQ.baseTime ) CALL WRITE_GRID( myThid )
IF ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0
IF ( nIter0.NE.0 .AND. startTime.NE.0. .AND. baseTime.EQ.0. )
& baseTime = startTime - deltaTClock*float(nIter0)
& startTime = baseTime + deltaTClock*float(nIter0)
IF ( nIter0 .EQ. 0 .AND. startTime .NE. baseTime )
& nIter0 = NINT( (startTime-baseTime)/deltaTClock )
& nEndIter = NINT((endTime-baseTime)/deltaTclock)
& endTime = baseTime + deltaTClock*float(nEndIter)
IF ( startTime .NE. baseTime+deltaTClock*float(nIter0) ) THEN
IF ( startTime .EQ. baseTime .AND. cAdjFreq .NE. 0. ) THEN
IF ( myTime.EQ.startTime .AND. myTime.NE.baseTime
IF ( k.EQ.Nr .AND. myTime.NE.baseTime .AND. usingPCoords
baseTime = 0. _d 0
IF ( startTime .NE. baseTime .OR. nIter0 .NE. 0 ) THEN
IF ( startTime.EQ.baseTime .AND. myTime.EQ.0 ) THEN
& .OR. ( myIter.EQ.0 .AND. myTime.EQ.baseTime .AND.
IF (startTime.NE.baseTime .OR. nIter0.NE.0) THEN
& (startTime.NE.baseTime .OR. nIter0.NE.0)) ) THEN
timeRec(1) = (timeRec(1)-baseTime)/deltaTClock
timeRec(1) = baseTime + deltaTClock*FLOAT(i)