Skip to content

Commit 95e0bac

Browse files
authored
Merge pull request #353 from aekiss/patch-1
Fix rDateIn >= rDategvd error messages in dshr_stream_mod.F90 Fix typos in error messages to match rDateIn >= rDategvd in if test clause ### Description of changes Fix typos in error messages to match rDateIn >= rDategvd in if test clause ### Specific notes Contributors other than yourself, if any: CDEPS Issues Fixed (include github issue #): Are there dependencies on other component PRs (if so list): Are changes expected to change answers (bfb, different to roundoff, more substantial): no Any User Interface Changes (namelist or namelist defaults changes): only error log messages Testing performed (e.g. aux_cdeps, CESM prealpha, etc): none Hashes used for testing:
2 parents 692150f + 0e5c955 commit 95e0bac

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

streams/dshr_stream_mod.F90

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1035,8 +1035,8 @@ subroutine shr_stream_findBounds(strm, mDateIn, secIn, isroot_task, &
10351035

10361036
else if (strm%found_gvd .and. rDateIn >= rDategvd) then
10371037
if (limit) then
1038-
write(strm%logunit,*) trim(subName)," ERROR: limit on and rDateIn gt rDategvd",rDateIn,rDategvd
1039-
call shr_sys_abort(trim(subName)//" ERROR: rDateIn gt rDategvd limit true")
1038+
write(strm%logunit,*) trim(subName)," ERROR: limit on and rDateIn >= rDategvd",rDateIn,rDategvd
1039+
call shr_sys_abort(trim(subName)//" ERROR: rDateIn >= rDategvd limit true")
10401040
endif
10411041

10421042
if (.not.cycle) then
@@ -1135,8 +1135,8 @@ subroutine shr_stream_findBounds(strm, mDateIn, secIn, isroot_task, &
11351135

11361136
if (strm%found_gvd .and. rDateIn >= rDategvd) then
11371137
if (limit) then
1138-
write(strm%logunit,*) trim(subName)," ERROR: limit on and rDateIn gt rDategvd",rDateIn,rDategvd
1139-
call shr_sys_abort(trim(subName)//" ERROR: rDateIn gt rDategvd limit true")
1138+
write(strm%logunit,*) trim(subName)," ERROR: limit on and rDateIn >= rDategvd",rDateIn,rDategvd
1139+
call shr_sys_abort(trim(subName)//" ERROR: rDateIn >= rDategvd limit true")
11401140
endif
11411141

11421142
if (.not.cycle) then

0 commit comments

Comments
 (0)