Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.12 by cnh, Wed Sep 26 18:09:15 2001 UTC | revision 1.13 by heimbach, Sat Jul 13 04:59:42 2002 UTC | |
|---|---|---|
| # | Line 38 C-- Set model variables to initial/res | Line 38 C-- Set model variables to initial/res |
| 38 | CALL INI_THETA( myThid ) | CALL INI_THETA( myThid ) |
| 39 | CALL INI_SALT( myThid ) | CALL INI_SALT( myThid ) |
| 40 | CALL INI_PSURF( myThid ) | CALL INI_PSURF( myThid ) |
| 41 | #ifdef INCLUDE_EP_FORCING_CODE | |
| 42 | CALL INI_EP( myThid ) | |
| 43 | #endif | |
| 44 | IF (nonHydrostatic) CALL INI_PNH( myThid ) | IF (nonHydrostatic) CALL INI_PNH( myThid ) |
| 45 | ELSE | ELSE |
| 46 | IF ( nIter0 .EQ. 0 ) THEN | IF ( nIter0 .EQ. 0 ) THEN |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |