diff --git a/src/MNH/ini_lima.f90 b/src/MNH/ini_lima.f90 index d90f1e160430b979866f105574478d30d2d5f7dd..74235232d4f0a825c36095bd381f3aa961db5935 100644 --- a/src/MNH/ini_lima.f90 +++ b/src/MNH/ini_lima.f90 @@ -147,7 +147,7 @@ ALLOCATE( XCTMIN(7) ) XCTMIN(1) = 1.0 ! Not used XCTMIN(2) = 1.0E-3 ! Nc XCTMIN(3) = 1.0E-3 ! Nr -XCTMIN(4) = 1.0E-3 ! Ni +XCTMIN(4) = 1.0E-0 ! Ni XCTMIN(5) = 1.0E-3 ! Not used XCTMIN(6) = 1.0E-3 ! Not used XCTMIN(7) = 1.0E-3 ! Not used diff --git a/src/MNH/sources_neg_correct.f90 b/src/MNH/sources_neg_correct.f90 index aa5978a541433da5eef6481e79446bbe385fac75..d54bdac40feca95be051f8bb466c8ebb93c44f36 100644 --- a/src/MNH/sources_neg_correct.f90 +++ b/src/MNH/sources_neg_correct.f90 @@ -275,7 +275,7 @@ CLOUD: select case ( hcloud ) ! Correction where ri<0 or Ni<0 if ( lcold_lima ) then zmask(:,:,:)=(prrs(:, :, :, 4) < xrtmin_lima(4) / ptstep) - if (nmom_i.ge.2) zmask(:,:,:)=(zmask(:,:,:) .or. prsvs(:, :, :, nsv_lima_ni) < 0. ) + if (nmom_i.ge.2) zmask(:,:,:)=(zmask(:,:,:) .or. prsvs(:, :, :, nsv_lima_ni) < xctmin_lima(4) / ptstep) where ( zmask(:,:,:) ) prrs(:, :, :, 1) = prrs(:, :, :, 1) + prrs(:, :, :, 4) prths(:, :, :) = prths(:, :, :) - prrs(:, :, :, 4) * zls(:, :, :) / &