--- MITgcm/pkg/seaice/groatb.F 2003/03/03 06:58:38 1.1.2.5 +++ MITgcm/pkg/seaice/groatb.F 2003/02/28 09:34:06 1.4.4.3 @@ -19,12 +19,7 @@ #include "FFIELDS.h" #include "SEAICE.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