metrics_periodic_x_all Subroutine

private subroutine metrics_periodic_x_all(this, grid)

Periodic-x wrap of the east/west ghost columns of every metric, geography and rotation array (the first half of metrics_fold_periodic_ghosts).

Arguments

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

Calls

proc~~metrics_periodic_x_all~~CallsGraph proc~metrics_periodic_x_all metrics_periodic_x_all proc~metrics_periodic_x_2d metrics_periodic_x_2d proc~metrics_periodic_x_all->proc~metrics_periodic_x_2d proc~metrics_periodic_x_bu metrics_periodic_x_bu proc~metrics_periodic_x_all->proc~metrics_periodic_x_bu proc~metrics_periodic_x_cu metrics_periodic_x_cu proc~metrics_periodic_x_all->proc~metrics_periodic_x_cu proc~metrics_periodic_x_cv metrics_periodic_x_cv proc~metrics_periodic_x_all->proc~metrics_periodic_x_cv

Called by

proc~~metrics_periodic_x_all~~CalledByGraph proc~metrics_periodic_x_all metrics_periodic_x_all proc~metrics_fold_periodic_ghosts metrics_fold_periodic_ghosts proc~metrics_fold_periodic_ghosts->proc~metrics_periodic_x_all proc~engine_setup engine_setup proc~engine_setup->proc~metrics_fold_periodic_ghosts proc~configure_ocean_metrics configure_ocean_metrics proc~engine_setup->proc~configure_ocean_metrics proc~metrics_fill_from_supergrid metrics_fill_from_supergrid proc~metrics_fill_from_supergrid->proc~metrics_fold_periodic_ghosts proc~metrics_fill_tripolar_whole metrics_fill_tripolar_whole proc~metrics_fill_tripolar_whole->proc~metrics_fold_periodic_ghosts proc~complete_ocean_create complete_ocean_create proc~complete_ocean_create->proc~engine_setup proc~configure_ocean_metrics->proc~metrics_fill_from_supergrid proc~metrics_fill_tripolar metrics_fill_tripolar proc~configure_ocean_metrics->proc~metrics_fill_tripolar proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_setup proc~driver_validate driver_validate proc~driver_validate->proc~engine_setup proc~metrics_fill_tripolar->proc~metrics_fill_tripolar_whole proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean 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 metrics_periodic_x_all(this, grid)
      !! Periodic-x wrap of the east/west ghost columns of every metric,
      !! geography and rotation array (the first half of
      !! `metrics_fold_periodic_ghosts`).
      type(ocean_metrics_t), intent(inout) :: this
      type(hgrid_t), intent(in) :: grid
      call metrics_periodic_x_2d(this%dxT, grid)
      call metrics_periodic_x_2d(this%dyT, grid)
      call metrics_periodic_x_2d(this%areaT, grid)
      call metrics_periodic_x_2d(this%geolatT, grid)
      call metrics_periodic_x_2d(this%geolonT, grid)
      call metrics_periodic_x_cu(this%dxCu, grid)
      call metrics_periodic_x_cu(this%dyCu, grid)
      call metrics_periodic_x_cu(this%areaCu, grid)
      call metrics_periodic_x_cu(this%dy_cu, grid)
      call metrics_periodic_x_cv(this%dxCv, grid)
      call metrics_periodic_x_cv(this%dyCv, grid)
      call metrics_periodic_x_cv(this%areaCv, grid)
      call metrics_periodic_x_cv(this%dx_cv, grid)
      call metrics_periodic_x_bu(this%dxBu, grid)
      call metrics_periodic_x_bu(this%dyBu, grid)
      call metrics_periodic_x_bu(this%areaBu, grid)
      call metrics_periodic_x_bu(this%geolatBu, grid)
      call metrics_periodic_x_bu(this%geolonBu, grid)
      call metrics_periodic_x_2d(this%angle_dx, grid)
   end subroutine metrics_periodic_x_all