--- MITgcm/pkg/seaice/groatb.F 2003/03/03 06:58:38 1.1.2.5 +++ MITgcm/pkg/seaice/groatb.F 2003/02/28 09:47:31 1.4.4.4 @@ -18,13 +18,9 @@ #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