Skip to content

Commit 88e12a5

Browse files
Hallberg-NOAAmarshallward
authored andcommitted
Remove allocated test for CS%uhtr
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.
1 parent 37f4fb9 commit 88e12a5

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

src/core/MOM.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1436,7 +1436,7 @@ subroutine step_MOM_tracer_dyn(CS, G, GV, US, h, Time_local)
14361436
CS%tracer_diff_CSp, CS%tracer_Reg, CS%tv)
14371437
if (CS%debug) call MOM_tracer_chksum("Post-diffuse ", CS%tracer_Reg, G)
14381438
if (showCallTree) call callTree_waypoint("finished tracer advection/diffusion (step_MOM)")
1439-
if (associated(CS%OBC) .and. allocated(CS%uhtr) .and. allocated(CS%vhtr)) then
1439+
if (associated(CS%OBC)) then
14401440
call pass_vector(CS%uhtr, CS%vhtr, G%Domain)
14411441
call update_segment_tracer_reservoirs(G, GV, CS%uhtr, CS%vhtr, h, CS%OBC, &
14421442
CS%t_dyn_rel_adv, CS%tracer_Reg)

0 commit comments

Comments
 (0)