From 4a480ce005d60d374469a93c0a11bbfc39a62078 Mon Sep 17 00:00:00 2001
From: VIE Benoit <vie@sxphynh>
Date: Thu, 8 Sep 2022 10:07:26 +0200
Subject: [PATCH] bugfix
---
src/MNH/lima_mixed_fast_processes.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/MNH/lima_mixed_fast_processes.f90 b/src/MNH/lima_mixed_fast_processes.f90
index 7abf0542a..1b0ea00c3 100644
--- a/src/MNH/lima_mixed_fast_processes.f90
+++ b/src/MNH/lima_mixed_fast_processes.f90
@@ -748,7 +748,7 @@ IF (ICIBU > 0) THEN
ALLOCATE(ZFRAG_CIBU(SIZE(PZT)))
!
ZFRAG_CIBU(:) = UNPACK ( VECTOR=ZFRAGMENTS(:),MASK=GCIBU,FIELD=0.0 )
- ZNI_CIBU(:) = ZFRAG_CIBU(:) * (XFACTOR_CIBU_NI * PCST(:) * PCGT(:) / (PRHODREF(:)**XCEXVT)) * &
+ ZNI_CIBU(:) = ZFRAG_CIBU(:) * (XFACTOR_CIBU_NI * PCST1D(:) * PCGT1D(:) / (PRHODREF(:)**XCEXVT)) * &
(XCG * ZINTG_GRAUPEL_1(:) * ZINTG_SNOW_1(:) * &
PLBDAG(:)**(-(XDG+2.0)) &
- XCS * ZINTG_GRAUPEL_2(:) * ZINTG_SNOW_2(:) * &
@@ -762,7 +762,7 @@ IF (ICIBU > 0) THEN
!
! Max value of rs removed by CIBU
ALLOCATE(ZRI_CIBU(SIZE(PZT)))
- ZRI_CIBU(:) = (XFACTOR_CIBU_RI * PCST(:) * PCGT(:) / (PRHODREF(:)**XCEXVT)) * &
+ ZRI_CIBU(:) = (XFACTOR_CIBU_RI * PCST1D(:) * PCGT1D(:) / (PRHODREF(:)**XCEXVT)) * &
(XCG * ZINTG_GRAUPEL_1(:) * ZINTG_SNOW_3(:) * &
PLBDAS(:)**(-XBS) * PLBDAG(:)**(-(XDG+2.0)) &
- XCS * ZINTG_GRAUPEL_2(:) * ZINTG_SNOW_4(:) * &
--
GitLab