From 452dd7e8239ad6960c684b2745e59712a1c47a5c Mon Sep 17 00:00:00 2001
From: Gaelle DELAUTIER <gaelle.delautier@meteo.fr>
Date: Fri, 29 Jun 2018 13:39:54 +0200
Subject: [PATCH] Benoit Vie 29/6/2018 : LIMA
---
src/MNH/lima_ccn_activation.f90 | 2 +-
src/MNH/lima_warm_nucl.f90 | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/MNH/lima_ccn_activation.f90 b/src/MNH/lima_ccn_activation.f90
index cc3566ec5..44bff2677 100644
--- a/src/MNH/lima_ccn_activation.f90
+++ b/src/MNH/lima_ccn_activation.f90
@@ -394,7 +394,7 @@ IF( INUCT >= 1 ) THEN
ZZW2(:) = 0.
ZZW3(:) = 0.
!
- WHERE( SUM(ZTMP(:,:),DIM=2) .GT. 25.E6/ZRHODREF(:) )
+ WHERE( SUM(ZTMP(:,:),DIM=2) .GT. 15.E6/ZRHODREF(:) )
ZZW1(:) = MIN( ZNFT(:,JMOD),MAX( ZTMP(:,JMOD)- ZNAT(:,JMOD) , 0.0 ) )
ENDWHERE
!
diff --git a/src/MNH/lima_warm_nucl.f90 b/src/MNH/lima_warm_nucl.f90
index c670a5678..ff936b6cb 100644
--- a/src/MNH/lima_warm_nucl.f90
+++ b/src/MNH/lima_warm_nucl.f90
@@ -453,7 +453,7 @@ IF( INUCT >= 1 ) THEN
ZZW2(:) = 0.
ZZW3(:) = 0.
!
- WHERE( SUM(ZTMP(:,:),DIM=2)*PTSTEP .GT. 25.E6/ZRHODREF(:) )
+ WHERE( SUM(ZTMP(:,:),DIM=2)*PTSTEP .GT. 15.E6/ZRHODREF(:) )
ZZW1(:) = MIN( ZNFS(:,JMOD),MAX( ZTMP(:,JMOD)- ZNAS(:,JMOD) , 0.0 ) )
ENDWHERE
!
--
GitLab