Skip to content

Commit 877dd04

Browse files
committed
Add a change to be removed when answer changes are allowed that set mapalgo to none, when meshfile for c14 is none, and add the missing Advance call to C13Streams that caused problems in PR #3634 where cmip7 Ciso is used
1 parent d2e6478 commit 877dd04

File tree

1 file changed

+3
-0
lines changed

1 file changed

+3
-0
lines changed

src/biogeochem/CNCIsoAtmTimeSeriesReadMod.F90

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -570,6 +570,8 @@ subroutine C14StreamsInit( bounds )
570570
! Any error checking
571571
call shr_assert( trim(stream_mapalgo_atm_c14) == "nn", "stream_mapalgo_atm_c14 MUST be nn because the file " // &
572572
"is lattitude bands copied to a half degree grid: "//errMsg( file=sourcefile, line=__LINE__) )
573+
! TODO: Remove the following line once we can change answers
574+
if ( trim(stream_meshfile_atm_c14) == "none") ) stream_mapalgo_atm_c14 = "none"
573575
! Streams method
574576
call atm_c14_stream%Init( bounds, &
575577
fldfilename=stream_fldfilename_atm_c14, &
@@ -696,6 +698,7 @@ subroutine C13Streams( bounds )
696698
! !LOCAL VARIABLES:
697699
integer :: g ! Indices
698700

701+
call atm_c13_stream%Advance( bounds)
699702
call atm_c13_stream%Interp( bounds)
700703

701704
do g = bounds%begg, bounds%endg

0 commit comments

Comments
 (0)