Skip to content

Commit

Permalink
Remove allocated test for CS%uhtr
Browse files Browse the repository at this point in the history
Removed allocated tests for the potentially statically allocated arrays CS%uhtr and CS%vhtr in a newly added line testing whether there are OBCs in use that would require a halo update on these arrays.  Even in dynamic memory mode, these arrays are always being allocated, so these tests served no purpose, but in static memory mode they led to compile time errors.  All answers are bitwise identical.
  • Loading branch information
Hallberg-NOAA authored and marshallward committed Mar 9, 2024
1 parent 37f4fb9 commit 88e12a5
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/core/MOM.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1436,7 +1436,7 @@ subroutine step_MOM_tracer_dyn(CS, G, GV, US, h, Time_local)
CS%tracer_diff_CSp, CS%tracer_Reg, CS%tv)
if (CS%debug) call MOM_tracer_chksum("Post-diffuse ", CS%tracer_Reg, G)
if (showCallTree) call callTree_waypoint("finished tracer advection/diffusion (step_MOM)")
if (associated(CS%OBC) .and. allocated(CS%uhtr) .and. allocated(CS%vhtr)) then
if (associated(CS%OBC)) then
call pass_vector(CS%uhtr, CS%vhtr, G%Domain)
call update_segment_tracer_reservoirs(G, GV, CS%uhtr, CS%vhtr, h, CS%OBC, &
CS%t_dyn_rel_adv, CS%tracer_Reg)
Expand Down

0 comments on commit 88e12a5

Please sign in to comment.