--- MITgcm/pkg/seaice/groatb.F 2003/02/28 09:47:31 1.4.4.4 +++ MITgcm/pkg/seaice/groatb.F 2003/02/28 09:58:27 1.4.4.5 @@ -18,9 +18,13 @@ #include "DYNVARS.h" #include "FFIELDS.h" #include "SEAICE.h" -#include "SEAICE_PARAMS.h" #include "SEAICE_FFIELDS.h" - + 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 + C === Routine arguments === C myThid - Thread no. that called this routine. _RL A22