From 43dc3dba5f01a16f6cb04906d467b6ae3610f4cf Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 17 Feb 2023 15:13:20 +0100
Subject: [PATCH] Philippe 17/02/2023: IO: small fix: set NGRID=0 for 2 scalar
variables
---
src/MNH/read_field.f90 | 4 ++--
src/MNH/write_lfifm1_for_diag.f90 | 2 +-
src/MNH/write_lfin.f90 | 4 ++--
3 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/src/MNH/read_field.f90 b/src/MNH/read_field.f90
index 1488327fe..860010bde 100644
--- a/src/MNH/read_field.f90
+++ b/src/MNH/read_field.f90
@@ -671,7 +671,7 @@ TZFIELD = TFIELDMETADATA( &
CUNITS = '', &
CDIR = '--', &
CCOMMENT = '', &
- NGRID = 1, &
+ NGRID = 0, &
NTYPE = TYPELOG, &
NDIMS = 0, &
LTIMEDEP = .FALSE. )
@@ -1474,7 +1474,7 @@ IF ( LFORCING ) THEN
CUNITS = 'Pa', &
CDIR = '--', &
CCOMMENT = 'Forcing ground pressure', &
- NGRID = 1, &
+ NGRID = 0, &
NTYPE = TYPEREAL, &
NDIMS = 0, &
LTIMEDEP = .FALSE. )
diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90
index a6099e6a0..0347435ae 100644
--- a/src/MNH/write_lfifm1_for_diag.f90
+++ b/src/MNH/write_lfifm1_for_diag.f90
@@ -2169,7 +2169,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
CUNITS = 'Pa', &
CDIR = '--', &
CCOMMENT = 'Forcing ground pressure', &
- NGRID = 1, &
+ NGRID = 0, &
NTYPE = TYPEREAL, &
NDIMS = 0, &
LTIMEDEP = .FALSE. )
diff --git a/src/MNH/write_lfin.f90 b/src/MNH/write_lfin.f90
index 0eb4fca49..2da738140 100644
--- a/src/MNH/write_lfin.f90
+++ b/src/MNH/write_lfin.f90
@@ -424,7 +424,7 @@ TZFIELD = TFIELDMETADATA( &
CUNITS = '', &
CDIR = '--', &
CCOMMENT = '', &
- NGRID = 1, &
+ NGRID = 0, &
NTYPE = TYPELOG, &
NDIMS = 0, &
LTIMEDEP = .FALSE. )
@@ -1725,7 +1725,7 @@ IF (LFORCING) THEN
CUNITS = 'Pa', &
CDIR = '--', &
CCOMMENT = 'Forcing ground pressure', &
- NGRID = 1, &
+ NGRID = 0, &
NTYPE = TYPEREAL, &
NDIMS = 0, &
LTIMEDEP = .FALSE. )
--
GitLab