From e96000a9a9c7922a64c496c7f53be6b459f1892a Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 20 Feb 2023 10:56:29 +0100
Subject: [PATCH] Revert "Philippe 17/02/2023: IO: small fix: set NGRID=0 for 2
scalar variables"
This reverts commit 43dc3dba5f01a16f6cb04906d467b6ae3610f4cf.
---
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 860010bde..1488327fe 100644
--- a/src/MNH/read_field.f90
+++ b/src/MNH/read_field.f90
@@ -671,7 +671,7 @@ TZFIELD = TFIELDMETADATA( &
CUNITS = '', &
CDIR = '--', &
CCOMMENT = '', &
- NGRID = 0, &
+ NGRID = 1, &
NTYPE = TYPELOG, &
NDIMS = 0, &
LTIMEDEP = .FALSE. )
@@ -1474,7 +1474,7 @@ IF ( LFORCING ) THEN
CUNITS = 'Pa', &
CDIR = '--', &
CCOMMENT = 'Forcing ground pressure', &
- NGRID = 0, &
+ NGRID = 1, &
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 0347435ae..a6099e6a0 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 = 0, &
+ NGRID = 1, &
NTYPE = TYPEREAL, &
NDIMS = 0, &
LTIMEDEP = .FALSE. )
diff --git a/src/MNH/write_lfin.f90 b/src/MNH/write_lfin.f90
index 2da738140..0eb4fca49 100644
--- a/src/MNH/write_lfin.f90
+++ b/src/MNH/write_lfin.f90
@@ -424,7 +424,7 @@ TZFIELD = TFIELDMETADATA( &
CUNITS = '', &
CDIR = '--', &
CCOMMENT = '', &
- NGRID = 0, &
+ NGRID = 1, &
NTYPE = TYPELOG, &
NDIMS = 0, &
LTIMEDEP = .FALSE. )
@@ -1725,7 +1725,7 @@ IF (LFORCING) THEN
CUNITS = 'Pa', &
CDIR = '--', &
CCOMMENT = 'Forcing ground pressure', &
- NGRID = 0, &
+ NGRID = 1, &
NTYPE = TYPEREAL, &
NDIMS = 0, &
LTIMEDEP = .FALSE. )
--
GitLab