From e82370968f1f083f27b2934246669b435e647a21 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 5 Jan 2022 15:45:51 +0100
Subject: [PATCH] Philippe 05/01/2022: 'mol i m-2' => 'mol m-2' (i was for
species #i)
---
src/MNH/write_lfin.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/MNH/write_lfin.f90 b/src/MNH/write_lfin.f90
index cd875dd96..a6e257254 100644
--- a/src/MNH/write_lfin.f90
+++ b/src/MNH/write_lfin.f90
@@ -1243,12 +1243,12 @@ IF (NSV >=1) THEN
YCHNAMES(JSV-JSA)=TZFIELD%CMNHNAME(1:LEN_TRIM(TZFIELD%CMNHNAME)-1) ! without M
END DO
ENDIF
- IF (LUSECHAQ.AND.NRR>=3) THEN ! accumulated moles of aqueous species that fall at the surface (mol i/m2)
+ IF (LUSECHAQ.AND.NRR>=3) THEN ! accumulated moles of aqueous species that fall at the surface (mol/m2)
TZFIELD%NDIMS = 2
DO JSV = NSV_CHACBEG+NSV_CHAC/2,NSV_CHACEND
TZFIELD%CMNHNAME = 'ACPR_'//TRIM(UPCASE(CNAMES(JSV-NSV_CHEMBEG+1)))
TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
- TZFIELD%CUNITS = 'mol i m-2'
+ TZFIELD%CUNITS = 'mol m-2'
TZFIELD%CCOMMENT = 'X_Y_Accumulated moles of aqueous species at the surface'
ZWORK2D(:,:) = XACPRAQ(:,:,JSV-NSV_CHACBEG-NSV_CHAC/2+1)
CALL IO_Field_write(TPFILE,TZFIELD,ZWORK2D)
--
GitLab