snapshot_eta_PF Subroutine

public pure subroutine snapshot_eta_PF(bt_work)

Snapshot bt_eta into eta_PF — the free-surface height the slow PGF sees this stage. Later differenced by compute_e_anom.

Arguments

Type IntentOptional Attributes Name
type(barotropic_workstate_t), intent(inout) :: bt_work

Called by

proc~~snapshot_eta_pf~~CalledByGraph proc~snapshot_eta_pf snapshot_eta_PF proc~run_stage_split run_stage_split proc~run_stage_split->proc~snapshot_eta_pf proc~ocean_dyn_step_split ocean_dyn_step_split proc~ocean_dyn_step_split->proc~run_stage_split proc~engine_step engine_step proc~engine_step->proc~ocean_dyn_step_split proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_step proc~rdb_ocean_step rdb_ocean_step proc~rdb_ocean_step->proc~engine_step proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean

Variables

Type Visibility Attributes Name Initial
integer, private :: i
integer, private :: j
integer, private :: nx
integer, private :: ny

Source Code

   pure subroutine snapshot_eta_PF(bt_work)
      !! Snapshot `bt_eta` into `eta_PF` — the free-surface height the slow PGF
      !! sees this stage. Later differenced by `compute_e_anom`.
      type(barotropic_workstate_t), intent(inout) :: bt_work
      integer :: i, j, nx, ny
      nx = size(bt_work%bt_eta, 1)
      ny = size(bt_work%bt_eta, 2)
      do concurrent(j=1:ny, i=1:nx)
         bt_work%eta_PF(i, j) = bt_work%bt_eta(i, j)
      end do
   end subroutine snapshot_eta_PF