diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90 index c55a1b2f0564d748234c20179116477a15056f4e..93ca1f69921421c91ff0b7d46a4f0fb88fd97e6a 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, &