MOM_ice_shelf_state.F90

!> Implements the thermodynamic aspects of ocean / ice-shelf interactions,
!!  along with a crude placeholder for a later implementation of full
!!  ice shelf dynamics, all using the MOM framework and coding style.
module mom_ice_shelf_state

! This file is part of MOM6. See LICENSE.md for the license.

use mom_cpu_clock, only : cpu_clock_id, cpu_clock_begin, cpu_clock_end
use mom_cpu_clock, only : clock_component, clock_routine
use mom_dyn_horgrid, only : dyn_horgrid_type, create_dyn_horgrid, destroy_dyn_horgrid
use mom_error_handler, only : mom_error, mom_mesg, fatal, warning, is_root_pe
use mom_file_parser, only : read_param, get_param, log_param, log_version, param_file_type
use mom_grid, only : mom_grid_init, ocean_grid_type
use mom_get_input, only : directories, get_mom_input
use mom_coms, only : reproducing_sum
use mom_checksums, only : hchksum, qchksum, chksum, uchksum, vchksum, uvchksum

implicit none ; private

public ice_shelf_state_end, ice_shelf_state_init

!> Structure that describes the ice shelf state
type, public :: ice_shelf_state
  real, pointer, dimension(:,:) :: &
    mass_shelf => null(), &    !< The mass per unit area of the ice shelf or sheet [R Z ~> kg m-2].
    area_shelf_h => null(), &  !< The area per cell covered by the ice shelf [L2 ~> m2].
    h_shelf => null(), &       !< the thickness of the shelf [Z ~> m], redundant with mass but may
                               !! make the code more readable
    hmask => null(),&          !< Mask used to indicate ice-covered or partiall-covered cells
                               !! 1: fully covered, solve for velocity here (for now all
                               !!   ice-covered cells are treated the same, this may change)
                               !! 2: partially covered, do not solve for velocity
                               !! 0: no ice in cell.
                               !! 3: bdry condition on thickness set - not in computational domain
                               !! -2 : default (out of computational boundary, and) not = 3
                               !! NOTE: hmask will change over time and NEEDS TO BE MAINTAINED
                               !!   otherwise the wrong nodes will be included in velocity calcs.

    tflux_ocn => null(), &     !< The downward sensible ocean heat flux at the
                               !! ocean-ice interface [Q R Z T-1 ~> W m-2].
    salt_flux => null(), &     !< The downward salt flux at the ocean-ice
                               !! interface [kgSalt kgWater-1 R Z T-1 ~> kgSalt m-2 s-1].
    water_flux => null(), &    !< The net downward liquid water flux at the
                               !! ocean-ice interface [R Z T-1 ~> kg m-2 s-1].
    tflux_shelf => null(), &   !< The downward diffusive heat flux in the ice
                               !! shelf at the ice-ocean interface [Q R Z T-1 ~> W m-2].

    tfreeze => null()          !< The freezing point potential temperature
                               !! an the ice-ocean interface [degC].

end type ice_shelf_state

contains

!> Deallocates all memory associated with this module
subroutine ice_shelf_state_init(ISS, G)
  type(ice_shelf_state), pointer    :: ISS !< A pointer to the ice shelf state structure
  type(ocean_grid_type), intent(in) :: G   !< The grid structure used by the ice shelf.

  integer :: isd, ied, jsd, jed
  isd = g%isd ; jsd = g%jsd ; ied = g%ied ; jed = g%jed

  if (associated(iss)) then
    call mom_error(fatal, "MOM_ice_shelf_state.F90, ice_shelf_state_init: "// &
                          "called with an associated ice_shelf_state pointer.")
    return
  endif
  allocate(iss)

  allocate(iss%mass_shelf(isd:ied,jsd:jed) )   ; iss%mass_shelf(:,:) = 0.0
  allocate(iss%area_shelf_h(isd:ied,jsd:jed) ) ; iss%area_shelf_h(:,:) = 0.0
  allocate(iss%h_shelf(isd:ied,jsd:jed) )      ; iss%h_shelf(:,:) = 0.0
  allocate(iss%hmask(isd:ied,jsd:jed) )        ; iss%hmask(:,:) = -2.0

  allocate(iss%tflux_ocn(isd:ied,jsd:jed) )    ; iss%tflux_ocn(:,:) = 0.0
  allocate(iss%water_flux(isd:ied,jsd:jed) )   ; iss%water_flux(:,:) = 0.0
  allocate(iss%salt_flux(isd:ied,jsd:jed) )    ; iss%salt_flux(:,:) = 0.0
  allocate(iss%tflux_shelf(isd:ied,jsd:jed) )  ; iss%tflux_shelf(:,:) = 0.0
  allocate(iss%tfreeze(isd:ied,jsd:jed) )      ; iss%tfreeze(:,:) = 0.0

end subroutine ice_shelf_state_init


!> Deallocates all memory associated with this module
subroutine ice_shelf_state_end(ISS)
  type(ice_shelf_state), pointer :: ISS !< A pointer to the ice shelf state structure

  if (.not.associated(iss)) return

  deallocate(iss%mass_shelf, iss%area_shelf_h, iss%h_shelf, iss%hmask)

  deallocate(iss%tflux_ocn, iss%water_flux, iss%salt_flux, iss%tflux_shelf)
  deallocate(iss%tfreeze)

  deallocate(iss)

end subroutine ice_shelf_state_end


end module mom_ice_shelf_state