ocean_hdiff_tracer_init Subroutine

private subroutine ocean_hdiff_tracer_init(this, grid, nz_ml)

Type Bound

ocean_hdiff_tracer_t

Arguments

Type IntentOptional Attributes Name
class(ocean_hdiff_tracer_t), intent(inout) :: this
type(hgrid_t), intent(in) :: grid
integer, intent(in), optional :: nz_ml

Calls

proc~~ocean_hdiff_tracer_init~~CallsGraph proc~ocean_hdiff_tracer_init ocean_hdiff_tracer_t%ocean_hdiff_tracer_init proc~scratch_3d_buffer_init scratch_3d_buffer_t%scratch_3d_buffer_init proc~ocean_hdiff_tracer_init->proc~scratch_3d_buffer_init

Variables

Type Visibility Attributes Name Initial
integer, private :: nx
integer, private :: ny
integer, private :: nz

Source Code

   subroutine ocean_hdiff_tracer_init(this, grid, nz_ml)
      class(ocean_hdiff_tracer_t), intent(inout) :: this
      type(hgrid_t), intent(in) :: grid
      integer, intent(in), optional :: nz_ml
      integer :: nx, ny, nz

      nx = grid%nx_total
      ny = grid%ny_total
      nz = 1
      if (present(nz_ml)) nz = nz_ml

      call this%T_centre%init(nx, ny, nz, "ocean_hdiff_T_centre")
      call this%F_x_face%init(nx + 1, ny, nz, "ocean_hdiff_F_x_face")
      call this%F_y_face%init(nx, ny + 1, nz, "ocean_hdiff_F_y_face")
      this%is_init = .true.
   end subroutine ocean_hdiff_tracer_init