Skip to content

Commit f8dda20

Browse files
committed
Removed default for mandatory time scale in OBCs
Removed two instances of `fail_if_missing=.true., default=0.` which are contradictory: a default value is meaningless if the parameter must be specified. I encountered this when adding the `defaults=` option to `get_param_real_array()`.
1 parent 7a9adbc commit f8dda20

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/core/MOM_open_boundary.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1476,7 +1476,7 @@ subroutine setup_u_point_obc(OBC, G, US, segment_str, l_seg, PF, reentrant_y)
14761476
"Timescales in days for nudging along a segment, "//&
14771477
"for inflow, then outflow. Setting both to zero should "//&
14781478
"behave like SIMPLE obcs for the baroclinic velocities.", &
1479-
fail_if_missing=.true., default=0., units="days", scale=86400.0*US%s_to_T)
1479+
fail_if_missing=.true., units="days", scale=86400.0*US%s_to_T)
14801480
OBC%segment(l_seg)%Velocity_nudging_timescale_in = tnudge(1)
14811481
OBC%segment(l_seg)%Velocity_nudging_timescale_out = tnudge(2)
14821482
deallocate(tnudge)
@@ -1617,7 +1617,7 @@ subroutine setup_v_point_obc(OBC, G, US, segment_str, l_seg, PF, reentrant_x)
16171617
"Timescales in days for nudging along a segment, "//&
16181618
"for inflow, then outflow. Setting both to zero should "//&
16191619
"behave like SIMPLE obcs for the baroclinic velocities.", &
1620-
fail_if_missing=.true., default=0., units="days", scale=86400.0*US%s_to_T)
1620+
fail_if_missing=.true., units="days", scale=86400.0*US%s_to_T)
16211621
OBC%segment(l_seg)%Velocity_nudging_timescale_in = tnudge(1)
16221622
OBC%segment(l_seg)%Velocity_nudging_timescale_out = tnudge(2)
16231623
deallocate(tnudge)

0 commit comments

Comments
 (0)