ocean_obc_init Subroutine

private subroutine ocean_obc_init(this, grid)

Type Bound

ocean_obc_t

Arguments

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

Source Code

   subroutine ocean_obc_init(this, grid)
      class(ocean_obc_t), intent(inout) :: this
      type(hgrid_t), intent(in) :: grid
      if (.false.) this%nrelax = grid%nx_total
      this%is_init = .true.
   end subroutine ocean_obc_init