From db958df6339349d93f565f317eed0bd8fbcf3c92 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Vi=C3=A9?= <benoit.vie@meteo.fr>
Date: Tue, 28 Feb 2023 15:27:29 +0100
Subject: [PATCH] bugfix init_aerosol_properties from PTulet. To be discarded
when updated version received
---
src/PHYEX/micro/init_aerosol_properties.f90 | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/PHYEX/micro/init_aerosol_properties.f90 b/src/PHYEX/micro/init_aerosol_properties.f90
index cf776a058..eeb747265 100644
--- a/src/PHYEX/micro/init_aerosol_properties.f90
+++ b/src/PHYEX/micro/init_aerosol_properties.f90
@@ -410,8 +410,8 @@ IF (LORILAM) THEN
XMDIAM_IFN(3) = 2 * XINIRADIUSI * 1E-6
XMDIAM_IFN(4) = 2 * XINIRADIUSI * 1E-6
END IF
- LOGSIGCCN(3) = LOG(XINISIGJ)
- LOGSIGCCN(4) = LOG(XINISIGJ)
+ XSIGMA_IFN(3) = LOG(XINISIGJ)
+ XSIGMA_IFN(4) = LOG(XINISIGJ)
XRHO_IFN(3) = XRHOI(JP_AER_BC)
XRHO_IFN(4) = XRHOI(JP_AER_OC)
END IF
@@ -424,8 +424,8 @@ IF (LDUST) THEN
ELSE
XMDIAM_IFN(JMOD) = 2 * XINIRADIUS(JPDUSTORDER(JMOD)) * 1E-6
END IF
- LOGSIGCCN(JMOD) = LOG(XINISIG(JPDUSTORDER(JMOD)))
- RHOCCN(JMOD) = XDENSITY_DUST
+ XSIGMA_IFN(JMOD) = LOG(XINISIG(JPDUSTORDER(JMOD)))
+ XRHO_IFN(JMOD) = XDENSITY_DUST
ENDDO
END IF
!
--
GitLab