grid_init Subroutine

private subroutine grid_init(this, nx_phys, ny_phys, nghost, dx, dy)

Type Bound

hgrid_t

Arguments

Type IntentOptional Attributes Name
class(hgrid_t), intent(inout) :: this
integer, intent(in) :: nx_phys
integer, intent(in) :: ny_phys
integer, intent(in) :: nghost
real(kind=wp), intent(in) :: dx
real(kind=wp), intent(in) :: dy

Called by

proc~~grid_init~~CalledByGraph proc~grid_init hgrid_t%grid_init proc~bt_wide_init bt_wide_t%bt_wide_init proc~bt_wide_init->proc~grid_init proc~engine_setup engine_setup proc~engine_setup->proc~grid_init proc~configure_ocean_metrics configure_ocean_metrics proc~engine_setup->proc~configure_ocean_metrics proc~ocean_state_seed_from_cfg ocean_state_seed_from_cfg proc~engine_setup->proc~ocean_state_seed_from_cfg proc~load_bathymetry_into_array load_bathymetry_into_array proc~load_bathymetry_into_array->proc~grid_init proc~metrics_fill_from_supergrid metrics_fill_from_supergrid proc~metrics_fill_from_supergrid->proc~grid_init proc~metrics_fill_tripolar metrics_fill_tripolar proc~metrics_fill_tripolar->proc~grid_init proc~complete_ocean_create complete_ocean_create proc~complete_ocean_create->proc~engine_setup proc~engine_enter_data engine_enter_data proc~complete_ocean_create->proc~engine_enter_data proc~configure_ocean_metrics->proc~metrics_fill_from_supergrid proc~configure_ocean_metrics->proc~metrics_fill_tripolar proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_setup proc~driver_run_ocean->proc~engine_enter_data proc~driver_validate driver_validate proc~driver_validate->proc~engine_setup proc~ocean_dyn_enable_bt_wide ocean_dyn_enable_bt_wide proc~ocean_dyn_enable_bt_wide->proc~bt_wide_init proc~ocean_state_seed_from_cfg->proc~load_bathymetry_into_array proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean proc~engine_enter_data->proc~ocean_dyn_enable_bt_wide proc~rdb_ocean_create_finalize rdb_ocean_create_finalize proc~rdb_ocean_create_finalize->proc~complete_ocean_create proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~complete_ocean_create

Source Code

   subroutine grid_init(this, nx_phys, ny_phys, nghost, dx, dy)
      class(hgrid_t), intent(inout) :: this
      integer, intent(in) :: nx_phys, ny_phys, nghost
      real(wp), intent(in) :: dx, dy

      this%nx_phys = nx_phys
      this%ny_phys = ny_phys
      this%nghost = nghost
      this%dx = dx
      this%dy = dy
      this%nx_total = nx_phys + 2*nghost
      this%ny_total = ny_phys + 2*nghost
      ! Default the GLOBAL extents to the local ones — correct on a single
      ! rank / undecomposed grid.  The MPI driver overwrites both from
      ! `decomp%nx_global` / `decomp%ny_global` right after this call.
      this%nx_global = nx_phys
      this%ny_global = ny_phys
   end subroutine grid_init