From df29957f7f2ea9ed3fad95cd01d7625b824f6b37 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 5 Jan 2022 13:24:16 +0100
Subject: [PATCH] Philippe 05/01/2022: replace ppbv by ppb for homogeneity (ppb
is the same as ppbv)
---
src/MNH/read_field.f90 | 2 +-
src/MNH/write_lfifm1_for_diag.f90 | 16 ++++++++--------
2 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/src/MNH/read_field.f90 b/src/MNH/read_field.f90
index 0264f75c6..4f4051254 100644
--- a/src/MNH/read_field.f90
+++ b/src/MNH/read_field.f90
@@ -1241,7 +1241,7 @@ END IF
!
IF (NSV_LNOXEND>=NSV_LNOXBEG) THEN
TZFIELD%CSTDNAME = ''
- TZFIELD%CUNITS = 'ppv'
+ TZFIELD%CUNITS = 'ppb'
TZFIELD%CDIR = 'XY'
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90
index e94351e1e..4adbf49c0 100644
--- a/src/MNH/write_lfifm1_for_diag.f90
+++ b/src/MNH/write_lfifm1_for_diag.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1994-2021 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -1242,7 +1242,7 @@ IF (LCHEMDIAG) THEN
TZFIELD%CMNHNAME = TRIM(UPCASE(CNAMES(JSV-NSV_CHGSBEG+1)))//'T'
TZFIELD%CSTDNAME = ''
TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
- TZFIELD%CUNITS = 'ppbv'
+ TZFIELD%CUNITS = 'ppb'
TZFIELD%CDIR = 'XY'
WRITE(TZFIELD%CCOMMENT,'(A6,A4,I3.3)')'X_Y_Z_','CHIM',JSV
TZFIELD%NGRID = 1
@@ -1511,7 +1511,7 @@ IF (.NOT.(LUSECHEM .OR. LCHEMDIAG) .AND. LCH_CONV_LINOX) THEN
TZFIELD%CMNHNAME = 'LINOXT'
TZFIELD%CSTDNAME = ''
TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
- TZFIELD%CUNITS = 'ppbv'
+ TZFIELD%CUNITS = 'ppb'
TZFIELD%CDIR = 'XY'
WRITE(TZFIELD%CCOMMENT,'(A6,A4,I3.3)')'X_Y_Z_','LNOX',JSV
TZFIELD%NGRID = 1
@@ -1554,7 +1554,7 @@ IF (LSALT) THEN
!
TZFIELD%CSTDNAME = ''
TZFIELD%CDIR = 'XY'
- TZFIELD%CUNITS = 'ppbv'
+ TZFIELD%CUNITS = 'ppb'
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
@@ -1639,7 +1639,7 @@ IF (LSALT.AND.LDEPOS_SLT(IMI)) THEN
ZSSLTDEP=XSVT(:,:,:,NSV_SLTDEPBEG:NSV_SLTDEPEND)
!
TZFIELD%CSTDNAME = ''
- TZFIELD%CUNITS = 'ppbv'
+ TZFIELD%CUNITS = 'ppb'
TZFIELD%CDIR = 'XY'
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
@@ -1739,7 +1739,7 @@ IF (LDUST) THEN
ALLOCATE(ZN0_DST(SIZE(XSVT,1), SIZE(XSVT,2), SIZE(XSVT,3), NMODE_DST))
!
TZFIELD%CSTDNAME = ''
- TZFIELD%CUNITS = 'ppbv'
+ TZFIELD%CUNITS = 'ppb'
TZFIELD%CDIR = 'XY'
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
@@ -1817,7 +1817,7 @@ IF (LDUST.AND.LDEPOS_DST(IMI)) THEN
ZSDSTDEP=XSVT(:,:,:,NSV_DSTDEPBEG:NSV_DSTDEPEND)
!
TZFIELD%CSTDNAME = ''
- TZFIELD%CUNITS = 'ppbv'
+ TZFIELD%CUNITS = 'ppb'
TZFIELD%CDIR = 'XY'
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
@@ -1910,7 +1910,7 @@ END IF
! Aerosol
IF ((LCHEMDIAG).AND.(LORILAM).AND.(LUSECHEM)) THEN
TZFIELD%CSTDNAME = ''
- TZFIELD%CUNITS = 'ppbv'
+ TZFIELD%CUNITS = 'ppb'
TZFIELD%CDIR = 'XY'
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
--
GitLab