fold_north_corner Interface

public interface fold_north_corner

Calls

interface~~fold_north_corner~~CallsGraph interface~fold_north_corner fold_north_corner proc~fold_north_corner_2d fold_north_corner_2d interface~fold_north_corner->proc~fold_north_corner_2d local local proc~fold_north_corner_2d->local

Called by

interface~~fold_north_corner~~CalledByGraph interface~fold_north_corner fold_north_corner proc~fill_f_corner_seam_ghosts fill_f_corner_seam_ghosts proc~fill_f_corner_seam_ghosts->interface~fold_north_corner proc~fold_corner_2d fold_corner_2d proc~fold_corner_2d->interface~fold_north_corner proc~metrics_fold_north_faces metrics_fold_north_faces proc~metrics_fold_north_faces->interface~fold_north_corner interface~ocean_fold_north_corner ocean_fold_north_corner interface~ocean_fold_north_corner->proc~fold_corner_2d proc~configure_ocean_forcing configure_ocean_forcing proc~configure_ocean_forcing->proc~fill_f_corner_seam_ghosts proc~metrics_fold_periodic_ghosts metrics_fold_periodic_ghosts proc~metrics_fold_periodic_ghosts->proc~metrics_fold_north_faces proc~engine_setup engine_setup proc~engine_setup->interface~ocean_fold_north_corner proc~engine_setup->proc~configure_ocean_forcing 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

Module Procedures

private pure subroutine fold_north_corner_2d(fld, nx_face, ny_face, nx_phys, ny_phys, nghost, negate)

2D Bu-corner fold: north-halo fill + on-line projection.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(inout) :: fld(nx_face,ny_face)

Corner field, shape (nx_total+1, ny_total+1).
integer, intent(in) :: nx_face
integer, intent(in) :: ny_face
integer, intent(in) :: nx_phys
integer, intent(in) :: ny_phys
integer, intent(in) :: nghost
logical, intent(in) :: negate

.true. → negate (true-vector component); .false. → copy (scalar / pseudoscalar vorticity).