ocean_p_surf_init Subroutine

private subroutine ocean_p_surf_init(this, grid)

Minimal init — the real allocation happens in p_surf_configure once the namelist is available (host, before enter_data).

Type Bound

ocean_p_surf_t

Arguments

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

Source Code

   subroutine ocean_p_surf_init(this, grid)
      !! Minimal init — the real allocation happens in `p_surf_configure`
      !! once the namelist is available (host, before enter_data).
      class(ocean_p_surf_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_p_surf_init