113 |
C-- Custom routine to set forcing fields. |
C-- Custom routine to set forcing fields. |
114 |
#ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE |
#ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE |
115 |
call exf_readparms ( mythid ) |
call exf_readparms ( mythid ) |
116 |
call exf_init( mythid ) |
#endif |
|
#endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */ |
|
117 |
|
|
118 |
#ifdef ALLOW_ECCO_OPTIMIZATION |
#ifdef ALLOW_ECCO_OPTIMIZATION |
119 |
c-- Initialise the optimization-related parts of the ECCO State |
c-- Initialise the optimization-related parts of the ECCO State |