From 2a908486243f4cb7d402e27dd3b7656795cb999c Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Thu, 18 Sep 2014 08:17:31 +0000
Subject: [PATCH] P.Tulet 2014 : modif for SALT
---
src/MNH/write_lfifm1_for_diag.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90
index c55a1b2f0..93ca1f699 100644
--- a/src/MNH/write_lfifm1_for_diag.f90
+++ b/src/MNH/write_lfifm1_for_diag.f90
@@ -1419,7 +1419,7 @@ IF (LSALT) THEN
WRITE(YRECFM,'(A4,I1)')'SLTMSS',JJ
WRITE(YCOMMENT,'(A14,I1,A7)')'MASSCONC MODE ',JJ,'(ug/m3)'
ILENCH=LEN(YCOMMENT)
- ZWORK31(:,:,:)= ZN0_SLT(:,:,:,JJ)*4./3.**XPI*XDENSITY_SALT*1e9 & !kg-->ug
+ ZWORK31(:,:,:)= ZN0_SLT(:,:,:,JJ)*4./3.*XPI*XDENSITY_SALT*1e9 & !kg-->ug
* (ZRG_SLT(:,:,:,JJ)**3)*1.d-18 & !um-->m
* exp(4.5*log(ZSIG_SLT(:,:,:,JJ))*log(ZSIG_SLT(:,:,:,JJ)))
CALL FMWRIT(HFMFILE,YRECFM,CLUOUT,'XY',ZWORK31,IGRID,ILENCH, &
--
GitLab