From 44d4f21855df4772d741a7f51511de21a7a15c2a Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 31 Jan 2023 09:09:34 +0100
Subject: [PATCH] Philippe 31/01/2023: bugfix for DIAG: set array dimensions
for writing
---
src/MNH/write_lfifm1_for_diag_supp.f90 | 14 ++++++++++++--
1 file changed, 12 insertions(+), 2 deletions(-)
diff --git a/src/MNH/write_lfifm1_for_diag_supp.f90 b/src/MNH/write_lfifm1_for_diag_supp.f90
index c0dcea59b..57a71520c 100644
--- a/src/MNH/write_lfifm1_for_diag_supp.f90
+++ b/src/MNH/write_lfifm1_for_diag_supp.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2000-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2000-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -106,7 +106,9 @@ USE MODD_DIAG_IN_RUN, ONLY: XCURRENT_ZON10M, XCURRENT_MER10M, &
XCURRENT_SFCO2, XCURRENT_SWD, XCURRENT_LWD, &
XCURRENT_SWU, XCURRENT_LWU
USE MODD_DUST, ONLY: LDUST
-use modd_field, only: NMNHDIM_UNUSED, tfieldmetadata, tfieldlist, TYPEINT, TYPEREAL
+use modd_field, only: NMNHDIM_NI, NMNHDIM_NJ, NMNHDIM_NOTLISTED, NMNHDIM_UNUSED, &
+ tfieldmetadata, tfieldlist, TYPEINT, TYPEREAL
+use modd_field
USE MODD_IO, ONLY: TFILEDATA
USE MODD_CONF, ONLY: LCARTESIAN
USE MODD_CONF_n, ONLY: LUSERC, LUSERI, NRR
@@ -1248,6 +1250,7 @@ IF (LISOAL .AND.XISOAL(1)/=0.) THEN
NGRID = 1, &
NTYPE = TYPEREAL, &
NDIMS = 3, &
+ NDIMLIST = [ NMNHDIM_NI, NMNHDIM_NJ, NMNHDIM_NOTLISTED ], &
LTIMEDEP = .TRUE. )
CALL IO_Field_write(TPFILE,TZFIELD,ZWAL)
! *********************
@@ -1271,6 +1274,7 @@ IF (LISOAL .AND.XISOAL(1)/=0.) THEN
NGRID = 1, &
NTYPE = TYPEREAL, &
NDIMS = 3, &
+ NDIMLIST = [ NMNHDIM_NI, NMNHDIM_NJ, NMNHDIM_NOTLISTED ], &
LTIMEDEP = .TRUE. )
CALL IO_Field_write(TPFILE,TZFIELD,ZWAL)
! *********************
@@ -1288,6 +1292,7 @@ IF (LISOAL .AND.XISOAL(1)/=0.) THEN
NGRID = 1, &
NTYPE = TYPEREAL, &
NDIMS = 3, &
+ NDIMLIST = [ NMNHDIM_NI, NMNHDIM_NJ, NMNHDIM_NOTLISTED ], &
LTIMEDEP = .TRUE. )
CALL IO_Field_write(TPFILE,TZFIELD,ZWAL)
! *********************
@@ -1305,6 +1310,7 @@ IF (LISOAL .AND.XISOAL(1)/=0.) THEN
NGRID = 1, &
NTYPE = TYPEREAL, &
NDIMS = 3, &
+ NDIMLIST = [ NMNHDIM_NI, NMNHDIM_NJ, NMNHDIM_NOTLISTED ], &
LTIMEDEP = .TRUE. )
CALL IO_Field_write(TPFILE,TZFIELD,ZWAL)
! *********************
@@ -1339,6 +1345,7 @@ IF (LISOAL .AND.XISOAL(1)/=0.) THEN
NGRID = 1, &
NTYPE = TYPEREAL, &
NDIMS = 3, &
+ NDIMLIST = [ NMNHDIM_NI, NMNHDIM_NJ, NMNHDIM_NOTLISTED ], &
LTIMEDEP = .TRUE. )
CALL IO_Field_write(TPFILE,TZFIELD,ZWAL)
! *********************
@@ -1357,6 +1364,7 @@ IF (LISOAL .AND.XISOAL(1)/=0.) THEN
NGRID = 1, &
NTYPE = TYPEREAL, &
NDIMS = 3, &
+ NDIMLIST = [ NMNHDIM_NI, NMNHDIM_NJ, NMNHDIM_NOTLISTED ], &
LTIMEDEP = .TRUE. )
CALL IO_Field_write(TPFILE,TZFIELD,ZWAL)
!
@@ -1373,6 +1381,7 @@ IF (LISOAL .AND.XISOAL(1)/=0.) THEN
NGRID = 1, &
NTYPE = TYPEREAL, &
NDIMS = 3, &
+ NDIMLIST = [ NMNHDIM_NI, NMNHDIM_NJ, NMNHDIM_NOTLISTED ], &
LTIMEDEP = .TRUE. )
CALL IO_Field_write(TPFILE,TZFIELD,ZWAL)
! *********************
@@ -1395,6 +1404,7 @@ IF (LISOAL .AND.XISOAL(1)/=0.) THEN
NGRID = 1, &
NTYPE = TYPEREAL, &
NDIMS = 3, &
+ NDIMLIST = [ NMNHDIM_NI, NMNHDIM_NJ, NMNHDIM_NOTLISTED ], &
LTIMEDEP = .TRUE. )
CALL IO_Field_write(TPFILE,TZFIELD,ZWAL)
END IF
--
GitLab