109 |
myCurrentTime = startTime |
myCurrentTime = startTime |
110 |
myCurrentIter = nIter0 |
myCurrentIter = nIter0 |
111 |
|
|
112 |
|
C-- Dump for start state |
113 |
|
CALL WRITE_STATE( .TRUE., myCurrentTime, myCurrentIter, myThid ) |
114 |
|
|
115 |
C-- Begin time stepping loop |
C-- Begin time stepping loop |
116 |
DO I=1, nTimeSteps |
DO I=1, nTimeSteps |
117 |
|
|
174 |
ENDIF |
ENDIF |
175 |
|
|
176 |
C-- Dump for end state |
C-- Dump for end state |
177 |
CALL WRITE_STATE( myCurrentTime, myCurrentIter, myThid ) |
CALL WRITE_STATE( .FALSE., myCurrentTime, myCurrentIter, myThid ) |
178 |
|
|
179 |
|
|
180 |
RETURN |
RETURN |