From db303d9bff43d5a33a5761d515dab92978a9a4a8 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 1 Jun 2023 09:13:19 +0200
Subject: [PATCH] Philippe 01/06/2023: bugfix: profilern: PCIT was used when
allocated to zero-size (if LIMA)
---
src/MNH/profilern.f90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/MNH/profilern.f90 b/src/MNH/profilern.f90
index c99f50889..93609a053 100644
--- a/src/MNH/profilern.f90
+++ b/src/MNH/profilern.f90
@@ -398,11 +398,12 @@ PROFILER: DO JP = 1, NUMBPROFILER_LOC
TPROFILERS(JP)%INTERP_HOR_FROM_MASSPOINT( (PR(:,:,:,4)+PR(:,:,:,5)+PR(:,:,:,6))*PRHODREF(:,:,:) )
ZTEMPZ(:)=TPROFILERS(JP)%INTERP_HOR_FROM_MASSPOINT( ZTEMP(:,:,:) )
ZRHODREFZ(:)=TPROFILERS(JP)%INTERP_HOR_FROM_MASSPOINT( PRHODREF(:,:,:) )
- ZCIT(:)=TPROFILERS(JP)%INTERP_HOR_FROM_MASSPOINT( PCIT(:,:,:) )
IF (CCLOUD=="LIMA") THEN
ZCCI(:)=TPROFILERS(JP)%INTERP_HOR_FROM_MASSPOINT( PSV(:,:,:,NSV_LIMA_NI) )
ZCCR(:)=TPROFILERS(JP)%INTERP_HOR_FROM_MASSPOINT( PSV(:,:,:,NSV_LIMA_NR) )
ZCCC(:)=TPROFILERS(JP)%INTERP_HOR_FROM_MASSPOINT( PSV(:,:,:,NSV_LIMA_NC) )
+ ELSE
+ ZCIT(:)=TPROFILERS(JP)%INTERP_HOR_FROM_MASSPOINT( PCIT(:,:,:) )
END IF
DO JLOOP=3,6
ZRZ(:,JLOOP)=TPROFILERS(JP)%INTERP_HOR_FROM_MASSPOINT( PR(:,:,:,JLOOP) )
--
GitLab