Skip to content
Snippets Groups Projects
Commit bb85eefe authored by Gaelle Tanguy's avatar Gaelle Tanguy Committed by WAUTELET Philippe
Browse files

Christine 10/04/2014 : instant T instead of M for POVO and LINOX

parent 117e1175
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/write_lfifm1_for_diag.f90
+ 2
− 2
View file @ bb85eefe
...@@ -655,7 +655,7 @@ ZPOVO(:,:,:)= ZPOVO(:,:,:)*1E6/XRHODREF(:,:,:) ...@@ -655,7 +655,7 @@ ZPOVO(:,:,:)= ZPOVO(:,:,:)*1E6/XRHODREF(:,:,:)
ZPOVO(:,:,1) =-1.E+11 ZPOVO(:,:,1) =-1.E+11
ZPOVO(:,:,IKU)=-1.E+11 ZPOVO(:,:,IKU)=-1.E+11
IF (INDEX(CISO,'EV') /= 0) THEN IF (INDEX(CISO,'EV') /= 0) THEN
YRECFM='POVOM' YRECFM='POVOT'
YCOMMENT='X_Y_Z_POtential VOrticity (PVU)' YCOMMENT='X_Y_Z_POtential VOrticity (PVU)'
IGRID=1 IGRID=1
ILENCH=LEN(YCOMMENT) ILENCH=LEN(YCOMMENT)
...@@ -1344,7 +1344,7 @@ END IF ...@@ -1344,7 +1344,7 @@ END IF
! linox scalar variables ! linox scalar variables
IF (.NOT.(LUSECHEM .OR. LCHEMDIAG) .AND. LCH_CONV_LINOX) THEN IF (.NOT.(LUSECHEM .OR. LCHEMDIAG) .AND. LCH_CONV_LINOX) THEN
DO JSV = NSV_LNOXBEG,NSV_LNOXEND DO JSV = NSV_LNOXBEG,NSV_LNOXEND
YRECFM='LINOXM' YRECFM='LINOXT'
WRITE(YCOMMENT,'(A6,A4,I3.3,A7)')'X_Y_Z_','LNOX',JSV,' (ppbv)' WRITE(YCOMMENT,'(A6,A4,I3.3,A7)')'X_Y_Z_','LNOX',JSV,' (ppbv)'
ILENCH=LEN(YCOMMENT) ILENCH=LEN(YCOMMENT)
ZWORK31(:,:,:)=XSVT(:,:,:,JSV)*1.E9 ZWORK31(:,:,:)=XSVT(:,:,:,JSV)*1.E9
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme