4.11 Fortran: Module Interface ice_flux - flux variable declarations: from, to coupler and internal (Source File: ice_flux.F)

Flux variable declarations; these include fields sent from the coupler ("in"), sent to the coupler ("out"), and used internally ("internal")

REVISION HISTORY:

   author Elizabeth C. Hunke, LANL

INTERFACE:

       module ice_flux

USES:

       use ice_kinds_mod
       use ice_domain
       use ice_constants

4.11.1 init_flux_atm - initialize all atmospheric fluxes sent to coupler

INTERFACE:

       subroutine init_flux_atm(i,j)

DESCRIPTION:

Initialize all fluxes sent to coupler for use by the atm model and a few state quantities

REVISION HISTORY:

   author: Elizabeth C. Hunke, LANL

USES:

INPUT/OUTPUT PARAMETERS:

       integer i,j

4.11.2 init_flux_ocn - initialize ocean fluxes sent to coupler

INTERFACE:

       subroutine init_flux_ocn(i,j)

DESCRIPTION:

Initialize fluxes sent to coupler for use by the ocean model

REVISION HISTORY:

   author: Elizabeth C. Hunke, LANL

USES:

INPUT/OUTPUT PARAMETERS:

       integer i,j

4.11.3 merge_fluxes - aggregate flux information over ITD

INTERFACE:

       subroutine merge_fluxes(i,j,nc,frshn,evapn,
      &      fshn,flhn,flwupn,swbot,Focn,Trefn,strxn,stryn)

DESCRIPTION:

Aggregates flux information from all ice thickness categories

REVISION HISTORY:

   author: Elizabeth C. Hunke, LANL

USES:

       use ice_state

INPUT/OUTPUT PARAMETERS:

       integer (kind=int_kind), intent(in) :: i,j,nc
       real (kind=dbl_kind), intent(in) ::
      &    frshn       ! fresh water flux to ocean       (kg/m2/s)
      &,   evapn       ! evaporation                     (kg/m2/s)
      &,   fshn        ! sensible heat flx               (W/m**2)
      &,   flhn        ! latent   heat flx               (W/m**2)
      &,   flwupn      ! upwd lw emitted heat flx        (W/m**2)
      &,   swbot       ! sw radiation through ice bot    (W/m**2)
      &,   Focn        ! actual ocn/ice heat flx         (W/m**2)
      &,   Trefn       ! air tmp rfrnc level             (K)
      &,   strxn       ! air/ice zonal  strss,           (N/m**2)
      &,   stryn       ! air/ice merdnl strss,           (N/m**2)