changed driver such that sstdat is initialized from sst_init, instead of sst

Author: davidclemenssewall

configuration/driver/icedrv_flux.F90

@@ -129,6 +129,9 @@ module icedrv_flux
          qdp     , & ! deep ocean heat flux (W/m^2), negative upward
          hmix        ! mixed layer depth (m)
 
+      real (kind=dbl_kind), public :: &
+         sst_init    ! initial sea surface temperature (C)
+
       ! water isotopes
       real (kind=dbl_kind), dimension (nx), public :: &
          HDO_ocn    , & ! seawater concentration of HDO (kg/kg)
@@ -493,7 +496,7 @@ subroutine init_coupler_flux
       vocn   (:) = c0
       frzmlt (:) = c0              ! freezing/melting potential (W/m^2)
       sss    (:) = sss_fixed       ! sea surface salinity (ppt)
-      sstdat (:) = sst(:)          ! sea surface temperature (C)
+      sstdat (:) = sst_init        ! sea surface temperature (C)
 
       ! water isotopes from ocean
       HDO_ocn   (:) = c0

configuration/driver/icedrv_init.F90

@@ -10,6 +10,7 @@ module icedrv_init
       use icedrv_constants, only: nu_diag, ice_stdout, nu_diag_out, nu_nml
       use icedrv_constants, only: c0, c1, c2, c3, p2, p5
       use icedrv_domain_size, only: nx
+      use icedrv_flux, only: sst_init
       use icepack_intfc, only: icepack_init_parameters
       use icepack_intfc, only: icepack_init_fsd
       use icepack_intfc, only: icepack_init_tracer_flags
@@ -47,8 +48,7 @@ module icedrv_init
          hi_init_slab,   & ! initial ice thickness for slab cell (nx=2)
          hsno_init_slab, & ! initial snow thickness for slab cell (nx=2)
          hbar_init_itd,  & ! hbar for ice thickness for itd cell (nx=3)
-         hsno_init_itd,  & ! initial snow thickness for itd cell (nx=3)
-         sst_init          ! initial sea surface temperature (C)
+         hsno_init_itd     ! initial snow thickness for itd cell (nx=3)     
 
 !=======================================================================