94 |
C | |
C | |
95 |
C |-- ECCO_READPARMS |
C |-- ECCO_READPARMS |
96 |
C | |
C | |
97 |
|
C |-- PROFILES_READPARMS |
98 |
|
C | |
99 |
|
C |-- FLT_READPARMS |
100 |
|
C | |
101 |
C |-- CPL_READPARMS |
C |-- CPL_READPARMS |
102 |
C | |
C | |
103 |
C |-- FIZHI_READPARMS |
C |-- FIZHI_READPARMS |
287 |
CALL PROFILES_READPARMS ( myThid ) |
CALL PROFILES_READPARMS ( myThid ) |
288 |
#endif |
#endif |
289 |
|
|
290 |
|
#ifdef ALLOW_FLT |
291 |
|
IF ( useFLT ) CALL FLT_READPARMS( myThid ) |
292 |
|
#endif /* ALLOW_FLT */ |
293 |
|
|
294 |
#ifdef COMPONENT_MODULE |
#ifdef COMPONENT_MODULE |
295 |
C-- set Coupling parameters |
C-- set Coupling parameters |
296 |
IF ( useCoupler ) CALL CPL_READPARMS( myThid ) |
IF ( useCoupler ) CALL CPL_READPARMS( myThid ) |