From 374af3903a6f2298693357a6ed617602fc559b4b Mon Sep 17 00:00:00 2001 From: j34ni Date: Wed, 24 Feb 2021 09:36:10 +0100 Subject: [PATCH] Fixed test related to freezing of rain to produce ice if mean rain size is smaller than Dcs --- src/NorESM/micro_mg2_0.F90 | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/src/NorESM/micro_mg2_0.F90 b/src/NorESM/micro_mg2_0.F90 index 97567f491e..823058308e 100644 --- a/src/NorESM/micro_mg2_0.F90 +++ b/src/NorESM/micro_mg2_0.F90 @@ -1733,11 +1733,13 @@ subroutine micro_mg_tend ( & if (do_cldice) then ! freezing of rain to produce ice if mean rain size is smaller than Dcs - if (lamr(i,k) > qsmall .and. 1._r8/lamr(i,k) < Dcs) then - mnuccri(i,k)=mnuccr(i,k) - nnuccri(i,k)=nnuccr(i,k) - mnuccr(i,k)=0._r8 - nnuccr(i,k)=0._r8 + if (lamr(i,k) > qsmall) then + if (1._r8/lamr(i,k) < Dcs) then + mnuccri(i,k)=mnuccr(i,k) + nnuccri(i,k)=nnuccr(i,k) + mnuccr(i,k)=0._r8 + nnuccr(i,k)=0._r8 + end if end if end if