From f69d6c2b581d70e8d099471be920376e42a1a1d9 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 16 Feb 2024 08:29:33 +0100
Subject: [PATCH] Philippe 16/02/2024: LFI fileformat not supported for
Lagrangian trajectories
---
src/LIB/SURCOUCHE/src/mode_io_field_write.f90 | 1 +
src/MNH/compute_r00.f90 | 6 +++++-
2 files changed, 6 insertions(+), 1 deletion(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90 b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
index f7f1efa39..98f6eb027 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
@@ -48,6 +48,7 @@ MODULE MODE_IO_FIELD_WRITE
public :: IO_Field_write, IO_Field_write_box, IO_Field_write_lb
public :: IO_Fieldlist_write, IO_Field_user_write
public :: IO_Header_write, IO_Field_create
+ public :: IO_Format_write_select
INTERFACE IO_Field_write
MODULE PROCEDURE IO_Field_write_byname_X0, IO_Field_write_byname_X1, &
diff --git a/src/MNH/compute_r00.f90 b/src/MNH/compute_r00.f90
index 7c5246ccc..bfba9aa50 100644
--- a/src/MNH/compute_r00.f90
+++ b/src/MNH/compute_r00.f90
@@ -149,7 +149,7 @@ USE MODD_TYPE_DATE
USE MODD_VAR_ll
!
USE MODE_IO_FIELD_READ, only: IO_Field_read
-USE MODE_IO_FIELD_WRITE, only: IO_Field_create, IO_Field_write
+USE MODE_IO_FIELD_WRITE, only: IO_Field_create, IO_Field_write, IO_Format_write_select
USE MODE_IO_FILE, only: IO_File_close, IO_File_open
USE MODE_IO_MANAGE_STRUCT, ONLY: IO_File_add2list
USE MODE_ll
@@ -179,6 +179,7 @@ REAL, ALLOCATABLE, DIMENSION(:,:,:):: ZRV0 ! same fields
! for Rv as for the coordinates of the origin
REAL, ALLOCATABLE, DIMENSION(:,:,:):: ZWORK1,ZWORK2,ZWORK3
TYPE(DATE_TIME) :: TDTCUR_START
+LOGICAL :: GLFI, GNC4
LOGICAL :: GSTART
REAL :: ZXMAX,ZYMAX,ZZMAX ! domain extrema
TYPE(TFIELDMETADATA) :: TZFIELD
@@ -187,6 +188,9 @@ TYPE(TFIELDMETADATA) :: TZFIELD_TH0, TZFIELD_RV0
TYPE(TFILEDATA),POINTER :: TZTRACFILE
!
!-------------------------------------------------------------------------------
+
+CALL IO_FORMAT_WRITE_SELECT( TPFILE, GLFI, GNC4 )
+if ( GLFI ) CALL PRINT_MSG( NVERB_ERROR, 'COMPUTE_R00', 'LFI fileformat not supported for Lagrangian trajectories' )
!
!* 1.0 INITIALIZATION
! --------------
--
GitLab