Philippe 16/02/2024: add retro-compatibility with old MNH files for Lagrangian trajectories

src/MNH/compute_r00.f90

@@ -397,16 +397,19 @@ DO JFILECUR=1,NFILES
       NTYPE      = TYPEREAL, &
       NDIMS      = 3,        &
       LTIMEDEP   = .TRUE.    )
+    CALL COMPAT_OLDFILE()
     CALL IO_Field_read(TZTRACFILE,TZFIELD,ZX0)
     ZX0(:,:,:)=ZX0(:,:,:)*1.E-3   ! ZX0 in km
     !
     TZFIELD%CMNHNAME   = 'LGY'
     TZFIELD%CLONGNAME  = 'LGY'
+    CALL COMPAT_OLDFILE()
     CALL IO_Field_read(TZTRACFILE,TZFIELD,ZY0)
     ZY0(:,:,:)=ZY0(:,:,:)*1.E-3   ! ZY0 in km
     !
     TZFIELD%CMNHNAME   = 'LGZ'
     TZFIELD%CLONGNAME  = 'LGZ'
+    CALL COMPAT_OLDFILE()
     CALL IO_Field_read(TZTRACFILE,TZFIELD,ZZ0)
     ZZ0(:,:,:)=ZZ0(:,:,:)*1.E-3   ! ZZ0 in km
     !
@@ -587,6 +590,12 @@ END DO
 !
 END SUBROUTINE INTERPXYZ
 !
+SUBROUTINE COMPAT_OLDFILE()
+  IF ( TZTRACFILE%NMNHVERSION(1)<5 .OR. ( TZTRACFILE%NMNHVERSION(1)==5 .AND. TZTRACFILE%NMNHVERSION(2)<6 ) ) THEN
+    TZFIELD%CMNHNAME  = TRIM(TZFIELD%CMNHNAME) // 'T'
+    TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME) // 'T'
+  END IF
+END SUBROUTINE COMPAT_OLDFILE
 !-------------------------------------------------------------------------------
 !
 END SUBROUTINE COMPUTE_R00