18 |
#include "DYNVARS.h" |
#include "DYNVARS.h" |
19 |
#include "FFIELDS.h" |
#include "FFIELDS.h" |
20 |
#include "SEAICE.h" |
#include "SEAICE.h" |
|
#include "SEAICE_PARAMS.h" |
|
21 |
#include "SEAICE_FFIELDS.h" |
#include "SEAICE_FFIELDS.h" |
22 |
|
COMMON /SEAICE_BOUND_RL/ |
23 |
|
& MAX_HEFF, MIN_ATEMP, MIN_LWDOWN, MAX_TICE, MIN_TICE, |
24 |
|
& SEAICE_EPS, SEAICE_EPS_SQ |
25 |
|
_RL SEAICE_EPS, SEAICE_EPS_SQ |
26 |
|
_RL MAX_HEFF, MIN_ATEMP, MIN_LWDOWN, MAX_TICE, MIN_TICE |
27 |
|
|
28 |
C === Routine arguments === |
C === Routine arguments === |
29 |
C myThid - Thread no. that called this routine. |
C myThid - Thread no. that called this routine. |
30 |
_RL A22 |
_RL A22 |