SUBROUTINE THE_FIRST_LEVEL_LOOP(iLoop,
integer iLoop
print *, 'JU: THE_FIRST_LEVEL_LOOP: iloop=',iLoop,' of ',nTimeSteps
CALL FORWARD_STEP( iLoop,
CALL THE_FIRST_LEVEL_LOOP( iLoop,
myIter = nIter0 + iLoop
myTime = startTime + deltaTClock * float(iLoop)