ocean_model_mod::ocean_model_data_get Interface Reference

Detailed Description

Definition at line 93 of file ocean_model_MOM.F90.

Private functions
subroutine	ocean_model_data1d_get (OS, Ocean, name, value)
subroutine	ocean_model_data2d_get (OS, Ocean, name, array2D, isc, jsc)

Functions and subroutines

ocean_model_data1d_get()

subroutine ocean_model_mod::ocean_model_data_get::ocean_model_data1d_get ( type(ocean_state_type), pointer  OS, type(ocean_public_type), intent(in)  Ocean, character(len=*), intent(in)  name, real, intent(out)  value  )

private

Definition at line 1041 of file ocean_model_MOM.F90.

  type(ocean_state_type),     pointer    :: os
  type(ocean_public_type),    intent(in) :: ocean
  character(len=*)          , intent(in) :: name
  real                      , intent(out):: value

  if (.not.associated(os)) return
  if (.not.os%is_ocean_pe) return

  select case(name)
  case('c_p')
     value = os%C_p
  case default
     call mom_error(fatal,'get_ocean_grid_data1D: unknown argument name='//name)
  end select

ocean_model_data2d_get()

subroutine ocean_model_mod::ocean_model_data_get::ocean_model_data2d_get ( type(ocean_state_type), pointer  OS, type(ocean_public_type), intent(in)  Ocean, character(len=*), intent(in)  name, real, dimension(isc:,jsc:), intent(out)  array2D, integer, intent(in)  isc, integer, intent(in)  jsc  )

private

Definition at line 993 of file ocean_model_MOM.F90.

  use mom_constants, only : celsius_kelvin_offset
  type(ocean_state_type),     pointer    :: os
  type(ocean_public_type),    intent(in) :: ocean
  character(len=*)          , intent(in) :: name
  real, dimension(isc:,jsc:), intent(out):: array2d
  integer                   , intent(in) :: isc,jsc

  integer :: g_isc, g_iec, g_jsc, g_jec,g_isd, g_ied, g_jsd, g_jed, i, j

  if (.not.associated(os)) return
  if (.not.os%is_ocean_pe) return

! The problem is %areaT is on MOM domain but Ice_Ocean_Boundary%... is on mpp domain.
! We want to return the MOM data on the mpp (compute) domain
! Get MOM domain extents
  call mpp_get_compute_domain(os%grid%Domain%mpp_domain, g_isc, g_iec, g_jsc, g_jec)
  call mpp_get_data_domain   (os%grid%Domain%mpp_domain, g_isd, g_ied, g_jsd, g_jed)

  g_isc = g_isc-g_isd+1 ; g_iec = g_iec-g_isd+1 ; g_jsc = g_jsc-g_jsd+1 ; g_jec = g_jec-g_jsd+1


  select case(name)
  case('area')
     array2d(isc:,jsc:) = os%grid%areaT(g_isc:g_iec,g_jsc:g_jec)
  case('mask')
     array2d(isc:,jsc:) = os%grid%mask2dT(g_isc:g_iec,g_jsc:g_jec)
!OR same result
!     do j=g_jsc,g_jec; do i=g_isc,g_iec
!        array2D(isc+i-g_isc,jsc+j-g_jsc) = OS%grid%mask2dT(i,j)
!     enddo; enddo
  case('t_surf')
     array2d(isc:,jsc:) = ocean%t_surf(isc:,jsc:)-celsius_kelvin_offset
  case('t_pme')
     array2d(isc:,jsc:) = ocean%t_surf(isc:,jsc:)-celsius_kelvin_offset
  case('t_runoff')
     array2d(isc:,jsc:) = ocean%t_surf(isc:,jsc:)-celsius_kelvin_offset
  case('t_calving')
     array2d(isc:,jsc:) = ocean%t_surf(isc:,jsc:)-celsius_kelvin_offset
  case('btfHeat')
     array2d(isc:,jsc:) = 0
  case default
     call mom_error(fatal,'get_ocean_grid_data2D: unknown argument name='//name)
  end select

---

The documentation for this interface was generated from the following file:

• /home/adcroft/GitHub/workspace/Gaea-stats-MOM6-examples/MOM6-examples/src/MOM6/config_src/coupled_driver/ocean_model_MOM.F90