! C_SIECHC has constants for subroutine IMPL_CAL

      ! reciprocal effective areal heat capacity of sea-ice,
      !   ( 1 / (J per sq m per K)).
      REAL,PARAMETER:: AI  = 4.8E-6

! C_SIECHC end