Parent Directory | Revision Log | Revision Graph | Patch
revision 1.8 by cnh, Mon May 25 20:05:55 1998 UTC | revision 1.9 by adcroft, Mon Jun 1 20:36:13 1998 UTC | |
---|---|---|
# | Line 51 C-- Set model initial conditions | Line 51 C-- Set model initial conditions |
51 | myCurrentTime = startTime | myCurrentTime = startTime |
52 | myCurrentIter = nIter0 | myCurrentIter = nIter0 |
53 | ||
54 | C-- Initialise time-stepping (predictor variables are carried in G) | |
55 | CALL INIT_PREDICTOR( myThid ) | |
56 | ||
57 | C-- Begin time stepping loop | C-- Begin time stepping loop |
58 | DO I=1, nTimeSteps | DO I=1, nTimeSteps |
59 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |