From 7bc6badfa32df1b61c4132bb8a6f90ae2b9bdffa Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 25 May 2021 14:17:17 +0200
Subject: [PATCH] Philippe 25/05/2021: budgets: fix type for TRAJX and TRAJY in
LFI files for LES + cartesian budgets
---
src/MNH/write_diachro.f90 | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/MNH/write_diachro.f90 b/src/MNH/write_diachro.f90
index 1bb06996d..d0dce9879 100644
--- a/src/MNH/write_diachro.f90
+++ b/src/MNH/write_diachro.f90
@@ -644,9 +644,9 @@ ELSE IF ( ycategory == 'LES budgets' .and. tpbudiachro%clevels(NLVL_SHAPE) == '
TZFIELD%NDIMS = 3
TZFIELD%LTIMEDEP = .FALSE.
!TRAJX is given in extended domain coordinates (=> +jphext) for backward compatibility
- CALL IO_Field_write(tzfile,TZFIELD, Reshape( &
+ CALL IO_Field_write(tzfile,TZFIELD, Real( Reshape( &
Spread( source = ( nles_current_iinf + nles_current_isup) / 2 + jphext, dim = 1, ncopies = IN ), &
- [1, 1, IN] ) )
+ [1, 1, IN] ) ) )
ENDIF
!
! 9eme enregistrement TRAJY
@@ -675,9 +675,9 @@ ELSE IF ( ycategory == 'LES budgets' .and. tpbudiachro%clevels(NLVL_SHAPE) == '
TZFIELD%NDIMS = 3
TZFIELD%LTIMEDEP = .FALSE.
!TRAJY is given in extended domain coordinates (=> +jphext) for backward compatibility
- CALL IO_Field_write(tzfile,TZFIELD, Reshape( &
+ CALL IO_Field_write(tzfile,TZFIELD, Real( Reshape( &
Spread( source = ( nles_current_jinf + nles_current_jsup) / 2 + jphext, dim = 1, ncopies = IN ), &
- [1, 1, IN] ) )
+ [1, 1, IN] ) ) )
ENDIF
!
! 10eme enregistrement TRAJZ
--
GitLab