Skip to content

Commit 17d09d7

Browse files
author
Steve Goldhaber
committed
Fix O2 chem_surfvals setting
1 parent f6872bc commit 17d09d7

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

src/physics/cam/ghg_data.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -146,7 +146,7 @@ subroutine trcmix(name, lchnk, ncol, clat, pmid, q)
146146

147147
if (name == 'O2') then
148148

149-
q(:ncol,pver) = chem_surfvals_get('O2MMR', lchnk, ncol)
149+
q(:ncol,:) = chem_surfvals_get('O2MMR')
150150

151151
else if (name == 'CO2') then
152152

0 commit comments

Comments
 (0)