Skip to content
Snippets Groups Projects
Commit 98ef4dd2 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

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

parent f69d6c2b
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment