From a198c6073ce672524dd01c4be4a8f8fa0e9c1c47 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 18 Jan 2018 16:31:03 +0100
Subject: [PATCH] Philippe 18/01/2018: IO: small changes for some fields in
 TFIELDLIST

---
 src/LIB/SURCOUCHE/src/mode_field.f90 | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/LIB/SURCOUCHE/src/mode_field.f90 b/src/LIB/SURCOUCHE/src/mode_field.f90
index d1276e681..f29484af7 100644
--- a/src/LIB/SURCOUCHE/src/mode_field.f90
+++ b/src/LIB/SURCOUCHE/src/mode_field.f90
@@ -160,7 +160,7 @@ TFIELDLIST(IDX)%CMNHNAME   = 'BUGFIX'
 TFIELDLIST(IDX)%CSTDNAME   = ''
 TFIELDLIST(IDX)%CLONGNAME  = 'MesoNH bugfix number'
 TFIELDLIST(IDX)%CUNITS     = ''
-TFIELDLIST(IDX)%CDIR       = ''
+TFIELDLIST(IDX)%CDIR       = '--'
 TFIELDLIST(IDX)%CCOMMENT   = ''
 TFIELDLIST(IDX)%NGRID      = 0
 TFIELDLIST(IDX)%NTYPE      = TYPEINT
@@ -172,7 +172,7 @@ TFIELDLIST(IDX)%CMNHNAME   = 'BIBUSER'
 TFIELDLIST(IDX)%CSTDNAME   = ''
 TFIELDLIST(IDX)%CLONGNAME  = 'MesoNH: user binary library'
 TFIELDLIST(IDX)%CUNITS     = ''
-TFIELDLIST(IDX)%CDIR       = ''
+TFIELDLIST(IDX)%CDIR       = '--'
 TFIELDLIST(IDX)%CCOMMENT   = ''
 TFIELDLIST(IDX)%NGRID      = 0
 TFIELDLIST(IDX)%NTYPE      = TYPECHAR
@@ -196,7 +196,7 @@ TFIELDLIST(IDX)%CMNHNAME   = 'BUG'
 TFIELDLIST(IDX)%CSTDNAME   = ''
 TFIELDLIST(IDX)%CLONGNAME  = 'SURFEX bugfix number'
 TFIELDLIST(IDX)%CUNITS     = ''
-TFIELDLIST(IDX)%CDIR       = ''
+TFIELDLIST(IDX)%CDIR       = '--'
 TFIELDLIST(IDX)%CCOMMENT   = ''
 TFIELDLIST(IDX)%NGRID      = 0
 TFIELDLIST(IDX)%NTYPE      = TYPEINT
@@ -208,7 +208,7 @@ TFIELDLIST(IDX)%CMNHNAME   = 'PROGRAM'
 TFIELDLIST(IDX)%CSTDNAME   = ''
 TFIELDLIST(IDX)%CLONGNAME  = 'MesoNH family: used program'
 TFIELDLIST(IDX)%CUNITS     = ''
-TFIELDLIST(IDX)%CDIR       = ''
+TFIELDLIST(IDX)%CDIR       = '--'
 TFIELDLIST(IDX)%CCOMMENT   = ''
 TFIELDLIST(IDX)%NGRID      = 0
 TFIELDLIST(IDX)%NTYPE      = TYPECHAR
@@ -220,7 +220,7 @@ TFIELDLIST(IDX)%CMNHNAME   = 'FILETYPE'
 TFIELDLIST(IDX)%CSTDNAME   = ''
 TFIELDLIST(IDX)%CLONGNAME  = 'MesoNH: type of this file'
 TFIELDLIST(IDX)%CUNITS     = ''
-TFIELDLIST(IDX)%CDIR       = ''
+TFIELDLIST(IDX)%CDIR       = '--'
 TFIELDLIST(IDX)%CCOMMENT   = ''
 TFIELDLIST(IDX)%NGRID      = 0
 TFIELDLIST(IDX)%NTYPE      = TYPECHAR
@@ -232,7 +232,7 @@ TFIELDLIST(IDX)%CMNHNAME   = 'MY_NAME'
 TFIELDLIST(IDX)%CSTDNAME   = ''
 TFIELDLIST(IDX)%CLONGNAME  = 'MesoNH: filename (no extension)'
 TFIELDLIST(IDX)%CUNITS     = ''
-TFIELDLIST(IDX)%CDIR       = ''
+TFIELDLIST(IDX)%CDIR       = '--'
 TFIELDLIST(IDX)%CCOMMENT   = ''
 TFIELDLIST(IDX)%NGRID      = 0
 TFIELDLIST(IDX)%NTYPE      = TYPECHAR
@@ -244,7 +244,7 @@ TFIELDLIST(IDX)%CMNHNAME   = 'DAD_NAME'
 TFIELDLIST(IDX)%CSTDNAME   = ''
 TFIELDLIST(IDX)%CLONGNAME  = 'MesoNH: filename of the dad file'
 TFIELDLIST(IDX)%CUNITS     = ''
-TFIELDLIST(IDX)%CDIR       = ''
+TFIELDLIST(IDX)%CDIR       = '--'
 TFIELDLIST(IDX)%CCOMMENT   = ''
 TFIELDLIST(IDX)%NGRID      = 0
 TFIELDLIST(IDX)%NTYPE      = TYPECHAR
@@ -670,7 +670,7 @@ IDX = IDX+1
 !
 IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
 TFIELDLIST(IDX)%CMNHNAME   = 'ZS'
-TFIELDLIST(IDX)%CSTDNAME   = 'ground_level_altitude'
+TFIELDLIST(IDX)%CSTDNAME   = 'surface_altitude'
 TFIELDLIST(IDX)%CLONGNAME  = 'MesoNH: ZS'
 TFIELDLIST(IDX)%CUNITS     = 'm'
 TFIELDLIST(IDX)%CDIR       = 'XY'
-- 
GitLab