diff --git a/src/PHYEX/micro/init_aerosol_properties.f90 b/src/PHYEX/micro/init_aerosol_properties.f90 index cf776a058728952077afcf12aa91395c8c176b76..eeb747265017d2af16455bff13798a0d214c0c12 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 !