diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90 index 4d52fa7e3a7cb5c568ca2d5a2631ae2d8d65744b..cb7e11622adb5dc829971f7c8a730c3495900b81 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