Parent Directory
|
Revision Log
|
Revision Graph
|
Patch
revision 1.20 by heimbach, Thu Jun 19 15:00:45 2003 UTC | revision 1.21 by heimbach, Mon Jun 23 22:32:02 2003 UTC | |
---|---|---|
# | Line 112 c-- Initialise the cost function. | Line 112 c-- Initialise the cost function. |
112 | _BARRIER | _BARRIER |
113 | #endif | #endif |
114 | ||
#ifdef INCLUDE_ECCO_PACKAGE | ||
IF (useECCO) CALL ECCO_INIT( myThid ) | ||
#endif | ||
115 | #ifdef ALLOW_OBCS | #ifdef ALLOW_OBCS |
116 | C-- Open boundaries data | C-- Open boundaries data |
117 | IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid ) | IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid ) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |