constant_destroy Subroutine

private subroutine constant_destroy(this)

Type Bound

ocean_boundary_data_constant_t

Arguments

Type IntentOptional Attributes Name
class(ocean_boundary_data_constant_t), intent(inout) :: this

Source Code

   subroutine constant_destroy(this)
      class(ocean_boundary_data_constant_t), intent(inout) :: this
      this%u_west = 0.0_wp
      this%u_east = 0.0_wp
      this%v_south = 0.0_wp
      this%v_north = 0.0_wp
      this%eta_west = 0.0_wp
      this%eta_east = 0.0_wp
      this%eta_south = 0.0_wp
      this%eta_north = 0.0_wp
   end subroutine constant_destroy