Skip to content
Snippets Groups Projects
Commit 05ca852c authored by VIE Benoît's avatar VIE Benoît
Browse files

bugfix droplets accretion by rain if nmomc=1 and nmomr=1

parent 3817d727
No related branches found
No related tags found
No related merge requests found
...@@ -133,7 +133,7 @@ ELSE IF (NMOM_C.EQ.1 .AND. NMOM_R.EQ.1) THEN ...@@ -133,7 +133,7 @@ ELSE IF (NMOM_C.EQ.1 .AND. NMOM_R.EQ.1) THEN
GACCR(:) = PRRT(:)>XRTMIN(3) .AND. & GACCR(:) = PRRT(:)>XRTMIN(3) .AND. &
PRCT(:)>XRTMIN(2) PRCT(:)>XRTMIN(2)
WHERE ( GACCR(:) ) WHERE ( GACCR(:) )
P_RC_ACCR(:) = XFCACCR * PRCT(:) & P_RC_ACCR(:) = - XFCACCR * PRCT(:) &
* PLBDR(:)**XEXCACCR & * PLBDR(:)**XEXCACCR &
* PRHODREF(:)**(-XCEXVT) * PRHODREF(:)**(-XCEXVT)
END WHERE END WHERE
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment