From 0dc7f9fe7db52f8592c66272ca30d69b67672895 Mon Sep 17 00:00:00 2001 From: Pierre Tulet <pierre.tulet@aero.obs-mip.fr> Date: Mon, 22 May 2023 17:50:17 +0200 Subject: [PATCH] P.Tulet 22/02/23: reglages pour le passage concentration aerosols CAMS vers ORILAM-DUST. Fit for the transfer of CAMS aerosol concentration to ORILAM-DUST scheme. --- src/MNH/dustcamsn.f90 | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/src/MNH/dustcamsn.f90 b/src/MNH/dustcamsn.f90 index 33966adfd..94732c05c 100644 --- a/src/MNH/dustcamsn.f90 +++ b/src/MNH/dustcamsn.f90 @@ -125,13 +125,12 @@ DO JN = 1, NMODE_DST ZMMIN(IM3(JN)) = XN0MIN(IMODEIDX) * (ZRGMIN**3)*EXP(4.5 * LOG(ZINISIGMA(JN))**2) ZMMIN(IM6(JN)) = XN0MIN(IMODEIDX) * (ZRGMIN**6)*EXP(18. * LOG(ZINISIGMA(JN))**2) - IF (JPDUSTORDER(JN) == 1) ZMASS(:,:,:,JN) = PMASSCAMS(:,:,:,1) ! fin mode - IF (JPDUSTORDER(JN) == 2) ZMASS(:,:,:,JN) = PMASSCAMS(:,:,:,2) ! median mode - IF (JPDUSTORDER(JN) == 3) ZMASS(:,:,:,JN) = PMASSCAMS(:,:,:,3) ! large mode + IF (JPDUSTORDER(JN) == 1) ZMASS(:,:,:,JN) = MAX(PMASSCAMS(:,:,:,1), 1E-16) ! fin mode + IF (JPDUSTORDER(JN) == 2) ZMASS(:,:,:,JN) = MAX(PMASSCAMS(:,:,:,2), 1E-15) ! median mode + IF (JPDUSTORDER(JN) == 3) ZMASS(:,:,:,JN) = MAX(PMASSCAMS(:,:,:,3), 1E-15) ! large mode ENDDO -ZMASS(:,:,:,:) = MAX(ZMASS(:,:,:,:), 1E-40) ! ! ZRHOI = XDENSITY_DUST !1.8e3 !++changed alfgr @@ -158,14 +157,14 @@ DO JN = 1, NMODE_DST (ZINIRADIUS(JN)**3) * & EXP(4.5*LOG(ZINISIGMA(JN))**2) - ZM(:,:,:,IM3(JN)) = MAX(ZMMIN(IM3(JN)), ZM(:,:,:,IM3(JN))) +! ZM(:,:,:,IM3(JN)) = MAX(ZMMIN(IM3(JN)), ZM(:,:,:,IM3(JN))) ! !* 1.3 calculate moment 6 from m0, RG and SIG ! ZM(:,:,:,IM6(JN))= ZM(:,:,:,IM0(JN)) * ((ZINIRADIUS(JN)**6) * & EXP(18.*(LOG(ZINISIGMA(JN)))**2)) ! - ZM(:,:,:,IM6(JN)) = MAX(ZMMIN(IM6(JN)), ZM(:,:,:,IM6(JN))) +! ZM(:,:,:,IM6(JN)) = MAX(ZMMIN(IM6(JN)), ZM(:,:,:,IM6(JN))) ! !* 1.4 output concentration ! -- GitLab