ocean_tidal_mixing_set_e_uniform Subroutine

private subroutine ocean_tidal_mixing_set_e_uniform(this, e_value)

Fill the bottom energy field e_in with a uniform value. Host loop (setup phase); call after init, before enter_data.

Type Bound

ocean_tidal_mixing_t

Arguments

Type IntentOptional Attributes Name
class(ocean_tidal_mixing_t), intent(inout) :: this
real(kind=wp), intent(in) :: e_value

Called by

proc~~ocean_tidal_mixing_set_e_uniform~~CalledByGraph proc~ocean_tidal_mixing_set_e_uniform ocean_tidal_mixing_t%ocean_tidal_mixing_set_e_uniform proc~configure_ocean_tidal_mixing configure_ocean_tidal_mixing proc~configure_ocean_tidal_mixing->proc~ocean_tidal_mixing_set_e_uniform proc~configure_ocean_lateral configure_ocean_lateral proc~configure_ocean_lateral->proc~configure_ocean_tidal_mixing proc~engine_setup engine_setup proc~engine_setup->proc~configure_ocean_lateral proc~complete_ocean_create complete_ocean_create proc~complete_ocean_create->proc~engine_setup proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_setup proc~driver_validate driver_validate proc~driver_validate->proc~engine_setup proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean proc~rdb_ocean_create_finalize rdb_ocean_create_finalize proc~rdb_ocean_create_finalize->proc~complete_ocean_create proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~complete_ocean_create

Variables

Type Visibility Attributes Name Initial
integer, private :: i
integer, private :: j

Source Code

   subroutine ocean_tidal_mixing_set_e_uniform(this, e_value)
      !! Fill the bottom energy field `e_in` with a uniform value.
      !! Host loop (setup phase); call after `init`, before `enter_data`.
      class(ocean_tidal_mixing_t), intent(inout) :: this
      real(wp), intent(in) :: e_value
      integer :: i, j

      do j = 1, size(this%e_in, 2)
         do i = 1, size(this%e_in, 1)
            this%e_in(i, j) = e_value
         end do
      end do
   end subroutine ocean_tidal_mixing_set_e_uniform