Skip to content

Commit d00c90b

Browse files
committed
MOM_open_boundary pointer removal
This patch replaces many pointers in the OBC with local or allocatable variables. Notes: * `OBC` redeclared as `target` in some places for `segment` pointers * `field_names` removed from `OBC_segment_type` * `Tr_Reg` removed from `set_tracer_data` * `OBC` removed from `deallocate_OBC_segment_data`
1 parent a250208 commit d00c90b

6 files changed

Lines changed: 179 additions & 201 deletions

File tree

src/core/MOM_barotropic.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3039,7 +3039,7 @@ end subroutine apply_velocity_OBCs
30393039
!! boundary conditions, as developed by Mehmet Ilicak.
30403040
subroutine set_up_BT_OBC(OBC, eta, BT_OBC, BT_Domain, G, GV, US, MS, halo, use_BT_cont, &
30413041
integral_BT_cont, dt_baroclinic, Datu, Datv, BTCL_u, BTCL_v)
3042-
type(ocean_OBC_type), intent(inout) :: OBC !< An associated pointer to an OBC type.
3042+
type(ocean_OBC_type), target, intent(inout) :: OBC !< An associated pointer to an OBC type.
30433043
type(memory_size_type), intent(in) :: MS !< A type that describes the memory sizes of the
30443044
!! argument arrays.
30453045
real, dimension(SZIW_(MS),SZJW_(MS)), intent(in) :: eta !< The barotropic free surface height anomaly or

0 commit comments

Comments
 (0)