From bb85eefef74223d93e4630ea1bd5dabf3d89022f Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Thu, 10 Apr 2014 14:32:33 +0000
Subject: [PATCH] Christine 10/04/2014 : instant T instead of M for POVO and
LINOX
---
src/MNH/write_lfifm1_for_diag.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90
index 4d52fa7e3..cb7e11622 100644
--- a/src/MNH/write_lfifm1_for_diag.f90
+++ b/src/MNH/write_lfifm1_for_diag.f90
@@ -655,7 +655,7 @@ ZPOVO(:,:,:)= ZPOVO(:,:,:)*1E6/XRHODREF(:,:,:)
ZPOVO(:,:,1) =-1.E+11
ZPOVO(:,:,IKU)=-1.E+11
IF (INDEX(CISO,'EV') /= 0) THEN
- YRECFM='POVOM'
+ YRECFM='POVOT'
YCOMMENT='X_Y_Z_POtential VOrticity (PVU)'
IGRID=1
ILENCH=LEN(YCOMMENT)
@@ -1344,7 +1344,7 @@ END IF
! linox scalar variables
IF (.NOT.(LUSECHEM .OR. LCHEMDIAG) .AND. LCH_CONV_LINOX) THEN
DO JSV = NSV_LNOXBEG,NSV_LNOXEND
- YRECFM='LINOXM'
+ YRECFM='LINOXT'
WRITE(YCOMMENT,'(A6,A4,I3.3,A7)')'X_Y_Z_','LNOX',JSV,' (ppbv)'
ILENCH=LEN(YCOMMENT)
ZWORK31(:,:,:)=XSVT(:,:,:,JSV)*1.E9
--
GitLab