Parent Directory | Revision Log | Revision Graph | Patch
revision 1.14 by mlosch, Wed Sep 18 16:38:02 2002 UTC | revision 1.15 by adcroft, Thu Jun 5 16:03:05 2003 UTC | |
---|---|---|
# | Line 33 C myThid - Number of this instance | Line 33 C myThid - Number of this instance |
33 | CEOP | CEOP |
34 | ||
35 | C-- Set model variables to initial/restart conditions | C-- Set model variables to initial/restart conditions |
36 | IF ( startTime .EQ. 0. .AND. nIter0 .EQ. 0 ) THEN | IF ( startTime .EQ. 0. .AND. nIter0 .EQ. 0 |
37 | & .AND. pickupSuff .EQ. ' ' ) THEN | |
38 | CALL INI_VEL( myThid ) | CALL INI_VEL( myThid ) |
39 | CALL INI_THETA( myThid ) | CALL INI_THETA( myThid ) |
40 | CALL INI_SALT( myThid ) | CALL INI_SALT( myThid ) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |