diff --git a/src/common/micro/mode_lima_tendencies.F90 b/src/common/micro/mode_lima_tendencies.F90 index eb06801c43352dac5bb1388e4b719bc6c9d31e41..c28fb2b22fd08f818b619fef15905e2bae699914 100644 --- a/src/common/micro/mode_lima_tendencies.F90 +++ b/src/common/micro/mode_lima_tendencies.F90 @@ -576,6 +576,8 @@ IF ((.NOT. LKHKO) .AND. NMOM_R.GE.2) THEN P_CR_SCBU ) ! P_CR_SCBU(:) = P_CR_SCBU(:) * ZPF1D(:) + ! process limited until checks on concentrations are added to the time-splitting loop + P_CR_SCBU(:) = MAX(P_CR_SCBU(:),-0.5*PCRT(:)/PTSTEP) ! PA_CR(:) = PA_CR(:) + P_CR_SCBU(:) END IF