|
C $Header$ |
|
|
C $Name$ |
|
1 |
|
|
2 |
#include "CPP_OPTIONS.h" |
#include "CPP_OPTIONS.h" |
3 |
|
|
78 |
c-- Map the control variables onto the model state. |
c-- Map the control variables onto the model state. |
79 |
call ctrl_map_ini( mythid ) |
call ctrl_map_ini( mythid ) |
80 |
_BARRIER |
_BARRIER |
|
c-- Initialise the cost function. |
|
|
call cost_init( mythid ) |
|
|
_BARRIER |
|
81 |
#endif |
#endif |
82 |
|
|
83 |
#ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE |
#ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE |
90 |
IF (useECCO) THEN |
IF (useECCO) THEN |
91 |
CALL ECCO_INIT( myThid ) |
CALL ECCO_INIT( myThid ) |
92 |
ENDIF |
ENDIF |
93 |
|
#else |
94 |
|
# ifdef ALLOW_COST |
95 |
|
c-- Initialise the cost function. |
96 |
|
call cost_init( mythid ) |
97 |
|
_BARRIER |
98 |
|
# endif |
99 |
#endif |
#endif |
100 |
|
|
101 |
RETURN |
RETURN |