Skip to content

Commit 3f899ce

Browse files
committed
Merge branch 'jinboxie/atm/chemistry_output_maint-3.0' into maint-3.0 (PR #6716)
The chemistry reaction rate of r_lch4 and r_lco_h are output as 0 due to a bug in the output of chemistry file, when no chemistry output flags are set. The bug is fixed by modifying the if clause in the code. Fixes #6711 [BFB]
2 parents fa1c317 + daae468 commit 3f899ce

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

components/eam/src/chemistry/mozart/rate_diags.F90

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -126,7 +126,7 @@ subroutine rate_diags_calc( rxt_rates, vmr, m, ncol, lchnk, pver, pdeldry, mbar
126126
rxt_rates(:ncol,:,rxt_tag_map(i)) = rxt_rates(:ncol,:,rxt_tag_map(i)) * m(:,:)
127127
call outfld( rate_names(i), rxt_rates(:ncol,:,rxt_tag_map(i)), ncol, lchnk )
128128

129-
if ( .not. history_UCIgaschmbudget_2D .and. .not. history_UCIgaschmbudget_2D_levels) return
129+
if (history_UCIgaschmbudget_2D .or. history_UCIgaschmbudget_2D_levels) then
130130

131131
if (rate_names(i) .eq. 'r_lch4') then
132132
!kg/m2/sec
@@ -166,6 +166,8 @@ subroutine rate_diags_calc( rxt_rates, vmr, m, ncol, lchnk, pver, pdeldry, mbar
166166
endif
167167

168168
endif
169+
170+
endif
169171
enddo
170172

171173
end subroutine rate_diags_calc

0 commit comments

Comments
 (0)