ocean_geothermal_init Subroutine

private subroutine ocean_geothermal_init(this, grid)

No-op shell mirroring the surface-flux init; sets is_init.

Type Bound

ocean_geothermal_t

Arguments

Type IntentOptional Attributes Name
class(ocean_geothermal_t), intent(inout) :: this
type(hgrid_t), intent(in) :: grid

Source Code

   subroutine ocean_geothermal_init(this, grid)
      !! No-op shell mirroring the surface-flux init; sets `is_init`.
      class(ocean_geothermal_t), intent(inout) :: this
      type(hgrid_t), intent(in) :: grid
      if (.false.) this%rho0 = real(grid%nx_total, wp)
      this%is_init = .true.
   end subroutine ocean_geothermal_init