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