fixed bug for sum_SS output

mvertens · Mar 4, 2024 · 18b2c7e · 18b2c7e
1 parent 87c625c
commit 18b2c7e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/chemistry/mozart/mo_chm_diags.F90 b/src/chemistry/mozart/mo_chm_diags.F90
@@ -803,7 +803,7 @@ subroutine chm_diags( lchnk, ncol, vmr, mmr, rxt_rates, invariants, depvel, depf
           sum_om(:ncol,:) = sum_om(:ncol,:) + mmr(:ncol,:,m)
        else if (spc_name(1:4) == 'dst_') then
           sum_dst(:ncol,:) = sum_dst(:ncol,:) + mmr(:ncol,:,m)
-       else if (spc_name(1:3) == 'ncl_') then
+       else if (spc_name(1:4) == 'ncl_') then
           sum_ss(:ncol,:) = sum_ss(:ncol,:) + mmr(:ncol,:,m)
        else if (spc_name(1:4) == 'soa_') then
           sum_soa(:ncol,:) = sum_soa(:ncol,:) + mmr(:ncol,:,m)