From 2b47da0f82b3515ee9b3aec69c2cd13ba830b6b7 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Thu, 2 Jun 2022 10:36:17 +0200 Subject: [PATCH] Philippe 02/06/2022: fix: remove XLAM_CRAD declaration --- src/MNH/profilern.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/MNH/profilern.f90 b/src/MNH/profilern.f90 index 5554c6cd2..71d4514af 100644 --- a/src/MNH/profilern.f90 +++ b/src/MNH/profilern.f90 @@ -210,7 +210,7 @@ REAL, DIMENSION(SIZE(PR,3)) :: ZRHODREFZ ! vertical profile of dry air densit REAL, DIMENSION(SIZE(PR,3)) :: ZCIT ! pristine ice concentration REAL, DIMENSION(SIZE(PR,3)) :: ZCCI,ZCCR,ZCCC ! ICE,RAIN CLOUD concentration (LIMA) REAL, DIMENSION(SIZE(PR,3),SIZE(PR,4)+1) :: ZRZ ! vertical profile of hydrometeor mixing ratios -REAL :: ZA,ZB,ZCC,ZCX,ZALPHA,ZNU,ZLB,ZLBEX,ZRHOHYD,XLAM_CRAD ! generic microphysical parameters +REAL :: ZA,ZB,ZCC,ZCX,ZALPHA,ZNU,ZLB,ZLBEX,ZRHOHYD ! generic microphysical parameters INTEGER :: JJ ! loop counter for quadrature COMPLEX :: QMW,QMI,QM,QB,QEPSIW,QEPSWI ! dielectric parameter REAL :: ZAETOT,ZAETMP,ZREFLOC,ZQSCA,ZQBACK,ZQEXT ! temporary scattering parameters -- GitLab