|
C $Header$ |
|
|
C $Name$ |
|
1 |
|
|
2 |
#include "CPP_OPTIONS.h" |
#include "CPP_OPTIONS.h" |
3 |
|
|
70 |
IF ( useAIM ) CALL AIM_INIT( mythid ) |
IF ( useAIM ) CALL AIM_INIT( mythid ) |
71 |
#endif |
#endif |
72 |
|
|
73 |
|
#ifdef ALLOW_PTRACERS |
74 |
|
IF ( usePTRACERS ) CALL PTRACERS_INIT( mythid ) |
75 |
|
#endif |
76 |
|
|
77 |
#if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN)) |
#if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN)) |
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 |