fixed imp.

Author: SmithJos13

mediator/esmFldsExchange_coastal_mod.F90

@@ -288,7 +288,7 @@ subroutine esmFldsExchange_coastal_advt(gcomp, phase, rc)
     ! to ice: ocean fields 
     ! ---------------------------------------------------------------------
     if (coastal_attr%ocn_present .and. coastal_attr%ice_present) then
-      allocate(S_flds(7))
+      allocate(S_flds(8))
       S_flds = (/'So_u   ',  & ! ocn_current_zonal
                  'So_v   ',  & ! ocn_current_merid
                  'So_t   ',  & ! SST