diff --git a/src/LIB/SURCOUCHE/src/mode_field.f90 b/src/LIB/SURCOUCHE/src/mode_field.f90
index 63b1cfb73a6d8e9c67422c3aaa0912df07689d84..f1efda9ef784a66032bd661bcec70df26d245f7e 100644
--- a/src/LIB/SURCOUCHE/src/mode_field.f90
+++ b/src/LIB/SURCOUCHE/src/mode_field.f90
@@ -237,7 +237,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'FILETYPE'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: type of this file'
+TFIELDLIST(IDX)%CLONGNAME = 'type of this file'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = ''
@@ -249,7 +249,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'MY_NAME'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: filename (no extension)'
+TFIELDLIST(IDX)%CLONGNAME = 'filename (no extension)'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = ''
@@ -261,7 +261,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DAD_NAME'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: filename of the dad file'
+TFIELDLIST(IDX)%CLONGNAME = 'filename of the dad file'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = ''
@@ -273,7 +273,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DXRATIO'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DXRATIO'
+TFIELDLIST(IDX)%CLONGNAME = 'DXRATIO'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Resolution ratio between this mesh and its father in x-direction'
@@ -285,7 +285,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DYRATIO'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DYRATIO'
+TFIELDLIST(IDX)%CLONGNAME = 'DYRATIO'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Resolution ratio between this mesh and its father in y-direction'
@@ -297,7 +297,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'XSIZE'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: XSIZE'
+TFIELDLIST(IDX)%CLONGNAME = 'XSIZE'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Number of model 1 grid points in x-direction in the model 2 physical domain'
@@ -309,7 +309,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'YSIZE'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: YSIZE'
+TFIELDLIST(IDX)%CLONGNAME = 'YSIZE'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Number of model 1 grid points in y-direction in the model 2 physical domain'
@@ -321,7 +321,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'XOR'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: XOR'
+TFIELDLIST(IDX)%CLONGNAME = 'XOR'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Horizontal position of this mesh relative to its father'
@@ -333,7 +333,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'YOR'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: YOR'
+TFIELDLIST(IDX)%CLONGNAME = 'YOR'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Vertical position of this mesh relative to its father'
@@ -345,7 +345,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'STORAGE_TYPE'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: STORAGE_TYPE'
+TFIELDLIST(IDX)%CLONGNAME = 'STORAGE_TYPE'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Storage type for the information written in the FM files'
@@ -357,7 +357,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'IMAX'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: IMAX'
+TFIELDLIST(IDX)%CLONGNAME = 'IMAX'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'x-dimension of the physical domain'
@@ -369,7 +369,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'JMAX'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: JMAX'
+TFIELDLIST(IDX)%CLONGNAME = 'JMAX'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'y-dimension of the physical domain'
@@ -381,7 +381,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'KMAX'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: KMAX'
+TFIELDLIST(IDX)%CLONGNAME = 'KMAX'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'z-dimension of the physical domain'
@@ -393,7 +393,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'JPHEXT'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: JPHEXT'
+TFIELDLIST(IDX)%CLONGNAME = 'JPHEXT'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Number of horizontal external points on each side'
@@ -405,7 +405,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RPK'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RPK'
+TFIELDLIST(IDX)%CLONGNAME = 'RPK'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Projection parameter for conformal projection'
@@ -417,7 +417,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LONORI'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LONORI'
+TFIELDLIST(IDX)%CLONGNAME = 'LONORI'
TFIELDLIST(IDX)%CUNITS = 'degree'
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Longitude of the point of coordinates x=0, y=0 for conformal projection'
@@ -429,7 +429,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LATORI'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LATORI'
+TFIELDLIST(IDX)%CLONGNAME = 'LATORI'
TFIELDLIST(IDX)%CUNITS = 'degree'
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Latitude of the point of coordinates x=0, y=0 for conformal projection'
@@ -441,7 +441,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'THINSHELL'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: THINSHELL'
+TFIELDLIST(IDX)%CLONGNAME = 'THINSHELL'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Logical for thinshell approximation'
@@ -453,7 +453,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LAT0'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LAT0'
+TFIELDLIST(IDX)%CLONGNAME = 'LAT0'
TFIELDLIST(IDX)%CUNITS = 'degree'
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Reference latitude for conformal projection'
@@ -465,7 +465,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LON0'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LON0'
+TFIELDLIST(IDX)%CLONGNAME = 'LON0'
TFIELDLIST(IDX)%CUNITS = 'degree'
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Reference longitude for conformal projection'
@@ -477,7 +477,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'BETA'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: BETA'
+TFIELDLIST(IDX)%CLONGNAME = 'BETA'
TFIELDLIST(IDX)%CUNITS = 'degree'
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Rotation angle for conformal projection'
@@ -490,7 +490,7 @@ IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'XHAT'
!TODO: check stdname
TFIELDLIST(IDX)%CSTDNAME = 'projection_x_coordinate'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: XHAT'
+TFIELDLIST(IDX)%CLONGNAME = 'XHAT'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XX'
TFIELDLIST(IDX)%CCOMMENT = 'Position x in the conformal or cartesian plane'
@@ -504,7 +504,7 @@ IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'YHAT'
!TODO: check stdname
TFIELDLIST(IDX)%CSTDNAME = 'projection_y_coordinate'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: YHAT'
+TFIELDLIST(IDX)%CLONGNAME = 'YHAT'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'YY'
TFIELDLIST(IDX)%CCOMMENT = 'Position y in the conformal or cartesian plane'
@@ -518,7 +518,7 @@ IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'ZHAT'
!TODO: check stdname
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: ZHAT'
+TFIELDLIST(IDX)%CLONGNAME = 'ZHAT'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Height level without orography'
@@ -531,7 +531,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'ZTOP'
TFIELDLIST(IDX)%CSTDNAME = 'altitude_at_top_of_atmosphere_model'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: ZTOP'
+TFIELDLIST(IDX)%CLONGNAME = 'ZTOP'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Height of top level'
@@ -545,7 +545,7 @@ IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DXHAT'
!TODO: check stdname
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DXHAT'
+TFIELDLIST(IDX)%CLONGNAME = 'DXHAT'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XX'
TFIELDLIST(IDX)%CCOMMENT = 'Horizontal stretching in x'
@@ -559,7 +559,7 @@ IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DYHAT'
!TODO: check stdname
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DYHAT'
+TFIELDLIST(IDX)%CLONGNAME = 'DYHAT'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'YY'
TFIELDLIST(IDX)%CCOMMENT = 'Horizontal stretching in y'
@@ -572,7 +572,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'ALT'
TFIELDLIST(IDX)%CSTDNAME = 'altitude'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: ALT'
+TFIELDLIST(IDX)%CLONGNAME = 'ALT'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_ALTitude'
@@ -585,7 +585,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DIRCOSXW'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DIRCOSXW'
+TFIELDLIST(IDX)%CLONGNAME = 'DIRCOSXW'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X director cosinus of the normal to the ground surface'
@@ -598,7 +598,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DIRCOSYW'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DIRCOSYW'
+TFIELDLIST(IDX)%CLONGNAME = 'DIRCOSYW'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'Y director cosinus of the normal to the ground surface'
@@ -611,7 +611,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DIRCOSZW'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DIRCOSZW'
+TFIELDLIST(IDX)%CLONGNAME = 'DIRCOSZW'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'Z director cosinus of the normal to the ground surface'
@@ -624,7 +624,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'COSSLOPE'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: COSSLOPE'
+TFIELDLIST(IDX)%CLONGNAME = 'COSSLOPE'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'cosinus of the angle between i and the slope vector'
@@ -637,7 +637,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'SINSLOPE'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: SINSLOPE'
+TFIELDLIST(IDX)%CLONGNAME = 'SINSLOPE'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'sinus of the angle between i and the slope vector'
@@ -651,7 +651,7 @@ IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'MAP'
!TODO: check stdname
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: MAP'
+TFIELDLIST(IDX)%CLONGNAME = 'MAP'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'Map factor'
@@ -769,7 +769,7 @@ IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LAT'
! TFIELDLIST(IDX)%CSTDNAME = 'latitude'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LAT'
+TFIELDLIST(IDX)%CLONGNAME = 'LAT'
TFIELDLIST(IDX)%CUNITS = 'degrees_north'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_latitude'
@@ -783,7 +783,7 @@ IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LON'
! TFIELDLIST(IDX)%CSTDNAME = 'longitude'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LON'
+TFIELDLIST(IDX)%CLONGNAME = 'LON'
TFIELDLIST(IDX)%CUNITS = 'degrees_east'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_longitude'
@@ -796,7 +796,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'ZS'
TFIELDLIST(IDX)%CSTDNAME = 'surface_altitude'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: ZS'
+TFIELDLIST(IDX)%CLONGNAME = 'ZS'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'orography'
@@ -809,7 +809,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'ZSMT'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: ZSMT'
+TFIELDLIST(IDX)%CLONGNAME = 'ZSMT'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'smooth orography'
@@ -822,7 +822,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'SLEVE'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: SLEVE'
+TFIELDLIST(IDX)%CLONGNAME = 'SLEVE'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Logical for SLEVE coordinate'
@@ -835,7 +835,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LEN1'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LEN1'
+TFIELDLIST(IDX)%CLONGNAME = 'LEN1'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Decay scale for smooth topography'
@@ -848,7 +848,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LEN2'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LEN2'
+TFIELDLIST(IDX)%CLONGNAME = 'LEN2'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Decay scale for small-scale topography deviation'
@@ -861,7 +861,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DTMOD'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DTMOD'
+TFIELDLIST(IDX)%CLONGNAME = 'DTMOD'
TFIELDLIST(IDX)%CUNITS = 'seconds since YYYY-MM-DD HH:MM:SS.S'
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Time and date of model beginning'
@@ -874,7 +874,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DTCUR'
TFIELDLIST(IDX)%CSTDNAME = 'time'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DTCUR'
+TFIELDLIST(IDX)%CLONGNAME = 'DTCUR'
TFIELDLIST(IDX)%CUNITS = 'seconds since YYYY-MM-DD HH:MM:SS.S'
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Current time and date'
@@ -887,7 +887,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DTRAD_FULL'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DTRAD_FULL'
+TFIELDLIST(IDX)%CLONGNAME = 'DTRAD_FULL'
TFIELDLIST(IDX)%CUNITS = 'seconds since YYYY-MM-DD HH:MM:SS.S'
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Time and date of last full radiation call'
@@ -900,7 +900,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DTRAD_CLLY'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DTRAD_CLLY'
+TFIELDLIST(IDX)%CLONGNAME = 'DTRAD_CLLY'
TFIELDLIST(IDX)%CUNITS = 'seconds since YYYY-MM-DD HH:MM:SS.S'
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Time and date of last radiation call for only cloudy verticals'
@@ -913,7 +913,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DTDCONV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DTDCONV'
+TFIELDLIST(IDX)%CLONGNAME = 'DTDCONV'
TFIELDLIST(IDX)%CUNITS = 'seconds since YYYY-MM-DD HH:MM:SS.S'
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Time and date of the last deep convection call'
@@ -926,7 +926,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DTEXP'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DTEXP'
+TFIELDLIST(IDX)%CLONGNAME = 'DTEXP'
TFIELDLIST(IDX)%CUNITS = 'seconds since YYYY-MM-DD HH:MM:SS.S'
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Time and date of experiment beginning'
@@ -938,7 +938,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DTSEG'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DTSEG'
+TFIELDLIST(IDX)%CLONGNAME = 'DTSEG'
TFIELDLIST(IDX)%CUNITS = 'seconds since YYYY-MM-DD HH:MM:SS.S'
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Time and date of segment beginning'
@@ -950,7 +950,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'L1D'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: L1D'
+TFIELDLIST(IDX)%CLONGNAME = 'L1D'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Logical for 1D model version'
@@ -962,7 +962,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'L2D'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: L2D'
+TFIELDLIST(IDX)%CLONGNAME = 'L2D'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Logical for 2D model version'
@@ -974,7 +974,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'PACK'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: PACK'
+TFIELDLIST(IDX)%CLONGNAME = 'PACK'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Logical to compress 1D or 2D FM files'
@@ -986,7 +986,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'CARTESIAN'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: CARTESIAN'
+TFIELDLIST(IDX)%CLONGNAME = 'CARTESIAN'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Logical for cartesian geometry'
@@ -998,7 +998,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LBOUSS'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LBOUSS'
+TFIELDLIST(IDX)%CLONGNAME = 'LBOUSS'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Logical for Boussinesq approximation'
@@ -1010,7 +1010,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'SURF'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: SURF'
+TFIELDLIST(IDX)%CLONGNAME = 'SURF'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Kind of surface processes parameterization'
@@ -1023,7 +1023,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'CPL_AROME'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: CPL_AROME'
+TFIELDLIST(IDX)%CLONGNAME = 'CPL_AROME'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Logical for AROME coupling file'
@@ -1035,7 +1035,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'COUPLING'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: COUPLING'
+TFIELDLIST(IDX)%CLONGNAME = 'COUPLING'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Logical for coupling file'
@@ -1047,7 +1047,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'UT'
TFIELDLIST(IDX)%CSTDNAME = 'x_wind'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: UT'
+TFIELDLIST(IDX)%CLONGNAME = 'UT'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_U component of wind'
@@ -1060,7 +1060,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'VT'
TFIELDLIST(IDX)%CSTDNAME = 'y_wind'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: VT'
+TFIELDLIST(IDX)%CLONGNAME = 'VT'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_V component of wind'
@@ -1073,7 +1073,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'WT'
TFIELDLIST(IDX)%CSTDNAME = 'upward_air_velocity'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: WT'
+TFIELDLIST(IDX)%CLONGNAME = 'WT'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_vertical wind'
@@ -1086,7 +1086,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'THT'
TFIELDLIST(IDX)%CSTDNAME = 'air_potential_temperature'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: THT'
+TFIELDLIST(IDX)%CLONGNAME = 'THT'
TFIELDLIST(IDX)%CUNITS = 'K'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_potential temperature'
@@ -1099,7 +1099,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'UM'
TFIELDLIST(IDX)%CSTDNAME = 'x_wind'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: UM'
+TFIELDLIST(IDX)%CLONGNAME = 'UM'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_U component of wind'
@@ -1112,7 +1112,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'VM'
TFIELDLIST(IDX)%CSTDNAME = 'y_wind'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: VM'
+TFIELDLIST(IDX)%CLONGNAME = 'VM'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_V component of wind'
@@ -1125,7 +1125,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'WM'
TFIELDLIST(IDX)%CSTDNAME = 'upward_air_velocity'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: WM'
+TFIELDLIST(IDX)%CLONGNAME = 'WM'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_vertical wind'
@@ -1138,7 +1138,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DUM'
TFIELDLIST(IDX)%CSTDNAME = 'x_wind'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DUM'
+TFIELDLIST(IDX)%CLONGNAME = 'DUM'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_U component of wind'
@@ -1151,7 +1151,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DVM'
TFIELDLIST(IDX)%CSTDNAME = 'y_wind'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DVM'
+TFIELDLIST(IDX)%CLONGNAME = 'DVM'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_V component of wind'
@@ -1164,7 +1164,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DWM'
TFIELDLIST(IDX)%CSTDNAME = 'upward_air_velocit'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DWM'
+TFIELDLIST(IDX)%CLONGNAME = 'DWM'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_vertical wind'
@@ -1177,7 +1177,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'TKET'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: TKET'
+TFIELDLIST(IDX)%CLONGNAME = 'TKET'
TFIELDLIST(IDX)%CUNITS = 'm2 s-2'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Turbulent Kinetic Energy'
@@ -1190,7 +1190,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'TKEMS'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: TKEMS'
+TFIELDLIST(IDX)%CLONGNAME = 'TKEMS'
TFIELDLIST(IDX)%CUNITS = 'm2 s-3'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Turbulent Kinetic Energy adv source'
@@ -1203,7 +1203,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'PABST'
TFIELDLIST(IDX)%CSTDNAME = 'air_pressure'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: PABST'
+TFIELDLIST(IDX)%CLONGNAME = 'PABST'
TFIELDLIST(IDX)%CUNITS = 'Pa'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_ABSolute Pressure'
@@ -1216,7 +1216,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RT'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RT'
+TFIELDLIST(IDX)%CLONGNAME = 'RT'
TFIELDLIST(IDX)%CUNITS = 'kg kg-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'Moist variables (rho Rn)'
@@ -1230,7 +1230,7 @@ IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RVT'
!TODO: check stdname
TFIELDLIST(IDX)%CSTDNAME = 'humidity_mixing_ratio'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RVT'
+TFIELDLIST(IDX)%CLONGNAME = 'RVT'
TFIELDLIST(IDX)%CUNITS = 'kg kg-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Vapor mixing Ratio'
@@ -1243,7 +1243,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RCT'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RCT'
+TFIELDLIST(IDX)%CLONGNAME = 'RCT'
TFIELDLIST(IDX)%CUNITS = 'kg kg-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Cloud mixing Ratio'
@@ -1256,7 +1256,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RRT'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RRT'
+TFIELDLIST(IDX)%CLONGNAME = 'RRT'
TFIELDLIST(IDX)%CUNITS = 'kg kg-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Rain mixing Ratio'
@@ -1270,7 +1270,7 @@ IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RIT'
!TODO: check stdname
TFIELDLIST(IDX)%CSTDNAME = 'cloud_ice_mixing_ratio'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RIT'
+TFIELDLIST(IDX)%CLONGNAME = 'RIT'
TFIELDLIST(IDX)%CUNITS = 'kg kg-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Ice mixing Ratio'
@@ -1283,7 +1283,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RST'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RST'
+TFIELDLIST(IDX)%CLONGNAME = 'RST'
TFIELDLIST(IDX)%CUNITS = 'kg kg-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Snow mixing Ratio'
@@ -1296,7 +1296,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RGT'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RGT'
+TFIELDLIST(IDX)%CLONGNAME = 'RGT'
TFIELDLIST(IDX)%CUNITS = 'kg kg-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Graupel mixing Ratio'
@@ -1309,7 +1309,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RHT'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RHT'
+TFIELDLIST(IDX)%CLONGNAME = 'RHT'
TFIELDLIST(IDX)%CUNITS = 'kg kg-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Hail mixing Ratio'
@@ -1322,7 +1322,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'SUPSATMAX'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: SUPSATMAX'
+TFIELDLIST(IDX)%CLONGNAME = 'SUPSATMAX'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Supersaturation'
@@ -1335,7 +1335,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'NACT'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: NACT'
+TFIELDLIST(IDX)%CLONGNAME = 'NACT'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Nact'
@@ -1348,7 +1348,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'SSPRO'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: SSPRO'
+TFIELDLIST(IDX)%CLONGNAME = 'SSPRO'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Supersaturation'
@@ -1361,7 +1361,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'NPRO'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: NPRO'
+TFIELDLIST(IDX)%CLONGNAME = 'NPRO'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Nact'
@@ -1374,7 +1374,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'INPAP'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: INPAP'
+TFIELDLIST(IDX)%CLONGNAME = 'INPAP'
TFIELDLIST(IDX)%CUNITS = 'kg m-2 s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_INstantaneous Precipitating Aerosol Rate'
@@ -1387,7 +1387,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'ACPAP'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: ACPAP'
+TFIELDLIST(IDX)%CLONGNAME = 'ACPAP'
TFIELDLIST(IDX)%CUNITS = 'kg m-2'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_ACcumulated Precipitating Aerosol Rate'
@@ -1400,7 +1400,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'EFIELDU'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: EFIELDU'
+TFIELDLIST(IDX)%CLONGNAME = 'EFIELDU'
TFIELDLIST(IDX)%CUNITS = 'V m-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_EFIELDU'
@@ -1413,7 +1413,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'EFIELDV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: EFIELDV'
+TFIELDLIST(IDX)%CLONGNAME = 'EFIELDV'
TFIELDLIST(IDX)%CUNITS = 'V m-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_EFIELDV'
@@ -1426,7 +1426,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'EFIELDW'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: EFIELDW'
+TFIELDLIST(IDX)%CLONGNAME = 'EFIELDW'
TFIELDLIST(IDX)%CUNITS = 'V m-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_EFIELDW'
@@ -1439,7 +1439,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'NI_IAGGS'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: NI_IAGGS'
+TFIELDLIST(IDX)%CLONGNAME = 'NI_IAGGS'
TFIELDLIST(IDX)%CUNITS = 'C m-3 s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_NI_IAGGS'
@@ -1452,7 +1452,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'NI_IDRYG'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: NI_IDRYG'
+TFIELDLIST(IDX)%CLONGNAME = 'NI_IDRYG'
TFIELDLIST(IDX)%CUNITS = 'C m-3 s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_NI_IDRYG'
@@ -1465,7 +1465,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'NI_SDRYG'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: NI_SDRYG'
+TFIELDLIST(IDX)%CLONGNAME = 'NI_SDRYG'
TFIELDLIST(IDX)%CUNITS = 'C m-3 s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_NI_SDRYG'
@@ -1478,7 +1478,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'INDUC_CG'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: INDUC_CG'
+TFIELDLIST(IDX)%CLONGNAME = 'INDUC_CG'
TFIELDLIST(IDX)%CUNITS = 'C m-3 s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_INDUC_CG'
@@ -1491,7 +1491,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'TRIG_IC'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: TRIG_IC'
+TFIELDLIST(IDX)%CLONGNAME = 'TRIG_IC'
TFIELDLIST(IDX)%CUNITS = '1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_FLASH_MAP_TRIG_IC'
@@ -1503,7 +1503,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'IMPACT_CG'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: IMPACT_CG'
+TFIELDLIST(IDX)%CLONGNAME = 'IMPACT_CG'
TFIELDLIST(IDX)%CUNITS = '1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_FLASH_MAP_IMPACT_CG'
@@ -1515,7 +1515,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'AREA_CG'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: AREA_CG'
+TFIELDLIST(IDX)%CLONGNAME = 'AREA_CG'
TFIELDLIST(IDX)%CUNITS = '1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_FLASH_MAP_2DAREA_CG'
@@ -1527,7 +1527,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'AREA_IC'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: AREA_IC'
+TFIELDLIST(IDX)%CLONGNAME = 'AREA_IC'
TFIELDLIST(IDX)%CUNITS = '1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_FLASH_MAP_2DAREA_IC'
@@ -1539,7 +1539,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'FLASH_3DCG'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: FLASH_3DCG'
+TFIELDLIST(IDX)%CLONGNAME = 'FLASH_3DCG'
TFIELDLIST(IDX)%CUNITS = '1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_FLASH_MAP_3DCG'
@@ -1551,7 +1551,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'FLASH_3DIC'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: FLASH_3DIC'
+TFIELDLIST(IDX)%CLONGNAME = 'FLASH_3DIC'
TFIELDLIST(IDX)%CUNITS = '1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_FLASH_MAP_3DIC'
@@ -1563,7 +1563,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'PHC'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: PHC'
+TFIELDLIST(IDX)%CLONGNAME = 'PHC'
TFIELDLIST(IDX)%CUNITS = '1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'pH in cloud'
@@ -1576,7 +1576,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'PHR'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: PHR'
+TFIELDLIST(IDX)%CLONGNAME = 'PHR'
TFIELDLIST(IDX)%CUNITS = '1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'pH in rain'
@@ -1589,7 +1589,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LSUM'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LSUM'
+TFIELDLIST(IDX)%CLONGNAME = 'LSUM'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Large Scale U component'
@@ -1602,7 +1602,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LSVM'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LSVM'
+TFIELDLIST(IDX)%CLONGNAME = 'LSVM'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Large Scale V component'
@@ -1615,7 +1615,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LSWM'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LSWM'
+TFIELDLIST(IDX)%CLONGNAME = 'LSWM'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Large Scale vertical wind'
@@ -1628,7 +1628,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LSTHM'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LSTHM'
+TFIELDLIST(IDX)%CLONGNAME = 'LSTHM'
TFIELDLIST(IDX)%CUNITS = 'K'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Large Scale potential Temperature'
@@ -1641,7 +1641,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LSRVM'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LSRVM'
+TFIELDLIST(IDX)%CLONGNAME = 'LSRVM'
TFIELDLIST(IDX)%CUNITS = 'kg kg-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Large Scale Vapor Mixing Ratio'
@@ -1654,7 +1654,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RIMX'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RIMX'
+TFIELDLIST(IDX)%CLONGNAME = 'RIMX'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Number of points in the lateral absorbing layer in the x direction'
@@ -1667,7 +1667,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RIMY'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RIMY'
+TFIELDLIST(IDX)%CLONGNAME = 'RIMY'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Number of points in the lateral absorbing layer in the y direction'
@@ -1680,7 +1680,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'HORELAX_UVWTH'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: HORELAX_UVWTH'
+TFIELDLIST(IDX)%CLONGNAME = 'HORELAX_UVWTH'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Switch to activate the HOrizontal RELAXation'
@@ -1693,7 +1693,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LBXUM'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LBXUM'
+TFIELDLIST(IDX)%CLONGNAME = 'LBXUM'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
! TFIELDLIST(IDX)%CDIR = ''
TFIELDLIST(IDX)%CLBTYPE = 'LBXU'
@@ -1707,7 +1707,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LBXVM'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LBXVM'
+TFIELDLIST(IDX)%CLONGNAME = 'LBXVM'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
! TFIELDLIST(IDX)%CDIR = ''
TFIELDLIST(IDX)%CLBTYPE = 'LBX'
@@ -1721,7 +1721,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LBXWM'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LBXWM'
+TFIELDLIST(IDX)%CLONGNAME = 'LBXWM'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
! TFIELDLIST(IDX)%CDIR = ''
TFIELDLIST(IDX)%CLBTYPE = 'LBX'
@@ -1735,7 +1735,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LBYUM'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LBYUM'
+TFIELDLIST(IDX)%CLONGNAME = 'LBYUM'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
! TFIELDLIST(IDX)%CDIR = ''
TFIELDLIST(IDX)%CLBTYPE = 'LBY'
@@ -1749,7 +1749,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LBYVM'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LBYVM'
+TFIELDLIST(IDX)%CLONGNAME = 'LBYVM'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
! TFIELDLIST(IDX)%CDIR = ''
TFIELDLIST(IDX)%CLBTYPE = 'LBYV'
@@ -1763,7 +1763,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LBYWM'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LBYWM'
+TFIELDLIST(IDX)%CLONGNAME = 'LBYWM'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
! TFIELDLIST(IDX)%CDIR = ''
TFIELDLIST(IDX)%CLBTYPE = 'LBY'
@@ -1777,7 +1777,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LBXTHM'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LBXTHM'
+TFIELDLIST(IDX)%CLONGNAME = 'LBXTHM'
TFIELDLIST(IDX)%CUNITS = 'K'
! TFIELDLIST(IDX)%CDIR = ''
TFIELDLIST(IDX)%CLBTYPE = 'LBX'
@@ -1791,7 +1791,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LBYTHM'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LBYTHM'
+TFIELDLIST(IDX)%CLONGNAME = 'LBYTHM'
TFIELDLIST(IDX)%CUNITS = 'K'
! TFIELDLIST(IDX)%CDIR = ''
TFIELDLIST(IDX)%CLBTYPE = 'LBY'
@@ -1805,7 +1805,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'HORELAX_TKE'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: HORELAX_TKE'
+TFIELDLIST(IDX)%CLONGNAME = 'HORELAX_TKE'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Switch to activate the HOrizontal RELAXation'
@@ -1818,7 +1818,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LBXTKEM'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LBXTKEM'
+TFIELDLIST(IDX)%CLONGNAME = 'LBXTKEM'
TFIELDLIST(IDX)%CUNITS = 'm2 s-2'
! TFIELDLIST(IDX)%CDIR = ''
TFIELDLIST(IDX)%CLBTYPE = 'LBX'
@@ -1832,7 +1832,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'LBYTKEM'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: LBYTKEM'
+TFIELDLIST(IDX)%CLONGNAME = 'LBYTKEM'
TFIELDLIST(IDX)%CUNITS = 'm2 s-2'
! TFIELDLIST(IDX)%CDIR = ''
TFIELDLIST(IDX)%CLBTYPE = 'LBY'
@@ -1846,7 +1846,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DRYMASST'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DRYMASST'
+TFIELDLIST(IDX)%CLONGNAME = 'DRYMASST'
TFIELDLIST(IDX)%CUNITS = 'kg'
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Total Dry Mass'
@@ -1859,7 +1859,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'BL_DEPTH'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: BL_DEPTH'
+TFIELDLIST(IDX)%CLONGNAME = 'BL_DEPTH'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_BL_DEPTH'
@@ -1872,7 +1872,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'SBL_DEPTH'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: SBL_DEPTH'
+TFIELDLIST(IDX)%CLONGNAME = 'SBL_DEPTH'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_BL_SDEPTH'
@@ -1885,7 +1885,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'WTHVMF'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: WTHVMF'
+TFIELDLIST(IDX)%CLONGNAME = 'WTHVMF'
TFIELDLIST(IDX)%CUNITS = 'm K s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_WTHVMF'
@@ -1898,7 +1898,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'SRCT'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: SRCT'
+TFIELDLIST(IDX)%CLONGNAME = 'SRCT'
TFIELDLIST(IDX)%CUNITS = 'kg kg-2'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_normalized 2nd_order moment s_r_c/2Sigma_s2'
@@ -1911,7 +1911,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'SIGS'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: SIGS'
+TFIELDLIST(IDX)%CLONGNAME = 'SIGS'
TFIELDLIST(IDX)%CUNITS = 'kg kg-2'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Sigma_s from turbulence scheme'
@@ -1924,7 +1924,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RHOREFZ'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RHOREFZ'
+TFIELDLIST(IDX)%CLONGNAME = 'RHOREFZ'
TFIELDLIST(IDX)%CUNITS = 'kg m-3'
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'rhodz for reference state without orography'
@@ -1937,7 +1937,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'THVREFZ'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: THVREFZ'
+TFIELDLIST(IDX)%CLONGNAME = 'THVREFZ'
TFIELDLIST(IDX)%CUNITS = 'K'
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'thetavz for reference state without orography'
@@ -1950,7 +1950,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'EXNTOP'
TFIELDLIST(IDX)%CSTDNAME = 'dimensionless_exner_function'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: EXNTOP'
+TFIELDLIST(IDX)%CLONGNAME = 'EXNTOP'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = '--'
TFIELDLIST(IDX)%CCOMMENT = 'Exner function at model top'
@@ -1965,7 +1965,7 @@ IF (TRIM(CPROGRAM) == 'MESONH' .OR. TRIM(CPROGRAM) == 'DIAG') THEN
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'US_PRES'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: US_PRES'
+TFIELDLIST(IDX)%CLONGNAME = 'US_PRES'
!TODO: units?
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
@@ -1979,7 +1979,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'VS_PRES'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: VS_PRES'
+TFIELDLIST(IDX)%CLONGNAME = 'VS_PRES'
!TODO: units?
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
@@ -1993,7 +1993,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'WS_PRES'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: WS_PRES'
+TFIELDLIST(IDX)%CLONGNAME = 'WS_PRES'
!TODO: units?
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
@@ -2007,7 +2007,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'THS_CLD'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: THS_CLD'
+TFIELDLIST(IDX)%CLONGNAME = 'THS_CLD'
!TODO: units?
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
@@ -2021,7 +2021,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RS_CLD'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RS_CLD'
+TFIELDLIST(IDX)%CLONGNAME = 'RS_CLD'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'Source of Moist variables'
@@ -2034,7 +2034,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RVS_CLD'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RVS_CLD'
+TFIELDLIST(IDX)%CLONGNAME = 'RVS_CLD'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_RVS_CLD'
@@ -2047,7 +2047,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RCS_CLD'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RCS_CLD'
+TFIELDLIST(IDX)%CLONGNAME = 'RCS_CLD'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_RCS_CLD'
@@ -2060,7 +2060,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RRS_CLD'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RRS_CLD'
+TFIELDLIST(IDX)%CLONGNAME = 'RRS_CLD'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_RRS_CLD'
@@ -2073,7 +2073,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RIS_CLD'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RIS_CLD'
+TFIELDLIST(IDX)%CLONGNAME = 'RIS_CLD'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_RIS_CLD'
@@ -2086,7 +2086,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RSS_CLD'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RSS_CLD'
+TFIELDLIST(IDX)%CLONGNAME = 'RSS_CLD'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_RSS_CLD'
@@ -2099,7 +2099,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RGS_CLD'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RGS_CLD'
+TFIELDLIST(IDX)%CLONGNAME = 'RGS_CLD'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_RGS_CLD'
@@ -2112,7 +2112,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RHS_CLD'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RHS_CLD'
+TFIELDLIST(IDX)%CLONGNAME = 'RHS_CLD'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_RHS_CLD'
@@ -2125,7 +2125,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'CLDFR'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: CLDFR'
+TFIELDLIST(IDX)%CLONGNAME = 'CLDFR'
TFIELDLIST(IDX)%CUNITS = '1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_CLouD FRaction'
@@ -2138,7 +2138,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'CIT'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: CIT'
+TFIELDLIST(IDX)%CLONGNAME = 'CIT'
TFIELDLIST(IDX)%CUNITS = 'm-3'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Cloud Ice concentration'
@@ -2154,7 +2154,7 @@ END IF ! CPROGRAM=MESONH .OR. DIAG
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RHODREF'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RHODREF'
+TFIELDLIST(IDX)%CLONGNAME = 'RHODREF'
TFIELDLIST(IDX)%CUNITS = 'kg m-3'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'Dry density for reference state with orography'
@@ -2167,7 +2167,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'THVREF'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: THVREF'
+TFIELDLIST(IDX)%CLONGNAME = 'THVREF'
TFIELDLIST(IDX)%CUNITS = 'K'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'Thetav for reference state with orography'
@@ -2183,7 +2183,7 @@ IF (TRIM(CPROGRAM)=='MESONH' .OR. TRIM(CPROGRAM)=='DIAG') THEN
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DTHRAD'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DTHRAD'
+TFIELDLIST(IDX)%CLONGNAME = 'DTHRAD'
TFIELDLIST(IDX)%CUNITS = 'K s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_RADiative heating/cooling rate'
@@ -2196,7 +2196,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'FLALWD'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: FLALWD'
+TFIELDLIST(IDX)%CLONGNAME = 'FLALWD'
TFIELDLIST(IDX)%CUNITS = 'W m-2'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Downward Long Waves on FLAT surface'
@@ -2209,7 +2209,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DIRFLASWD'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DIRFLASWD'
+TFIELDLIST(IDX)%CLONGNAME = 'DIRFLASWD'
TFIELDLIST(IDX)%CUNITS = 'W m-2'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_DIRect Downward Short Waves on FLAT surface'
@@ -2222,7 +2222,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'SCAFLASWD'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: SCAFLASWD'
+TFIELDLIST(IDX)%CLONGNAME = 'SCAFLASWD'
TFIELDLIST(IDX)%CUNITS = 'W m-2'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_SCAttered Downward Short Waves on FLAT surface'
@@ -2235,7 +2235,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DIRSRFSWD'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DIRSRFSWD'
+TFIELDLIST(IDX)%CLONGNAME = 'DIRSRFSWD'
TFIELDLIST(IDX)%CUNITS = 'W m-2'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_DIRect Downward Short Waves'
@@ -2248,7 +2248,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'CLEARCOL_TM1'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: CLEARCOL_TM1'
+TFIELDLIST(IDX)%CLONGNAME = 'CLEARCOL_TM1'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'TRACE OF CLOUD'
@@ -2261,7 +2261,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'ZENITH'
TFIELDLIST(IDX)%CSTDNAME = 'zenith_angle'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: ZENITH'
+TFIELDLIST(IDX)%CLONGNAME = 'ZENITH'
TFIELDLIST(IDX)%CUNITS = 'rad'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_ZENITH'
@@ -2274,7 +2274,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'AZIM'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: AZIM'
+TFIELDLIST(IDX)%CLONGNAME = 'AZIM'
TFIELDLIST(IDX)%CUNITS = 'rad'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_AZIMuth'
@@ -2287,7 +2287,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DIR_ALB'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DIR_ALB'
+TFIELDLIST(IDX)%CLONGNAME = 'DIR_ALB'
TFIELDLIST(IDX)%CUNITS = '1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_DIRect ALBedo'
@@ -2300,7 +2300,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'SCA_ALB'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: SCA_ALB'
+TFIELDLIST(IDX)%CLONGNAME = 'SCA_ALB'
TFIELDLIST(IDX)%CUNITS = '1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_SCAttered ALBedo'
@@ -2313,7 +2313,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'EMIS'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: EMIS'
+TFIELDLIST(IDX)%CLONGNAME = 'EMIS'
TFIELDLIST(IDX)%CUNITS = '1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_EMISsivity'
@@ -2326,7 +2326,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'TSRAD'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: TSRAD'
+TFIELDLIST(IDX)%CLONGNAME = 'TSRAD'
TFIELDLIST(IDX)%CUNITS = 'K'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_RADiative Surface Temperature'
@@ -2344,7 +2344,7 @@ IF (TRIM(CPROGRAM) /= 'PGD' .AND. TRIM(CPROGRAM) /= 'NESPGD' .AND. TRIM(CPROGRAM
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'COUNTCONV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: COUNTCONV'
+TFIELDLIST(IDX)%CLONGNAME = 'COUNTCONV'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_COUNTCONV'
@@ -2357,7 +2357,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DTHCONV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DTHCONV'
+TFIELDLIST(IDX)%CLONGNAME = 'DTHCONV'
TFIELDLIST(IDX)%CUNITS = 'K s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_CONVective heating/cooling rate'
@@ -2370,7 +2370,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DRVCONV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DRVCONV'
+TFIELDLIST(IDX)%CLONGNAME = 'DRVCONV'
TFIELDLIST(IDX)%CUNITS = 's-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_CONVective R_v tendency'
@@ -2383,7 +2383,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DRCCONV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DRCCONV'
+TFIELDLIST(IDX)%CLONGNAME = 'DRCCONV'
TFIELDLIST(IDX)%CUNITS = 's-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_CONVective R_c tendency'
@@ -2396,7 +2396,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DRICONV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DRICONV'
+TFIELDLIST(IDX)%CLONGNAME = 'DRICONV'
TFIELDLIST(IDX)%CUNITS = 's-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_CONVective R_i tendency'
@@ -2409,7 +2409,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'PRCONV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: PRCONV'
+TFIELDLIST(IDX)%CLONGNAME = 'PRCONV'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_CONVective instantaneous Precipitation Rate'
@@ -2422,7 +2422,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'PACCONV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: PACCONV'
+TFIELDLIST(IDX)%CLONGNAME = 'PACCONV'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_CONVective ACcumulated Precipitation rate'
@@ -2435,7 +2435,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'PRSCONV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: PRSCONV'
+TFIELDLIST(IDX)%CLONGNAME = 'PRSCONV'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_CONVective instantaneous Precipitation Rate for Snow'
@@ -2448,7 +2448,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DSVCONV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DSVCONV'
+TFIELDLIST(IDX)%CLONGNAME = 'DSVCONV'
TFIELDLIST(IDX)%CUNITS = 's-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'Tracer tendencies'
@@ -2461,7 +2461,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'PRLFLXCONV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: PRLFLXCONV'
+TFIELDLIST(IDX)%CLONGNAME = 'PRLFLXCONV'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Liquid Precipitation Convective Flux'
@@ -2474,7 +2474,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'PRSFLXCONV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: PRSFLXCONV'
+TFIELDLIST(IDX)%CLONGNAME = 'PRSFLXCONV'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Solid Precipitation Convective Flux'
@@ -2487,7 +2487,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'UMFCONV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: UMFCONV'
+TFIELDLIST(IDX)%CLONGNAME = 'UMFCONV'
TFIELDLIST(IDX)%CUNITS = 'kg s-1 m-2'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Updraft Convective Mass Flux'
@@ -2500,7 +2500,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'DMFCONV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: DMFCONV'
+TFIELDLIST(IDX)%CLONGNAME = 'DMFCONV'
TFIELDLIST(IDX)%CUNITS = 'kg s-1 m-2'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Downdraft Convective Mass Flux'
@@ -2513,7 +2513,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'MFCONV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: MFCONV'
+TFIELDLIST(IDX)%CLONGNAME = 'MFCONV'
TFIELDLIST(IDX)%CUNITS = 'kg s-1 m-2'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Convective Mass Flux'
@@ -2526,7 +2526,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'CAPE'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: CAPE'
+TFIELDLIST(IDX)%CLONGNAME = 'CAPE'
TFIELDLIST(IDX)%CUNITS = 'J kg-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Convective Available Potentiel Energy'
@@ -2539,7 +2539,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'CLTOPCONV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: CLTOPCONV'
+TFIELDLIST(IDX)%CLONGNAME = 'CLTOPCONV'
TFIELDLIST(IDX)%CUNITS = '1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'Convective cloud top level'
@@ -2552,7 +2552,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'CLBASCONV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: CLBASCONV'
+TFIELDLIST(IDX)%CLONGNAME = 'CLBASCONV'
TFIELDLIST(IDX)%CUNITS = '1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'Convective cloud base level'
@@ -2565,7 +2565,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'IC_RATE'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: IC_RATE'
+TFIELDLIST(IDX)%CLONGNAME = 'IC_RATE'
TFIELDLIST(IDX)%CUNITS = 's-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_IntraCloud lightning Rate'
@@ -2578,7 +2578,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'CG_RATE'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: CG_RATE'
+TFIELDLIST(IDX)%CLONGNAME = 'CG_RATE'
TFIELDLIST(IDX)%CUNITS = 's-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_CloudGround lightning Rate'
@@ -2591,7 +2591,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'IC_TOTAL_NB'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: IC_TOTAL_NB'
+TFIELDLIST(IDX)%CLONGNAME = 'IC_TOTAL_NB'
TFIELDLIST(IDX)%CUNITS = '1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_IntraCloud lightning Number'
@@ -2604,7 +2604,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'CG_TOTAL_NB'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: CG_TOTAL_NB'
+TFIELDLIST(IDX)%CLONGNAME = 'CG_TOTAL_NB'
TFIELDLIST(IDX)%CUNITS = '1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_CloudGround lightning Number'
@@ -2620,7 +2620,7 @@ END IF !CPROGRAM/=PGD , NESPGD, SPAWN
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'SSO_ANIS'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: SSO_ANIS'
+TFIELDLIST(IDX)%CLONGNAME = 'SSO_ANIS'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_SSO_ANISOTROPY'
@@ -2633,7 +2633,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'SSO_SLOPE'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: SSO_SLOPE'
+TFIELDLIST(IDX)%CLONGNAME = 'SSO_SLOPE'
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_SSO_SLOPE'
@@ -2646,7 +2646,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'SSO_DIR'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: SSO_DIR'
+TFIELDLIST(IDX)%CLONGNAME = 'SSO_DIR'
TFIELDLIST(IDX)%CUNITS = 'degree'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_SSO_DIR'
@@ -2659,7 +2659,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'AVG_ZS'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: AVG_ZS'
+TFIELDLIST(IDX)%CLONGNAME = 'AVG_ZS'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_AVG_ZS'
@@ -2672,7 +2672,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'SIL_ZS'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: SIL_ZS'
+TFIELDLIST(IDX)%CLONGNAME = 'SIL_ZS'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_SIL_ZS'
@@ -2685,7 +2685,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'MAX_ZS'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: MAX_ZS'
+TFIELDLIST(IDX)%CLONGNAME = 'MAX_ZS'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_MAX_ZS'
@@ -2698,7 +2698,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'MIN_ZS'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: MIN_ZS'
+TFIELDLIST(IDX)%CLONGNAME = 'MIN_ZS'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_MIN_ZS'
@@ -2711,7 +2711,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'SSO_STDEV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: SSO_STDEV'
+TFIELDLIST(IDX)%CLONGNAME = 'SSO_STDEV'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_SSO_STDEV'
@@ -2724,7 +2724,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'INPRC'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: INPRC'
+TFIELDLIST(IDX)%CLONGNAME = 'INPRC'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_INstantaneous Cloud Precipitation Rate'
@@ -2737,7 +2737,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'ACPRC'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: ACPRC'
+TFIELDLIST(IDX)%CLONGNAME = 'ACPRC'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_ACcumulated Cloud Precipitation Rate'
@@ -2750,7 +2750,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'INDEP'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: INDEP'
+TFIELDLIST(IDX)%CLONGNAME = 'INDEP'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_INstantaneous Cloud Deposition Rate'
@@ -2763,7 +2763,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'ACDEP'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: ACDEP'
+TFIELDLIST(IDX)%CLONGNAME = 'ACDEP'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_ACcumulated Cloud Deposition Rate'
@@ -2776,7 +2776,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'INPRR'
TFIELDLIST(IDX)%CSTDNAME = 'rainfall_rate'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: INPRR'
+TFIELDLIST(IDX)%CLONGNAME = 'INPRR'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_INstantaneous Precipitation Rain Rate'
@@ -2789,7 +2789,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'INPRR3D'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: INPRR3D'
+TFIELDLIST(IDX)%CLONGNAME = 'INPRR3D'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_INstantaneous 3D Rain Precipitation flux'
@@ -2802,7 +2802,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'EVAP3D'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: EVAP3D'
+TFIELDLIST(IDX)%CLONGNAME = 'EVAP3D'
TFIELDLIST(IDX)%CUNITS = 'kg kg-1 s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_INstantaneous 3D Rain Evaporation flux'
@@ -2815,7 +2815,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'ACPRR'
TFIELDLIST(IDX)%CSTDNAME = 'rainfall_amount'
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: ACPRR'
+TFIELDLIST(IDX)%CLONGNAME = 'ACPRR'
!PW: TODO: CF-convention prefers 'kg m-2'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XY'
@@ -2829,7 +2829,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'INPRS'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: INPRS'
+TFIELDLIST(IDX)%CLONGNAME = 'INPRS'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_INstantaneous PRecipitation Snow Rate'
@@ -2842,7 +2842,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'ACPRS'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: ACPRS'
+TFIELDLIST(IDX)%CLONGNAME = 'ACPRS'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_ACcumulated PRecipitation Snow Rate'
@@ -2855,7 +2855,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'INPRG'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: INPRG'
+TFIELDLIST(IDX)%CLONGNAME = 'INPRG'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_INstantaneous PRecipitation Graupel Rate'
@@ -2868,7 +2868,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'ACPRG'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: ACPRG'
+TFIELDLIST(IDX)%CLONGNAME = 'ACPRG'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_ACcumulated PRecipitation Graupel Rate'
@@ -2881,7 +2881,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'INPRH'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: INPRH'
+TFIELDLIST(IDX)%CLONGNAME = 'INPRH'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_INstantaneous PRecipitation Hail Rate'
@@ -2894,7 +2894,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'ACPRH'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: ACPRH'
+TFIELDLIST(IDX)%CLONGNAME = 'ACPRH'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_ACcumulated PRecipitation Hail Rate'
@@ -2907,7 +2907,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'INPRT'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: INPRT'
+TFIELDLIST(IDX)%CLONGNAME = 'INPRT'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Total INstantaneaous PRecipitation rate'
@@ -2921,7 +2921,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'ACPRT'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: ACPRT'
+TFIELDLIST(IDX)%CLONGNAME = 'ACPRT'
TFIELDLIST(IDX)%CUNITS = 'm'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Total ACcumulated PRecipitation rate'
@@ -2935,7 +2935,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'VT_FLX'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: VT_FLX'
+TFIELDLIST(IDX)%CLONGNAME = 'VT_FLX'
TFIELDLIST(IDX)%CUNITS = 'K m s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = ''
@@ -2948,7 +2948,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'WT_FLX'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: WT_FLX'
+TFIELDLIST(IDX)%CLONGNAME = 'WT_FLX'
TFIELDLIST(IDX)%CUNITS = 'K m s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = ''
@@ -2961,7 +2961,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RTHS_EDDY_FLUX'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RTHS_EDDY_FLUX'
+TFIELDLIST(IDX)%CLONGNAME = 'RTHS_EDDY_FLUX'
!TODO PW: units?
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
@@ -2975,7 +2975,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'VU_FLX'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: VU_FLX'
+TFIELDLIST(IDX)%CLONGNAME = 'VU_FLX'
TFIELDLIST(IDX)%CUNITS = 'm s-2'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = ''
@@ -2988,7 +2988,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'RVS_EDDY_FLUX'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: RVS_EDDY_FLUX'
+TFIELDLIST(IDX)%CLONGNAME = 'RVS_EDDY_FLUX'
!TODO PW: units?
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = 'XY'
@@ -3006,7 +3006,7 @@ IF (TRIM(CPROGRAM)=='REAL') THEN
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'UT15'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: UT15'
+TFIELDLIST(IDX)%CLONGNAME = 'UT15'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_U component of Total wind'
@@ -3019,7 +3019,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'VT15'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: VT15'
+TFIELDLIST(IDX)%CLONGNAME = 'VT15'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_V component of Total wind'
@@ -3032,7 +3032,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'TEMPTOT'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: TEMPTOT'
+TFIELDLIST(IDX)%CLONGNAME = 'TEMPTOT'
TFIELDLIST(IDX)%CUNITS = 'K'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_TOTal TEMPerature'
@@ -3045,7 +3045,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'PRESTOT'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: PRESTOT'
+TFIELDLIST(IDX)%CLONGNAME = 'PRESTOT'
TFIELDLIST(IDX)%CUNITS = 'Pa'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_TOTal PRESsure'
@@ -3058,7 +3058,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'HUMTOT'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: HUMTOT'
+TFIELDLIST(IDX)%CLONGNAME = 'HUMTOT'
TFIELDLIST(IDX)%CUNITS = 'kg kg-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_TOTal specific HUMidity'
@@ -3071,7 +3071,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'UT16'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: UT16'
+TFIELDLIST(IDX)%CLONGNAME = 'UT16'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_U component of Environmental wind'
@@ -3084,7 +3084,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'VT16'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: VT16'
+TFIELDLIST(IDX)%CLONGNAME = 'VT16'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_V component of Environmental wind'
@@ -3097,7 +3097,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'TEMPENV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: TEMPENV'
+TFIELDLIST(IDX)%CLONGNAME = 'TEMPENV'
TFIELDLIST(IDX)%CUNITS = 'K'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_ENVironmental TEMPerature'
@@ -3110,7 +3110,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'PRESENV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: PRESENV'
+TFIELDLIST(IDX)%CLONGNAME = 'PRESENV'
TFIELDLIST(IDX)%CUNITS = 'Pa'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_ENVironmental PRESsure'
@@ -3123,7 +3123,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'HUMENV'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: HUMENV'
+TFIELDLIST(IDX)%CLONGNAME = 'HUMENV'
TFIELDLIST(IDX)%CUNITS = 'kg kg-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_ENVironmental specific HUMidity'
@@ -3136,7 +3136,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'UT17'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: UT17'
+TFIELDLIST(IDX)%CLONGNAME = 'UT17'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_U component of Basic wind'
@@ -3149,7 +3149,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'VT17'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: VT17'
+TFIELDLIST(IDX)%CLONGNAME = 'VT17'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_V component of Basic wind'
@@ -3162,7 +3162,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'TEMPBAS'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: TEMPBAS'
+TFIELDLIST(IDX)%CLONGNAME = 'TEMPBAS'
TFIELDLIST(IDX)%CUNITS = 'K'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_BASic TEMPerature'
@@ -3175,7 +3175,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'PRESBAS'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: PRESBAS'
+TFIELDLIST(IDX)%CLONGNAME = 'PRESBAS'
TFIELDLIST(IDX)%CUNITS = 'Pa'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_BASic PRESsure'
@@ -3188,7 +3188,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'HUMBAS'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: HUMBAS'
+TFIELDLIST(IDX)%CLONGNAME = 'HUMBAS'
TFIELDLIST(IDX)%CUNITS = 'kg kg-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_BASic specific HUMidity'
@@ -3201,7 +3201,7 @@ IDX = IDX+1
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = 'VTDIS'
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: VTDIS'
+TFIELDLIST(IDX)%CLONGNAME = 'VTDIS'
TFIELDLIST(IDX)%CUNITS = 'm s-1'
TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Total disturbance tangential wind'
@@ -3223,7 +3223,7 @@ CALL PRINT_MSG(NVERB_INFO,'GEN','INI_FIELD_LIST',TRIM(YMSG))
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
TFIELDLIST(IDX)%CMNHNAME = ''
TFIELDLIST(IDX)%CSTDNAME = ''
-TFIELDLIST(IDX)%CLONGNAME = 'MesoNH: '
+TFIELDLIST(IDX)%CLONGNAME = ''
TFIELDLIST(IDX)%CUNITS = ''
TFIELDLIST(IDX)%CDIR = ''
TFIELDLIST(IDX)%CLBTYPE = ''
diff --git a/src/MNH/advection_metsv.f90 b/src/MNH/advection_metsv.f90
index c04932c4c300d3ea82573ef0b1ae5cd97223e158..81fc9ede99f56b81e52b79f24af742a713975efd 100644
--- a/src/MNH/advection_metsv.f90
+++ b/src/MNH/advection_metsv.f90
@@ -308,7 +308,7 @@ END IF
IF (OCLOSE_OUT .AND. OCFL_WRIT .AND. (.NOT. L1D)) THEN
TZFIELD%CMNHNAME = 'CFLU'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: CFLU'
+ TZFIELD%CLONGNAME = 'CFLU'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_CFLU'
@@ -319,7 +319,7 @@ IF (OCLOSE_OUT .AND. OCFL_WRIT .AND. (.NOT. L1D)) THEN
!
TZFIELD%CMNHNAME = 'CFLV'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: CFLV'
+ TZFIELD%CLONGNAME = 'CFLV'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_CFLV'
@@ -330,7 +330,7 @@ IF (OCLOSE_OUT .AND. OCFL_WRIT .AND. (.NOT. L1D)) THEN
!
TZFIELD%CMNHNAME = 'CFLW'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: CFLW'
+ TZFIELD%CLONGNAME = 'CFLW'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_CFLW'
@@ -341,7 +341,7 @@ IF (OCLOSE_OUT .AND. OCFL_WRIT .AND. (.NOT. L1D)) THEN
!
TZFIELD%CMNHNAME = 'CFL'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: CFL'
+ TZFIELD%CLONGNAME = 'CFL'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_CFL'
diff --git a/src/MNH/c2r2_adjust.f90 b/src/MNH/c2r2_adjust.f90
index 78cc43ffb75ad734f5431fbf5aaba4915de8cbd7..18e1966c52e164e75faad6fdb22005680b71e2f9 100644
--- a/src/MNH/c2r2_adjust.f90
+++ b/src/MNH/c2r2_adjust.f90
@@ -419,7 +419,7 @@ END IF
IF ( OCLOSE_OUT ) THEN
TZFIELD%CMNHNAME = 'NEB'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: NEB'
+ TZFIELD%CLONGNAME = 'NEB'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_NEB'
diff --git a/src/MNH/call_rttov11.f90 b/src/MNH/call_rttov11.f90
index efaaa3a039b051d937ee3dd787798db1fa0d5a82..1bbf618a26a2ffb05e0eefa4007b2b6b3acc121d 100644
--- a/src/MNH/call_rttov11.f90
+++ b/src/MNH/call_rttov11.f90
@@ -571,7 +571,7 @@ DO JSAT=1,IJSAT ! loop over sensors
TZFIELD%CCOMMENT = TRIM(YBEG)//'_'//TRIM(YEND)//' BT'
! ENDIF
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CDIR = 'XY'
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
diff --git a/src/MNH/call_rttov8.f90 b/src/MNH/call_rttov8.f90
index 2d857e5312646cf7249bc325701dba897c90c498..a724de62f2323ad165dba3337c83fd94e7bf53a7 100644
--- a/src/MNH/call_rttov8.f90
+++ b/src/MNH/call_rttov8.f90
@@ -1572,7 +1572,7 @@ DO JSAT=1,IJSAT ! loop over sensors
! END DO
TZFIELD%CMNHNAME = TRIM(YINST)//'_ANGL'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'degree'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = TRIM(YINST)//' ANGLE'
@@ -1630,7 +1630,7 @@ DO JSAT=1,IJSAT ! loop over sensors
TZFIELD%CCOMMENT = TRIM(YBEG)//'_'//TRIM(YEND)//' BT'
ENDIF
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CDIR = 'XY'
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
@@ -1642,7 +1642,7 @@ DO JSAT=1,IJSAT ! loop over sensors
IF (KRTTOVINFO(3,JSAT) == 4.AND. JCH==3 ) THEN ! AMSU-B
TZFIELD%CMNHNAME = TRIM(YBEG)//'_UTH'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'percent'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = TRIM(YBEG)//'_UTH'
@@ -1722,7 +1722,7 @@ DO JSAT=1,IJSAT ! loop over sensors
!
TZFIELD%CMNHNAME = TRIM(YBEG)//'_'//TRIM(YEND)//'JAT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K K-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = TRIM(YBEG)//'_'//TRIM(YEND)//' JATEMP'
@@ -1736,7 +1736,7 @@ DO JSAT=1,IJSAT ! loop over sensors
!
TZFIELD%CMNHNAME = TRIM(YBEG)//'_'//TRIM(YEND)//'JAV'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = TRIM(YBEG)//'_'//TRIM(YEND)//' JAWVAP'
diff --git a/src/MNH/compute_r00.f90 b/src/MNH/compute_r00.f90
index 5208ce8534ad990e4139ec7c1a21b8cd47540723..8e30abc411da5156e854ec68201b96791a5d19b6 100644
--- a/src/MNH/compute_r00.f90
+++ b/src/MNH/compute_r00.f90
@@ -282,7 +282,7 @@ DO JFILECUR=1,NFILES
PRINT *,'INBR_START',INBR_START,' NBRFILES(JFILECUR)',NBRFILES(JFILECUR)
WRITE(TZFIELD%CMNHNAME,'(A2,I2.2)')'X0',INBR_START
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'km'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)//YDATE
@@ -294,7 +294,7 @@ DO JFILECUR=1,NFILES
!
WRITE(TZFIELD%CMNHNAME,'(A2,I2.2)')'Y0',INBR_START
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'km'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)//YDATE
@@ -306,7 +306,7 @@ DO JFILECUR=1,NFILES
!
WRITE(TZFIELD%CMNHNAME,'(A2,I2.2)')'Z0',INBR_START
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'km'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)//YDATE
@@ -334,7 +334,7 @@ DO JFILECUR=1,NFILES
!
WRITE(TZFIELD%CMNHNAME,'(A3,I2.2)')'TH0',INBR_START
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)//YDATE
@@ -346,7 +346,7 @@ DO JFILECUR=1,NFILES
!
WRITE(TZFIELD%CMNHNAME,'(A3,I2.2)')'RV0',INBR_START
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'g kg-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)//YDATE
@@ -368,17 +368,17 @@ DO JFILECUR=1,NFILES
TZFIELD%NDIMS = 3
!
TZFIELD%CMNHNAME = 'LGXT'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
CALL IO_READ_FIELD(TZTRACFILE,TZFIELD,ZX0)
ZX0(:,:,:)=ZX0(:,:,:)*1.E-3 ! ZX0 in km
!
TZFIELD%CMNHNAME = 'LGYT'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
CALL IO_READ_FIELD(TZTRACFILE,TZFIELD,ZY0)
ZY0(:,:,:)=ZY0(:,:,:)*1.E-3 ! ZY0 in km
!
TZFIELD%CMNHNAME = 'LGZT'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
CALL IO_READ_FIELD(TZTRACFILE,TZFIELD,ZZ0)
ZZ0(:,:,:)=ZZ0(:,:,:)*1.E-3 ! ZZ0 in km
!
diff --git a/src/MNH/free_atm_profile.f90 b/src/MNH/free_atm_profile.f90
index 04db4fdfc6f65d6cfa14e802539a3494d8954cb1..f85a128450599d06d547f7c717595cfad9d4f5cd 100644
--- a/src/MNH/free_atm_profile.f90
+++ b/src/MNH/free_atm_profile.f90
@@ -472,7 +472,7 @@ IF (CPROGRAM == 'DIAG ' ) THEN
END DO
TZFIELD%CMNHNAME = 'HBLTOP'
TZFIELD%CSTDNAME = 'atmosphere_boundary_layer_thickness'
- TZFIELD%CLONGNAME = 'MesoNH: HBLTOP'
+ TZFIELD%CLONGNAME = 'HBLTOP'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'Height of Boundary Layer TOP'
@@ -487,7 +487,7 @@ IF (CPROGRAM == 'DIAG ' ) THEN
Z2D(:,:) = IK_BL_TOP(:,:)
TZFIELD%CMNHNAME = 'KBLTOP'
TZFIELD%CSTDNAME = 'model_level_number_at_top_of_atmosphere_boundary_layer'
- TZFIELD%CLONGNAME = 'MesoNH: KBLTOP'
+ TZFIELD%CLONGNAME = 'KBLTOP'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'Index of Boundary Layer TOP'
@@ -506,7 +506,7 @@ IF (CPROGRAM /= 'DIAG ' .AND. CPROGRAM /= 'IDEAL ' ) THEN
!
TZFIELD%CMNHNAME = 'FREE_ATM_GR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: FREE_ATM_GR'
+ TZFIELD%CLONGNAME = 'FREE_ATM_GR'
TZFIELD%CUNITS = 'K m-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'Free atmosphere gradient'
@@ -526,7 +526,7 @@ IF (CPROGRAM /= 'DIAG ' .AND. CPROGRAM /= 'IDEAL ' ) THEN
!
TZFIELD%CMNHNAME = 'THV_FREE'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: THV_FREE'
+ TZFIELD%CLONGNAME = 'THV_FREE'
TZFIELD%CUNITS = 'K'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_THV_FREE'
diff --git a/src/MNH/ini_aircraft_balloon.f90 b/src/MNH/ini_aircraft_balloon.f90
index 466d60dcf55d4940b6dd873f3d35e325eb619d99..94c0d78e52f619f9f8d06b50fb4881125ad7429a 100644
--- a/src/MNH/ini_aircraft_balloon.f90
+++ b/src/MNH/ini_aircraft_balloon.f90
@@ -486,7 +486,7 @@ IF ( CPROGRAM == 'MESONH' .OR. CPROGRAM == 'SPAWN ' .OR. CPROGRAM == 'REAL ' )
!
TZFIELD%CMNHNAME = TRIM(TPFLYER%TITLE)//'LAT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'degree'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -500,7 +500,7 @@ IF ( CPROGRAM == 'MESONH' .OR. CPROGRAM == 'SPAWN ' .OR. CPROGRAM == 'REAL ' )
ELSE
TZFIELD%CMNHNAME = TRIM(TPFLYER%TITLE)//'LON'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'degree'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -511,7 +511,7 @@ IF ( CPROGRAM == 'MESONH' .OR. CPROGRAM == 'SPAWN ' .OR. CPROGRAM == 'REAL ' )
!
TZFIELD%CMNHNAME = TRIM(TPFLYER%TITLE)//'ALT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -524,7 +524,7 @@ IF ( CPROGRAM == 'MESONH' .OR. CPROGRAM == 'SPAWN ' .OR. CPROGRAM == 'REAL ' )
!
TZFIELD%CMNHNAME = TRIM(TPFLYER%TITLE)//'WASCENT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -535,7 +535,7 @@ IF ( CPROGRAM == 'MESONH' .OR. CPROGRAM == 'SPAWN ' .OR. CPROGRAM == 'REAL ' )
!
TZFIELD%CMNHNAME = TRIM(TPFLYER%TITLE)//'RHO'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'kg m-3'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
diff --git a/src/MNH/ini_deep_convection.f90 b/src/MNH/ini_deep_convection.f90
index 056f1ce8168857a9029aeb8372f7bd034951b31d..4d229d38f3d85ebb8fadc2665730e4f63ca52b7d 100644
--- a/src/MNH/ini_deep_convection.f90
+++ b/src/MNH/ini_deep_convection.f90
@@ -269,67 +269,67 @@ ELSE
!
DO JSV = 1, NSV_USER
WRITE(TZFIELD%CMNHNAME,'(A7,I3.3)')'DSVCONV',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PDSVCONV(:,:,:,JSV))
END DO
DO JSV = NSV_C2R2BEG, NSV_C2R2END
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(C2R2NAMES(JSV-NSV_C2R2BEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PDSVCONV(:,:,:,JSV))
END DO
DO JSV = NSV_C1R3BEG, NSV_C1R3END
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(C1R3NAMES(JSV-NSV_C1R3BEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PDSVCONV(:,:,:,JSV))
END DO
DO JSV = NSV_ELECBEG, NSV_ELECEND
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(CELECNAMES(JSV-NSV_ELECBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PDSVCONV(:,:,:,JSV))
END DO
DO JSV = NSV_CHEMBEG, NSV_CHEMEND
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(UPCASE(CNAMES(JSV-NSV_CHEMBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PDSVCONV(:,:,:,JSV))
END DO
DO JSV = NSV_AERBEG, NSV_AEREND
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(UPCASE(CAERONAMES(JSV-NSV_AERBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PDSVCONV(:,:,:,JSV))
END DO
DO JSV = NSV_LNOXBEG,NSV_LNOXEND
TZFIELD%CMNHNAME = 'DSVCONV_LINOX'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PDSVCONV(:,:,:,JSV))
END DO
DO JSV = NSV_DSTBEG, NSV_DSTEND
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(UPCASE(CDUSTNAMES(JSV-NSV_DSTBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PDSVCONV(:,:,:,JSV))
END DO
DO JSV = NSV_SLTBEG, NSV_SLTEND
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(UPCASE(CSALTNAMES(JSV-NSV_SLTBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PDSVCONV(:,:,:,JSV))
END DO
DO JSV = NSV_LGBEG, NSV_LGEND
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(CLGNAMES(JSV-NSV_LGBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PDSVCONV(:,:,:,JSV))
END DO
DO JSV = NSV_PPBEG, NSV_PPEND
WRITE(TZFIELD%CMNHNAME,'(A7,I3.3)')'DSVCONV',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PDSVCONV(:,:,:,JSV))
END DO
diff --git a/src/MNH/ini_lb.f90 b/src/MNH/ini_lb.f90
index 4e4600fd8eef1d6699040fb1190420cbaed7f312..04f882a11df6d748ea4eb316179843bf3a98d1be 100644
--- a/src/MNH/ini_lb.f90
+++ b/src/MNH/ini_lb.f90
@@ -359,7 +359,7 @@ END SELECT
IF(KSIZELBXR_ll > 0 ) THEN
TZFIELD%CMNHNAME = 'HORELAX_R'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: HORELAX_R'
+ TZFIELD%CLONGNAME = 'HORELAX_R'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Switch to activate the HOrizontal RELAXation'
@@ -398,7 +398,7 @@ IF(KSIZELBXR_ll > 0 ) THEN
IRR=IRR+1
IF ( KSIZELBXR_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBXR'//YC(JRR)//'M'
- TZFIELD%CLONGNAME = 'MesoNH: LBXR'//YC(JRR)//'M'
+ TZFIELD%CLONGNAME = 'LBXR'//YC(JRR)//'M'
TZFIELD%CLBTYPE = 'LBX'
TZFIELD%CCOMMENT = '2_Y_Z_LBXR'//YC(JRR)//'M'
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXRM(:,:,:,IRR))
@@ -406,7 +406,7 @@ IF(KSIZELBXR_ll > 0 ) THEN
!
IF ( KSIZELBYR_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBYR'//YC(JRR)//'M'
- TZFIELD%CLONGNAME = 'MesoNH: LBYR'//YC(JRR)//'M'
+ TZFIELD%CLONGNAME = 'LBYR'//YC(JRR)//'M'
TZFIELD%CLBTYPE = 'LBY'
TZFIELD%CCOMMENT = '2_Y_Z_LBYR'//YC(JRR)//'M'
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYRM(:,:,:,IRR))
@@ -433,7 +433,7 @@ IF(KSIZELBXR_ll > 0 ) THEN
ENDIF
ELSE
TZFIELD%CMNHNAME = 'LBXR'//YC(JRR)//'M'
- TZFIELD%CLONGNAME = 'MesoNH: LBXR'//YC(JRR)//'M'
+ TZFIELD%CLONGNAME = 'LBXR'//YC(JRR)//'M'
TZFIELD%CLBTYPE = 'LBX'
TZFIELD%CCOMMENT = '2_Y_Z_LBXR'//YC(JRR)//'M'
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXRM(:,:,:,IRR))
@@ -451,7 +451,7 @@ IF(KSIZELBXR_ll > 0 ) THEN
ENDIF
ELSE
TZFIELD%CMNHNAME = 'LBYR'//YC(JRR)//'M'
- TZFIELD%CLONGNAME = 'MesoNH: LBYR'//YC(JRR)//'M'
+ TZFIELD%CLONGNAME = 'LBYR'//YC(JRR)//'M'
TZFIELD%CLBTYPE = 'LBY'
TZFIELD%CCOMMENT = '2_Y_Z_LBYR'//YC(JRR)//'M'
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYRM(:,:,:,IRR))
@@ -471,7 +471,7 @@ IF (KSV > 0) THEN
IF (ANY(HGETSVM(1:KSV)=='READ')) THEN
TZFIELD%CMNHNAME = 'HORELAX_SV'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: HORELAX_SV'
+ TZFIELD%CLONGNAME = 'HORELAX_SV'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -507,7 +507,7 @@ IF (NSV_USER>0) THEN
CASE ('READ')
IF ( KSIZELBXSV_ll /= 0 ) THEN
WRITE(TZFIELD%CMNHNAME,'(A6,I3.3)')'LBXSVM',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3,A8)')'2_Y_Z_','LBXSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXSVM(:,:,:,JSV),IRESP)
@@ -526,7 +526,7 @@ IF (NSV_USER>0) THEN
!
IF (KSIZELBYSV_ll /= 0 ) THEN
WRITE(TZFIELD%CMNHNAME,'(A6,I3.3)')'LBYSVM',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3,A8)')'X_2_Z_','LBYSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYSVM(:,:,:,JSV),IRESP)
@@ -562,7 +562,7 @@ IF (NSV_C2R2END>=NSV_C2R2BEG) THEN
CASE ('READ')
IF ( KSIZELBXSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(C2R2NAMES(JSV-NSV_C2R2BEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXSVM(:,:,:,JSV),IRESP)
@@ -581,7 +581,7 @@ IF (NSV_C2R2END>=NSV_C2R2BEG) THEN
!
IF (KSIZELBYSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(C2R2NAMES(JSV-NSV_C2R2BEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYSVM(:,:,:,JSV),IRESP)
@@ -617,7 +617,7 @@ IF (NSV_C1R3END>=NSV_C1R3BEG) THEN
CASE ('READ')
IF ( KSIZELBXSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(C1R3NAMES(JSV-NSV_C1R3BEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXSVM(:,:,:,JSV),IRESP)
@@ -636,7 +636,7 @@ IF (NSV_C1R3END>=NSV_C1R3BEG) THEN
!
IF (KSIZELBYSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(C1R3NAMES(JSV-NSV_C1R3BEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYSVM(:,:,:,JSV),IRESP)
@@ -676,7 +676,7 @@ IF (CCLOUD=='LIMA' ) THEN
WRITE(INDICE,'(I2.2)')(JSV - NSV_LIMA_CCN_FREE + 1)
IF ( KSIZELBXSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CLIMA_WARM_NAMES(3))//INDICE)
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXSVM(:,:,:,JSV),IRESP)
@@ -695,7 +695,7 @@ IF (CCLOUD=='LIMA' ) THEN
!
IF (KSIZELBYSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(UPCASE(CLIMA_WARM_NAMES(3))//INDICE)
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYSVM(:,:,:,JSV),IRESP)
@@ -732,7 +732,7 @@ IF (CCLOUD=='LIMA' ) THEN
WRITE(INDICE,'(I2.2)')(JSV - NSV_LIMA_IFN_FREE + 1)
IF ( KSIZELBXSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CLIMA_COLD_NAMES(2))//INDICE)
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXSVM(:,:,:,JSV),IRESP)
@@ -751,7 +751,7 @@ IF (CCLOUD=='LIMA' ) THEN
!
IF (KSIZELBYSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(UPCASE(CLIMA_COLD_NAMES(2))//INDICE)
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYSVM(:,:,:,JSV),IRESP)
@@ -788,7 +788,7 @@ IF (NSV_ELECEND>=NSV_ELECBEG) THEN
CASE ('READ')
IF ( KSIZELBXSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(CELECNAMES(JSV-NSV_ELECBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXSVM(:,:,:,JSV),IRESP)
@@ -807,7 +807,7 @@ IF (NSV_ELECEND>=NSV_ELECBEG) THEN
!
IF (KSIZELBYSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(CELECNAMES(JSV-NSV_ELECBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYSVM(:,:,:,JSV),IRESP)
IF ( SIZE(PLBYSVM,1) /= 0 ) THEN
@@ -842,7 +842,7 @@ IF (NSV_CHGSEND>=NSV_CHGSBEG) THEN
CASE ('READ')
IF ( KSIZELBXSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CNAMES(JSV-NSV_CHGSBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXSVM(:,:,:,JSV),IRESP)
@@ -861,7 +861,7 @@ IF (NSV_CHGSEND>=NSV_CHGSBEG) THEN
!
IF (KSIZELBYSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(UPCASE(CNAMES(JSV-NSV_CHGSBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYSVM(:,:,:,JSV),IRESP)
@@ -897,7 +897,7 @@ IF (NSV_CHACEND>=NSV_CHACBEG) THEN
CASE ('READ')
IF ( KSIZELBXSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CNAMES(JSV-NSV_CHACBEG+NSV_CHGS+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXSVM(:,:,:,JSV),IRESP)
@@ -916,7 +916,7 @@ IF (NSV_CHACEND>=NSV_CHACBEG) THEN
!
IF (KSIZELBYSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(UPCASE(CNAMES(JSV-NSV_CHACBEG+NSV_CHGS+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYSVM(:,:,:,JSV),IRESP)
@@ -952,7 +952,7 @@ IF (NSV_CHICEND>=NSV_CHICBEG) THEN
CASE ('READ')
IF ( KSIZELBXSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CICNAMES(JSV-NSV_CHICBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXSVM(:,:,:,JSV),IRESP)
@@ -971,7 +971,7 @@ IF (NSV_CHICEND>=NSV_CHICBEG) THEN
!
IF (KSIZELBYSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(UPCASE(CICNAMES(JSV-NSV_CHICBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYSVM(:,:,:,JSV),IRESP)
@@ -1007,7 +1007,7 @@ IF (NSV_AEREND>=NSV_AERBEG) THEN
CASE ('READ')
IF ( KSIZELBXSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CAERONAMES(JSV-NSV_AERBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXSVM(:,:,:,JSV),IRESP)
@@ -1026,7 +1026,7 @@ IF (NSV_AEREND>=NSV_AERBEG) THEN
!
IF (KSIZELBYSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(UPCASE(CAERONAMES(JSV-NSV_AERBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYSVM(:,:,:,JSV),IRESP)
@@ -1062,7 +1062,7 @@ IF (NSV_AERDEPEND>=NSV_AERDEPBEG) THEN
CASE ('READ')
IF ( KSIZELBXSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CDEAERNAMES(JSV-NSV_AERDEPBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXSVM(:,:,:,JSV),IRESP)
@@ -1081,7 +1081,7 @@ IF (NSV_AERDEPEND>=NSV_AERDEPBEG) THEN
!
IF (KSIZELBYSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(CDEAERNAMES(JSV-NSV_AERDEPBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYSVM(:,:,:,JSV),IRESP)
@@ -1117,7 +1117,7 @@ IF (NSV_DSTEND>=NSV_DSTBEG) THEN
CASE ('READ')
IF ( KSIZELBXSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CDUSTNAMES(JSV-NSV_DSTBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXSVM(:,:,:,JSV),IRESP)
@@ -1136,7 +1136,7 @@ IF (NSV_DSTEND>=NSV_DSTBEG) THEN
!
IF (KSIZELBYSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(UPCASE(CDUSTNAMES(JSV-NSV_DSTBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYSVM(:,:,:,JSV),IRESP)
@@ -1172,7 +1172,7 @@ IF (NSV_DSTDEPEND>=NSV_DSTDEPBEG) THEN
CASE ('READ')
IF ( KSIZELBXSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CDEDSTNAMES(JSV-NSV_DSTDEPBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXSVM(:,:,:,JSV),IRESP)
@@ -1191,7 +1191,7 @@ IF (NSV_DSTDEPEND>=NSV_DSTDEPBEG) THEN
!
IF (KSIZELBYSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(UPCASE(CDEDSTNAMES(JSV-NSV_DSTDEPBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYSVM(:,:,:,JSV),IRESP)
@@ -1228,7 +1228,7 @@ IF (NSV_SLTEND>=NSV_SLTBEG) THEN
CASE ('READ')
IF ( KSIZELBXSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CSALTNAMES(JSV-NSV_SLTBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXSVM(:,:,:,JSV),IRESP)
@@ -1247,7 +1247,7 @@ IF (NSV_SLTEND>=NSV_SLTBEG) THEN
!
IF (KSIZELBYSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(CSALTNAMES(JSV-NSV_SLTBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYSVM(:,:,:,JSV),IRESP)
@@ -1283,7 +1283,7 @@ IF (NSV_PPEND>=NSV_PPBEG) THEN
CASE ('READ')
IF ( KSIZELBXSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBX_PP'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXSVM(:,:,:,JSV),IRESP)
@@ -1302,7 +1302,7 @@ IF (NSV_PPEND>=NSV_PPBEG) THEN
!
IF (KSIZELBYSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBY_PP'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYSVM(:,:,:,JSV),IRESP)
@@ -1339,7 +1339,7 @@ IF (NSV_FFEND>=NSV_FFBEG) THEN
CASE ('READ')
IF ( KSIZELBXSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBX_FF'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXSVM(:,:,:,JSV),IRESP)
@@ -1359,7 +1359,7 @@ IF (NSV_FFEND>=NSV_FFBEG) THEN
!
IF (KSIZELBYSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBY_FF'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYSVM(:,:,:,JSV),IRESP)
@@ -1396,7 +1396,7 @@ IF (NSV_CSEND>=NSV_CSBEG) THEN
CASE ('READ')
IF ( KSIZELBXSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBX_CS'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXSVM(:,:,:,JSV),IRESP)
@@ -1415,7 +1415,7 @@ IF (NSV_CSEND>=NSV_CSBEG) THEN
!
IF (KSIZELBYSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBY_CS'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYSVM(:,:,:,JSV),IRESP)
@@ -1451,7 +1451,7 @@ IF (NSV_LNOXEND>=NSV_LNOXBEG) THEN
CASE ('READ')
IF ( KSIZELBXSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBX_LINOX'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXSVM(:,:,:,JSV),IRESP)
@@ -1470,7 +1470,7 @@ IF (NSV_LNOXEND>=NSV_LNOXBEG) THEN
!
IF (KSIZELBYSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBY_LINOX'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYSVM(:,:,:,JSV),IRESP)
@@ -1506,7 +1506,7 @@ IF (NSV_LGEND>=NSV_LGBEG) THEN
CASE ('READ')
IF ( KSIZELBXSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(CLGNAMES(JSV-NSV_LGBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DX,IRIMX,PLBXSVM(:,:,:,JSV),IRESP)
@@ -1525,7 +1525,7 @@ IF (NSV_LGEND>=NSV_LGBEG) THEN
!
IF (KSIZELBYSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(CLGNAMES(JSV-NSV_LGBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_READ_FIELD_LB(TPINIFILE,TZFIELD,IL3DY,IRIMY,PLBYSVM(:,:,:,JSV),IRESP)
diff --git a/src/MNH/ini_prog_var.f90 b/src/MNH/ini_prog_var.f90
index b8fa5f5db3c042769cebd30362b5ad15d193d25c..d9d4fee17ebc70ac771d2e2b660c9d4845eef068 100644
--- a/src/MNH/ini_prog_var.f90
+++ b/src/MNH/ini_prog_var.f90
@@ -287,7 +287,7 @@ IF(PRESENT(HCHEMFILE)) THEN
!
DO JSV = NSV_CHEMBEG,NSV_CHEMEND
TZFIELD%CMNHNAME = TRIM(CNAMES(JSV-NSV_CHEMBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3,A8)')'X_Y_Z_','SVT',JSV,' (ppp)'
CALL IO_READ_FIELD(TZCHEMFILE,TZFIELD,XSVT(:,:,:,JSV),IRESP)
IF (IRESP/=0) THEN
@@ -313,7 +313,7 @@ IF(PRESENT(HCHEMFILE)) THEN
!
DO JSV = NSV_AERBEG,NSV_AEREND
TZFIELD%CMNHNAME = TRIM(CAERONAMES(JSV-NSV_AERBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TZCHEMFILE,TZFIELD,XSVT(:,:,:,JSV),IRESP)
IF (IRESP/=0) THEN
@@ -337,7 +337,7 @@ IF(PRESENT(HCHEMFILE)) THEN
!
DO JSV = NSV_AERDEPBEG,NSV_AERDEPEND
TZFIELD%CMNHNAME = TRIM(CDEAERNAMES(JSV-NSV_AERDEPBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TZCHEMFILE,TZFIELD,XSVT(:,:,:,JSV),IRESP)
IF (IRESP/=0) THEN
@@ -365,7 +365,7 @@ IF(PRESENT(HCHEMFILE)) THEN
+ 1 & !Number of moments in this mode
+ (NSV_DSTBEG -1) !Previous list of tracers
TZFIELD%CMNHNAME = TRIM(YPDUST_INI(ISV_NAME_IDX))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TZCHEMFILE,TZFIELD,XSVT(:,:,:,JSV),IRESP)
IF (IRESP/=0) THEN
@@ -380,7 +380,7 @@ IF(PRESENT(HCHEMFILE)) THEN
+ JMOM & !Number of moments in this mode
+ (NSV_DSTBEG -1) !Previous list of tracers
TZFIELD%CMNHNAME = TRIM(YPDUST_INI(ISV_NAME_IDX))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TZCHEMFILE,TZFIELD,XSVT(:,:,:,JSV),IRESP)
IF (IRESP/=0) THEN
@@ -409,7 +409,7 @@ IF(PRESENT(HCHEMFILE)) THEN
!
DO JSV = NSV_DSTDEPBEG,NSV_DSTDEPEND
TZFIELD%CMNHNAME = TRIM(CDEDSTNAMES(JSV-NSV_DSTDEPBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TZCHEMFILE,TZFIELD,XSVT(:,:,:,JSV),IRESP)
IF (IRESP/=0) THEN
@@ -437,7 +437,7 @@ IF(PRESENT(HCHEMFILE)) THEN
+ 1 & !Number of moments in this mode
+ (NSV_SLTBEG -1) !Previous list of tracers
TZFIELD%CMNHNAME = TRIM(YPSALT_INI(ISV_NAME_IDX))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TZCHEMFILE,TZFIELD,XSVT(:,:,:,JSV),IRESP)
IF (IRESP/=0) THEN
@@ -452,7 +452,7 @@ IF(PRESENT(HCHEMFILE)) THEN
+ JMOM & !Number of moments in this mode
+ (NSV_SLTBEG -1) !Previous list of tracers
TZFIELD%CMNHNAME = TRIM(YPSALT_INI(ISV_NAME_IDX))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TZCHEMFILE,TZFIELD,XSVT(:,:,:,JSV),IRESP)
IF (IRESP/=0) THEN
@@ -481,7 +481,7 @@ IF(PRESENT(HCHEMFILE)) THEN
!
DO JSV = NSV_SLTDEPBEG,NSV_SLTDEPEND
TZFIELD%CMNHNAME = TRIM(CDESLTNAMES(JSV-NSV_SLTDEPBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TZCHEMFILE,TZFIELD,XSVT(:,:,:,JSV),IRESP)
IF (IRESP/=0) THEN
diff --git a/src/MNH/khko_notadjust.f90 b/src/MNH/khko_notadjust.f90
index dd82290f25e78e211888c95db4f2771cfa96fa13..c3e0cc696472dbc8eecabdeb6f9500a0a229be9a 100644
--- a/src/MNH/khko_notadjust.f90
+++ b/src/MNH/khko_notadjust.f90
@@ -387,7 +387,7 @@ END IF
IF ( OCLOSE_OUT ) THEN
TZFIELD%CMNHNAME = 'SURSAT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: SURSAT'
+ TZFIELD%CLONGNAME = 'SURSAT'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_NEB'
@@ -398,7 +398,7 @@ IF ( OCLOSE_OUT ) THEN
!
TZFIELD%CMNHNAME = 'ACT_OD'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: ACT_OD'
+ TZFIELD%CLONGNAME = 'ACT_OD'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_NEB'
diff --git a/src/MNH/lima_adjust.f90 b/src/MNH/lima_adjust.f90
index 34eba3ee1d20c66611a46ac75b5618c54b8e7751..935db395e20d6515c535ed0a2bade91270f564a7 100644
--- a/src/MNH/lima_adjust.f90
+++ b/src/MNH/lima_adjust.f90
@@ -1120,7 +1120,7 @@ END IF
IF ( OCLOSE_OUT ) THEN
TZFIELD%CMNHNAME = 'NEB'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: NEB'
+ TZFIELD%CLONGNAME = 'NEB'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_NEB'
@@ -1174,7 +1174,7 @@ IF ( OCLOSE_OUT ) THEN
TZFIELD%CMNHNAME = 'SSI'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: SSI'
+ TZFIELD%CLONGNAME = 'SSI'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_SSI'
diff --git a/src/MNH/menu_diachro.f90 b/src/MNH/menu_diachro.f90
index bdf59ffded01d75e54f71a9a3b33a18003ad34d6..2584f42a8e3021b1d8798e5480d688eeb612e0c2 100644
--- a/src/MNH/menu_diachro.f90
+++ b/src/MNH/menu_diachro.f90
@@ -99,7 +99,7 @@ IF(HGROUP == 'END')THEN
TZFIELD%CMNHNAME = 'MENU_BUDGET.DIM'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: MENU_BUDGET.DIM'
+ TZFIELD%CLONGNAME = 'MENU_BUDGET.DIM'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -117,7 +117,7 @@ IF(HGROUP == 'END')THEN
TZFIELD%CMNHNAME = 'MENU_BUDGET'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: MENU_BUDGET'
+ TZFIELD%CLONGNAME = 'MENU_BUDGET'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -132,7 +132,7 @@ ELSE IF(HGROUP == 'READ')THEN
TZFIELD%CMNHNAME = 'MENU_BUDGET.DIM'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: MENU_BUDGET.DIM'
+ TZFIELD%CLONGNAME = 'MENU_BUDGET.DIM'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -149,7 +149,7 @@ ELSE IF(HGROUP == 'READ')THEN
ALLOCATE(ITABCHAR(ILENG))
TZFIELD%CMNHNAME = 'MENU_BUDGET'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: MENU_BUDGET'
+ TZFIELD%CLONGNAME = 'MENU_BUDGET'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
diff --git a/src/MNH/paspol.f90 b/src/MNH/paspol.f90
index 44d33efe88314dde6b59cd72d65f2e13e8cfbac8..85833e108126325461b07d5f927c5a49b974c0b6 100644
--- a/src/MNH/paspol.f90
+++ b/src/MNH/paspol.f90
@@ -584,7 +584,7 @@ IF (OCLOSE_OUT) THEN
ZTEMPO(:,:,:)=XATC(:,:,:,JSV)
!
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'ATC',JSV+NSV_PPBEG-1
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','ATC',JSV+NSV_PPBEG-1
!
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZTEMPO)
diff --git a/src/MNH/prandtl.f90 b/src/MNH/prandtl.f90
index 303f030907c2581f2bd58f8f1d04aec9a43eb04c..3ffe458ba735ae9688542a5d2581df66dfc93573 100644
--- a/src/MNH/prandtl.f90
+++ b/src/MNH/prandtl.f90
@@ -519,7 +519,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
! stores the RED_TH1
TZFIELD%CMNHNAME = 'RED_TH1'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: RED_TH1'
+ TZFIELD%CLONGNAME = 'RED_TH1'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_RED_TH1'
@@ -531,7 +531,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
! stores the RED_R1
TZFIELD%CMNHNAME = 'RED_R1'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: RED_R1'
+ TZFIELD%CLONGNAME = 'RED_R1'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_RED_R1'
@@ -543,7 +543,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
! stores the RED2_TH3
TZFIELD%CMNHNAME = 'RED2_TH3'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: RED2_TH3'
+ TZFIELD%CLONGNAME = 'RED2_TH3'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_RED2_TH3'
@@ -555,7 +555,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
! stores the RED2_R3
TZFIELD%CMNHNAME = 'RED2_R3'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: RED2_R3'
+ TZFIELD%CLONGNAME = 'RED2_R3'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_RED2_R3'
@@ -567,7 +567,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
! stores the RED2_THR3
TZFIELD%CMNHNAME = 'RED2_THR3'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: RED2_THR3'
+ TZFIELD%CLONGNAME = 'RED2_THR3'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_RED2_THR3'
diff --git a/src/MNH/radiations.f90 b/src/MNH/radiations.f90
index 626e8a58f52cf831bfbed3957db39edd268b682d..f598926352696a8fe3faf10aef31dc4a3729ca77 100644
--- a/src/MNH/radiations.f90
+++ b/src/MNH/radiations.f90
@@ -2618,7 +2618,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'SWF_DOWN'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: SWF_DOWN'
+ TZFIELD%CLONGNAME = 'SWF_DOWN'
TZFIELD%CUNITS = 'W m-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_SWF_DOWN'
@@ -2638,7 +2638,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'SWF_UP'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: SWF_UP'
+ TZFIELD%CLONGNAME = 'SWF_UP'
TZFIELD%CUNITS = 'W m-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_SWF_UP'
@@ -2658,7 +2658,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'LWF_DOWN'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: LWF_DOWN'
+ TZFIELD%CLONGNAME = 'LWF_DOWN'
TZFIELD%CUNITS = 'W m-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_LWF_DOWN'
@@ -2678,7 +2678,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'LWF_UP'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: LWF_UP'
+ TZFIELD%CLONGNAME = 'LWF_UP'
TZFIELD%CUNITS = 'W m-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_LWF_UP'
@@ -2698,7 +2698,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'LWF_NET'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: LWF_NET'
+ TZFIELD%CLONGNAME = 'LWF_NET'
TZFIELD%CUNITS = 'W m-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_LWF_NET'
@@ -2718,7 +2718,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'SWF_NET'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: SWF_NET'
+ TZFIELD%CLONGNAME = 'SWF_NET'
TZFIELD%CUNITS = 'W m-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_SWF_NET'
@@ -2736,7 +2736,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'DTRAD_LW'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: DTRAD_LW'
+ TZFIELD%CLONGNAME = 'DTRAD_LW'
TZFIELD%CUNITS = 'K day-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_DTRAD_LW'
@@ -2754,7 +2754,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'DTRAD_SW'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: DTRAD_SW'
+ TZFIELD%CLONGNAME = 'DTRAD_SW'
TZFIELD%CUNITS = 'K day-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_DTRAD_SW'
@@ -2771,7 +2771,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'RADSWD_VIS'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: RADSWD_VIS'
+ TZFIELD%CLONGNAME = 'RADSWD_VIS'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_RADSWD_VIS'
@@ -2788,7 +2788,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'RADSWD_NIR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: RADSWD_NIR'
+ TZFIELD%CLONGNAME = 'RADSWD_NIR'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_RADSWD_NIR'
@@ -2805,7 +2805,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'RADLWD'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: RADLWD'
+ TZFIELD%CLONGNAME = 'RADLWD'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_RADLWD'
@@ -2828,7 +2828,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'SWF_DOWN_CS'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: SWF_DOWN_CS'
+ TZFIELD%CLONGNAME = 'SWF_DOWN_CS'
TZFIELD%CUNITS = 'W m-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_SWF_DOWN_CS'
@@ -2848,7 +2848,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'SWF_UP_CS'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: SWF_UP_CS'
+ TZFIELD%CLONGNAME = 'SWF_UP_CS'
TZFIELD%CUNITS = 'W m-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_SWF_UP_CS'
@@ -2868,7 +2868,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'LWF_DOWN_CS'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: LWF_DOWN_CS'
+ TZFIELD%CLONGNAME = 'LWF_DOWN_CS'
TZFIELD%CUNITS = 'W m-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_LWF_DOWN_CS'
@@ -2888,7 +2888,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'LWF_UP_CS'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: LWF_UP_CS'
+ TZFIELD%CLONGNAME = 'LWF_UP_CS'
TZFIELD%CUNITS = 'W m-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_LWF_UP_CS'
@@ -2908,7 +2908,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'LWF_NET_CS'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: LWF_NET_CS'
+ TZFIELD%CLONGNAME = 'LWF_NET_CS'
TZFIELD%CUNITS = 'W m-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_LWF_NET_CS'
@@ -2928,7 +2928,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'SWF_NET_CS'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: SWF_NET_CS'
+ TZFIELD%CLONGNAME = 'SWF_NET_CS'
TZFIELD%CUNITS = 'W m-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_SWF_NET_CS'
@@ -2948,7 +2948,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'DTRAD_SW_CS'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: DTRAD_SW_CS'
+ TZFIELD%CLONGNAME = 'DTRAD_SW_CS'
TZFIELD%CUNITS = 'K day-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_DTRAD_SW_CS'
@@ -2968,7 +2968,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'DTRAD_LW_CS'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: DTRAD_LW_CS'
+ TZFIELD%CLONGNAME = 'DTRAD_LW_CS'
TZFIELD%CUNITS = 'K day-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_DTRAD_LW_CS'
@@ -2985,7 +2985,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'RADSWD_VIS_CS'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: RADSWD_VIS_CS'
+ TZFIELD%CLONGNAME = 'RADSWD_VIS_CS'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_RADSWD_VIS_CS'
@@ -3002,7 +3002,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'RADSWD_NIR_CS'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: RADSWD_NIR_CS'
+ TZFIELD%CLONGNAME = 'RADSWD_NIR_CS'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_RADSWD_NIR_CS'
@@ -3019,7 +3019,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'RADLWD_CS'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: RADLWD_CS'
+ TZFIELD%CLONGNAME = 'RADLWD_CS'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_RADLWD_CS'
@@ -3039,7 +3039,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'PLAN_ALB_VIS'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: PLAN_ALB_VIS'
+ TZFIELD%CLONGNAME = 'PLAN_ALB_VIS'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_PLAN_ALB_VIS'
@@ -3056,7 +3056,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'PLAN_ALB_NIR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: PLAN_ALB_NIR'
+ TZFIELD%CLONGNAME = 'PLAN_ALB_NIR'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_PLAN_ALB_NIR'
@@ -3073,7 +3073,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'PLAN_TRA_VIS'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: PLAN_TRA_VIS'
+ TZFIELD%CLONGNAME = 'PLAN_TRA_VIS'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_PLAN_TRA_VIS'
@@ -3090,7 +3090,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'PLAN_TRA_NIR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: PLAN_TRA_NIR'
+ TZFIELD%CLONGNAME = 'PLAN_TRA_NIR'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_PLAN_TRA_NIR'
@@ -3107,7 +3107,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'PLAN_ABS_VIS'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: PLAN_ABS_VIS'
+ TZFIELD%CLONGNAME = 'PLAN_ABS_VIS'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_PLAN_ABS_VIS'
@@ -3124,7 +3124,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'PLAN_ABS_NIR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: PLAN_ABS_NIR'
+ TZFIELD%CLONGNAME = 'PLAN_ABS_NIR'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_PLAN_ABS_NIR'
@@ -3149,7 +3149,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'EFNEB_DOWN'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: EFNEB_DOWN'
+ TZFIELD%CLONGNAME = 'EFNEB_DOWN'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_EFNEB_DOWN'
@@ -3169,7 +3169,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'EFNEB_UP'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: EFNEB_UP'
+ TZFIELD%CLONGNAME = 'EFNEB_UP'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_EFNEB_UP'
@@ -3189,7 +3189,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'FLWP'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: FLWP'
+ TZFIELD%CLONGNAME = 'FLWP'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_FLWP'
@@ -3209,7 +3209,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'FIWP'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: FIWP'
+ TZFIELD%CLONGNAME = 'FIWP'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_FIWP'
@@ -3229,7 +3229,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'EFRADL'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: EFRADL'
+ TZFIELD%CLONGNAME = 'EFRADL'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_RAD_microm'
@@ -3249,7 +3249,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'EFRADI'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: EFRADI'
+ TZFIELD%CLONGNAME = 'EFRADI'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_RAD_microm'
@@ -3269,7 +3269,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'SW_NEB'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: SW_NEB'
+ TZFIELD%CLONGNAME = 'SW_NEB'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_SW_NEB'
@@ -3289,7 +3289,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'RRTM_LW_NEB'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: RRTM_LW_NEB'
+ TZFIELD%CLONGNAME = 'RRTM_LW_NEB'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_LW_NEB'
@@ -3315,7 +3315,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
DO JBAND=1,KSWB
TZFIELD%CMNHNAME = 'ODAER_'//YBAND_NAME(JBAND)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_OD_'//YBAND_NAME(JBAND)
@@ -3326,7 +3326,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
!
TZFIELD%CMNHNAME = 'SSAAER_'//YBAND_NAME(JBAND)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_SSA_'//YBAND_NAME(JBAND)
@@ -3337,7 +3337,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
!
TZFIELD%CMNHNAME = 'GAER_'//YBAND_NAME(JBAND)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_G_'//YBAND_NAME(JBAND)
@@ -3359,7 +3359,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'OTH_'//YBAND_NAME(JBAND)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_OTH_'//YBAND_NAME(JBAND)
@@ -3379,7 +3379,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'SSA_'//YBAND_NAME(JBAND)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_SSA_'//YBAND_NAME(JBAND)
@@ -3399,7 +3399,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'ASF_'//YBAND_NAME(JBAND)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_ASF_'//YBAND_NAME(JBAND)
@@ -3426,7 +3426,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'O3CLIM'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: O3CLIM'
+ TZFIELD%CLONGNAME = 'O3CLIM'
TZFIELD%CUNITS = 'Pa Pa-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_O3'
@@ -3456,7 +3456,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
END DO
TZFIELD%CMNHNAME = 'CUM_AER_LAND'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: CUM_AER_LAND'
+ TZFIELD%CLONGNAME = 'CUM_AER_LAND'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_CUM_AER_OPT'
@@ -3484,7 +3484,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
!
TZFIELD%CMNHNAME = 'CUM_AER_SEA'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: CUM_AER_SEA'
+ TZFIELD%CLONGNAME = 'CUM_AER_SEA'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_CUM_AER_OPT'
@@ -3512,7 +3512,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
!
TZFIELD%CMNHNAME = 'CUM_AER_DES'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: CUM_AER_DES'
+ TZFIELD%CLONGNAME = 'CUM_AER_DES'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_CUM_AER_OPT'
@@ -3540,7 +3540,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
!
TZFIELD%CMNHNAME = 'CUM_AER_URB'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: CUM_AER_URB'
+ TZFIELD%CLONGNAME = 'CUM_AER_URB'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_CUM_AER_OPT'
@@ -3568,7 +3568,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
!
TZFIELD%CMNHNAME = 'CUM_AER_VOL'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: CUM_AER_VOL'
+ TZFIELD%CLONGNAME = 'CUM_AER_VOL'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_CUM_AER_OPT'
@@ -3596,7 +3596,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
!
TZFIELD%CMNHNAME = 'CUM_AER_STRB'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: CUM_AER_STRB'
+ TZFIELD%CLONGNAME = 'CUM_AER_STRB'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_CUM_AER_OPT'
diff --git a/src/MNH/rain_c2r2_khko.f90 b/src/MNH/rain_c2r2_khko.f90
index da6032ca9e1b6a097fa114f582d22faa710b9e91..950fd75b220c2c4cabcf32db1beb8a22e42c212b 100644
--- a/src/MNH/rain_c2r2_khko.f90
+++ b/src/MNH/rain_c2r2_khko.f90
@@ -594,7 +594,7 @@ INTEGER :: J1
! IF ( OCLOSE_OUT ) THEN
! TZFIELD%CMNHNAME = 'ZCHEN'
! TZFIELD%CSTDNAME = ''
-! TZFIELD%CLONGNAME = 'MesoNH: ZCHEN'
+! TZFIELD%CLONGNAME = 'ZCHEN'
! TZFIELD%CUNITS = ''
! TZFIELD%CDIR = 'XY'
! TZFIELD%CCOMMENT = 'X_Y_Z_ZCHEN'
@@ -877,7 +877,7 @@ INUCT = COUNTJV( GNUCT(:,:,:),I1(:),I2(:),I3(:))
IF ( OCLOSE_OUT ) THEN
TZFIELD%CMNHNAME = 'SMAX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: SMAX'
+ TZFIELD%CLONGNAME = 'SMAX'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_SMAX'
@@ -1903,7 +1903,7 @@ DO JN = 1 , KSPLITR
IF (OSEDC .AND. OCLOSE_OUT) THEN
TZFIELD%CMNHNAME = 'SEDFLUXC'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: SEDFLUXC'
+ TZFIELD%CLONGNAME = 'SEDFLUXC'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_SEDFLUXC'
@@ -1914,7 +1914,7 @@ DO JN = 1 , KSPLITR
!
TZFIELD%CMNHNAME = 'SEDFLUXR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: SEDFLUXR'
+ TZFIELD%CLONGNAME = 'SEDFLUXR'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_SEDFLUXR'
diff --git a/src/MNH/read_dummy_gr_fieldn.f90 b/src/MNH/read_dummy_gr_fieldn.f90
index d17d5d73e09c72d3c9c589e338c11ec3ec721386..29b0daff422f4d35c57396cd0743748127dd0c67 100644
--- a/src/MNH/read_dummy_gr_fieldn.f90
+++ b/src/MNH/read_dummy_gr_fieldn.f90
@@ -163,7 +163,7 @@ END IF
IF (IMASDEV>=40) THEN
TZFIELD%CMNHNAME = 'DUMMY_GR_NBR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: DUMMY_GR_NBR'
+ TZFIELD%CLONGNAME = 'DUMMY_GR_NBR'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'number of dummy pgd fields chosen by user'
@@ -191,7 +191,7 @@ DO JDUMMY=1,NDUMMY_GR_NBR
WRITE(YRECFM,'(A8,I3.3)') 'DUMMY_GR',JDUMMY
TZFIELD%CMNHNAME = TRIM(YRECFM)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(YRECFM)
+ TZFIELD%CLONGNAME = TRIM(YRECFM)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
! Expected comment is not known but is in the following form:
diff --git a/src/MNH/read_field.f90 b/src/MNH/read_field.f90
index b2d858a072ee39c185ca8ce703d990faf1d5d5b4..e969a906fe578c59a9c4f0b5137a9d7512becc94 100644
--- a/src/MNH/read_field.f90
+++ b/src/MNH/read_field.f90
@@ -577,7 +577,7 @@ IF (NSV_USER>0) THEN
SELECT CASE(HGETSVT(JSV))
CASE ('READ')
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SVT',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PSVT(:,:,:,JSV))
CASE ('INIT')
@@ -598,7 +598,7 @@ IF (NSV_C2R2END>=NSV_C2R2BEG) THEN
SELECT CASE(HGETSVT(JSV))
CASE ('READ')
TZFIELD%CMNHNAME = TRIM(C2R2NAMES(JSV-NSV_C2R2BEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PSVT(:,:,:,JSV))
CASE ('INIT')
@@ -628,7 +628,7 @@ IF (NSV_C1R3END>=NSV_C1R3BEG) THEN
SELECT CASE(HGETSVT(JSV))
CASE ('READ')
TZFIELD%CMNHNAME = TRIM(C1R3NAMES(JSV-NSV_C1R3BEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PSVT(:,:,:,JSV))
CASE ('INIT')
@@ -698,7 +698,7 @@ DO JSV = NSV_LIMA_BEG,NSV_LIMA_END
TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(5))//'T'
END IF
!
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PSVT(:,:,:,JSV))
CASE ('INIT')
PSVT(:,:,:,JSV) = 0.
@@ -716,7 +716,7 @@ IF (NSV_ELECEND>=NSV_ELECBEG) THEN
SELECT CASE(HGETSVT(JSV))
CASE ('READ')
TZFIELD%CMNHNAME = TRIM(CELECNAMES(JSV-NSV_ELECBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
IF (JSV .GT. NSV_ELECBEG .AND. JSV .LT. NSV_ELECEND) THEN
TZFIELD%CUNITS = 'C m-3'
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3,A8)')'X_Y_Z_','SVT',JSV,' (C/m3)'
@@ -735,7 +735,7 @@ IF (NSV_CHGSEND>=NSV_CHGSBEG) THEN
CNAMES(JSV-NSV_CHGSBEG+1) = UPCASE(CNAMES(JSV-NSV_CHGSBEG+1))
TZFIELD%CMNHNAME = TRIM(CNAMES(JSV-NSV_CHGSBEG+1))//'T'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ppbv'
TZFIELD%CDIR = 'XY'
WRITE(TZFIELD%CCOMMENT,'(A6,A4,I3.3)')'X_Y_Z_','CHIM',JSV
@@ -767,7 +767,7 @@ IF (NSV_CHACEND>=NSV_CHACBEG) THEN
SELECT CASE(HGETSVT(JSV))
CASE ('READ')
TZFIELD%CMNHNAME = TRIM(CNAMES(JSV-NSV_CHACBEG+NSV_CHGS+1))//'M'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A4,I3.3,A4)')'X_Y_Z_','CHAQ',JSV,' (M)'
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PSVT(:,:,:,JSV))
!***ATTENTION: BUG ? field written with a M suffix, read with a T suffix
@@ -790,7 +790,7 @@ IF (NSV_CHICEND>=NSV_CHICBEG) THEN
SELECT CASE(HGETSVT(JSV))
CASE ('READ')
TZFIELD%CMNHNAME = TRIM(CICNAMES(JSV-NSV_CHICBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3,A8)')'X_Y_Z_','SVT',JSV,' (ppp)'
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PSVT(:,:,:,JSV))
CASE ('INIT')
@@ -811,7 +811,7 @@ IF (NSV_SLTEND>=NSV_SLTBEG) THEN
SELECT CASE(HGETSVT(JSV))
CASE ('READ')
TZFIELD%CMNHNAME = TRIM(CSALTNAMES(JSV-NSV_SLTBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PSVT(:,:,:,JSV))
CASE ('INIT')
@@ -832,7 +832,7 @@ IF (NSV_SLTDEPEND>=NSV_SLTDEPBEG) THEN
SELECT CASE(HGETSVT(JSV))
CASE ('READ')
TZFIELD%CMNHNAME = TRIM(CDESLTNAMES(JSV-NSV_SLTDEPBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PSVT(:,:,:,JSV))
CASE ('INIT')
@@ -853,7 +853,7 @@ IF (NSV_DSTEND>=NSV_DSTBEG) THEN
SELECT CASE(HGETSVT(JSV))
CASE ('READ')
TZFIELD%CMNHNAME = TRIM(CDUSTNAMES(JSV-NSV_DSTBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PSVT(:,:,:,JSV))
CASE ('INIT')
@@ -874,7 +874,7 @@ IF (NSV_DSTDEPEND>=NSV_DSTDEPBEG) THEN
SELECT CASE(HGETSVT(JSV))
CASE ('READ')
TZFIELD%CMNHNAME = TRIM(CDEDSTNAMES(JSV-NSV_DSTDEPBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PSVT(:,:,:,JSV))
CASE ('INIT')
@@ -895,7 +895,7 @@ IF (NSV_AEREND>=NSV_AERBEG) THEN
SELECT CASE(HGETSVT(JSV))
CASE ('READ')
TZFIELD%CMNHNAME = TRIM(UPCASE(CAERONAMES(JSV-NSV_AERBEG+1)))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PSVT(:,:,:,JSV))
CASE ('INIT')
@@ -916,7 +916,7 @@ IF (NSV_AERDEPEND>=NSV_AERDEPBEG) THEN
SELECT CASE(HGETSVT(JSV))
CASE ('READ')
TZFIELD%CMNHNAME = TRIM(CDEAERNAMES(JSV-NSV_AERDEPBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PSVT(:,:,:,JSV))
CASE ('INIT')
@@ -937,7 +937,7 @@ IF (NSV_LGEND>=NSV_LGBEG) THEN
SELECT CASE(HGETSVT(JSV))
CASE ('READ')
TZFIELD%CMNHNAME = TRIM(CLGNAMES(JSV-NSV_LGBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PSVT(:,:,:,JSV))
CASE ('INIT')
@@ -957,7 +957,7 @@ IF (NSV_PPEND>=NSV_PPBEG) THEN
SELECT CASE(HGETSVT(JSV))
CASE ('READ')
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SVT',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'kg kg-1'
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PSVT(:,:,:,JSV),IRESP)
@@ -966,7 +966,7 @@ IF (NSV_PPEND>=NSV_PPBEG) THEN
END IF
!
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'ATC',JSV+NSV_PPBEG-1
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','ATC',JSV+NSV_PPBEG-1
TZFIELD%CUNITS = 'm-3'
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PATC(:,:,:,JSV-NSV_PPBEG+1),IRESP)
@@ -993,7 +993,7 @@ IF (NSV_FFEND>=NSV_FFBEG) THEN
SELECT CASE(HGETSVT(JSV))
CASE ('READ')
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SVT',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PSVT(:,:,:,JSV),IRESP)
IF (IRESP /= 0) THEN
@@ -1018,7 +1018,7 @@ IF (NSV_CSEND>=NSV_CSBEG) THEN
SELECT CASE(HGETSVT(JSV))
CASE ('READ')
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SVT',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PSVT(:,:,:,JSV),IRESP)
IF (IRESP /= 0) THEN
@@ -1042,7 +1042,7 @@ IF (NSV_LNOXEND>=NSV_LNOXBEG) THEN
SELECT CASE(HGETSVT(JSV))
CASE ('READ')
TZFIELD%CMNHNAME = 'LINOXT'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)') 'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PSVT(:,:,:,JSV))
CASE ('INIT')
@@ -1080,7 +1080,7 @@ IF (CCONF == 'RESTA') THEN
IF (JSV == NSV_C2R2BEG ) THEN
TZFIELD%CMNHNAME = 'RSVS_CLD1'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: RSVS_CLD1'
+ TZFIELD%CLONGNAME = 'RSVS_CLD1'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_RHS_CLD'
@@ -1092,7 +1092,7 @@ IF (CCONF == 'RESTA') THEN
IF (JSV == NSV_C2R2BEG ) THEN
TZFIELD%CMNHNAME = 'RSVS_CLD2'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: RSVS_CLD2'
+ TZFIELD%CLONGNAME = 'RSVS_CLD2'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_RHS_CLD'
@@ -1230,7 +1230,7 @@ IF ( LFORCING ) THEN
!
TZFIELD%CMNHNAME = 'DTFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'seconds since YYYY-MM-DD HH:MM:SS.S'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Date of forcing profile '//YFRC
@@ -1241,7 +1241,7 @@ IF ( LFORCING ) THEN
!
TZFIELD%CMNHNAME = 'UFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Zonal component of horizontal forcing wind'
@@ -1252,7 +1252,7 @@ IF ( LFORCING ) THEN
!
TZFIELD%CMNHNAME = 'VFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Meridian component of horizontal forcing wind'
@@ -1263,7 +1263,7 @@ IF ( LFORCING ) THEN
!
TZFIELD%CMNHNAME = 'WFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Vertical forcing wind'
@@ -1274,7 +1274,7 @@ IF ( LFORCING ) THEN
!
TZFIELD%CMNHNAME = 'THFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Forcing potential temperature'
@@ -1285,7 +1285,7 @@ IF ( LFORCING ) THEN
!
TZFIELD%CMNHNAME = 'RVFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'kg kg-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Forcing vapor mixing ratio'
@@ -1296,7 +1296,7 @@ IF ( LFORCING ) THEN
!
TZFIELD%CMNHNAME = 'TENDTHFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Large-scale potential temperature tendency for forcing'
@@ -1307,7 +1307,7 @@ IF ( LFORCING ) THEN
!
TZFIELD%CMNHNAME = 'TENDRVFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'kg kg-1 s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Large-scale vapor mixing ratio tendency for forcing'
@@ -1318,7 +1318,7 @@ IF ( LFORCING ) THEN
!
TZFIELD%CMNHNAME = 'GXTHFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K m-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Large-scale potential temperature gradient for forcing'
@@ -1329,7 +1329,7 @@ IF ( LFORCING ) THEN
!
TZFIELD%CMNHNAME = 'GYTHFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K m-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Large-scale potential temperature gradient for forcing'
@@ -1340,7 +1340,7 @@ IF ( LFORCING ) THEN
!
TZFIELD%CMNHNAME = 'PGROUNDFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'Pa'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Forcing ground pressure'
@@ -1351,7 +1351,7 @@ IF ( LFORCING ) THEN
!
TZFIELD%CMNHNAME = 'TENDUFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Large-scale U tendency for forcing'
@@ -1362,7 +1362,7 @@ IF ( LFORCING ) THEN
!
TZFIELD%CMNHNAME = 'TENDVFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Large-scale V tendency for forcing'
@@ -1381,7 +1381,7 @@ IF (L2D_ADV_FRC) THEN
!
TZFIELD%CMNHNAME = 'DTADV'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'seconds since YYYY-MM-DD HH:MM:SS.S'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Date and time of the advecting forcing '//YFRC
@@ -1392,7 +1392,7 @@ IF (L2D_ADV_FRC) THEN
!
TZFIELD%CMNHNAME = 'TH_ADV'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -1403,7 +1403,7 @@ IF (L2D_ADV_FRC) THEN
!
TZFIELD%CMNHNAME = 'Q_ADV'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'kg kg-1 s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -1421,7 +1421,7 @@ IF (L2D_REL_FRC) THEN
!
TZFIELD%CMNHNAME = 'DTREL'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'seconds since YYYY-MM-DD HH:MM:SS.S'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Date and time of the relaxation forcing '//YFRC
@@ -1433,7 +1433,7 @@ IF (L2D_REL_FRC) THEN
! Relaxation
TZFIELD%CMNHNAME = 'TH_REL'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -1444,7 +1444,7 @@ IF (L2D_REL_FRC) THEN
!
TZFIELD%CMNHNAME = 'Q_REL'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'kg kg-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
diff --git a/src/MNH/read_surf_mnh.f90 b/src/MNH/read_surf_mnh.f90
index d9177e42c34139577eb0d552beab4ec6cdb3698d..0fbd744a41e3b7cb8fc195996b6c00dc5a6e2228 100644
--- a/src/MNH/read_surf_mnh.f90
+++ b/src/MNH/read_surf_mnh.f90
@@ -142,7 +142,7 @@ IF ( HREC=='LAT0' .OR. HREC=='LON0' .OR. HREC=='RPK' .OR. HREC=='BETA' &
ELSE
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+ TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = '' !Expected comment is not known
@@ -308,7 +308,7 @@ ELSE IF (HREC=='XX') THEN
ZWORK(:,:) = 0.
TZFIELD%CMNHNAME = 'XHAT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: XHAT'
+ TZFIELD%CLONGNAME = 'XHAT'
TZFIELD%CUNITS = ''
TZFIELD%CCOMMENT = '' !Expected comment is not known
TZFIELD%NGRID = 2
@@ -333,7 +333,7 @@ ELSE IF (HREC=='DX') THEN
ZWORK(:,:) = 0.
TZFIELD%CMNHNAME = 'XHAT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: XHAT'
+ TZFIELD%CLONGNAME = 'XHAT'
TZFIELD%CUNITS = ''
TZFIELD%CCOMMENT = '' !Expected comment is not known
TZFIELD%NGRID = 2
@@ -358,7 +358,7 @@ ELSE IF (HREC=='YY') THEN
ZWORK(:,:) = 0.
TZFIELD%CMNHNAME = 'YHAT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: YHAT'
+ TZFIELD%CLONGNAME = 'YHAT'
TZFIELD%CUNITS = ''
TZFIELD%CCOMMENT = '' !Expected comment is not known
TZFIELD%NGRID = 3
@@ -383,7 +383,7 @@ ELSE IF (HREC=='DY') THEN
ZWORK(:,:) = 0.
TZFIELD%CMNHNAME = 'YHAT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: YHAT'
+ TZFIELD%CLONGNAME = 'YHAT'
TZFIELD%CUNITS = ''
TZFIELD%CCOMMENT = '' !Expected comment is not known
TZFIELD%NGRID = 3
@@ -438,7 +438,7 @@ ELSE
TZFIELD%CMNHNAME = TRIM(YREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(YREC)
+ TZFIELD%CLONGNAME = TRIM(YREC)
TZFIELD%CUNITS = ''
TZFIELD%CCOMMENT = '' !Expected comment is not known
TZFIELD%NGRID = 4
@@ -583,7 +583,7 @@ ILUOUT = TOUT%NLU
!
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CCOMMENT = '' !Expected comment is not known
TZFIELD%NGRID = 4
@@ -770,7 +770,7 @@ IF (IVERSION<7 .OR. (IVERSION==7 .AND. IBUGFIX==0)) THEN
ELSE
TZFIELD%CMNHNAME = 'COVER_PACKED'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: COVER_PACKED'
+ TZFIELD%CLONGNAME = 'COVER_PACKED'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -791,7 +791,7 @@ IF (.NOT. GCOVER_PACKED) THEN
DO JL2=1,SIZE(OFLAG)
WRITE(YREC,'(A5,I3.3)') 'COVER',JL2
TZFIELD%CMNHNAME = TRIM(YREC)
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(YREC)
+ TZFIELD%CLONGNAME = TRIM(YREC)
TZFIELD%CDIR = YDIR
IF (OFLAG(JL2)) THEN
ICOVER=ICOVER+1
@@ -802,7 +802,7 @@ IF (.NOT. GCOVER_PACKED) THEN
ELSE
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+ TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = YDIR
TZFIELD%CCOMMENT = '' !Expected comment is not known
@@ -971,7 +971,7 @@ IF (IVERSION<7 .OR. (IVERSION==7 .AND. IBUGFIX==0)) THEN
ELSE
TZFIELD%CMNHNAME = 'COVER_PACKED'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: COVER_PACKED'
+ TZFIELD%CLONGNAME = 'COVER_PACKED'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -985,7 +985,7 @@ IF (.NOT. GCOVER_PACKED) THEN
WRITE(YREC,'(A5,I3.3)') 'COVER',KCOVER
TZFIELD%CMNHNAME = TRIM(YREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(YREC)
+ TZFIELD%CLONGNAME = TRIM(YREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = YDIR1
TZFIELD%CCOMMENT = '' !Expected comment is not known
@@ -1100,7 +1100,7 @@ IF (HREC=='DIM_FULL' .AND. ( CPROGRAM=='IDEAL ' .OR. &
ELSE
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+ TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = '' !Expected comment is not known
@@ -1204,7 +1204,7 @@ IF (HDIR=='-') THEN
!
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+ TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
@@ -1218,7 +1218,7 @@ ELSE IF (HDIR=='H') THEN
!
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+ TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = '' !Expected comment is not known
@@ -1380,7 +1380,7 @@ CALL ABORT
ELSE
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+ TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = '' !Expected comment is not known
@@ -1488,7 +1488,7 @@ ILUOUT = TOUT%NLU
IF (HDIR=='-') THEN
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+ TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = '' !Expected comment is not known
@@ -1511,7 +1511,7 @@ ELSE IF (HDIR=='H') THEN
ALLOCATE(IWORK(NIU,NJU))
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+ TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = '' !Expected comment is not known
@@ -1624,7 +1624,7 @@ END IF
!
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = '' !Expected comment is not known
@@ -1731,7 +1731,7 @@ IF (IMASDEV<46) THEN
ELSE
TZFIELD%CMNHNAME = 'STORAGETYPE'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: STORAGETYPE'
+ TZFIELD%CLONGNAME = 'STORAGETYPE'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = '(-)'
@@ -1856,7 +1856,7 @@ IF (IMASDEV<46) THEN
ELSE
TZFIELD%CMNHNAME = 'STORAGETYPE'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: STORAGETYPE'
+ TZFIELD%CLONGNAME = 'STORAGETYPE'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = '(-)'
@@ -1878,7 +1878,7 @@ END IF
!
TZFIELD%CMNHNAME = TRIM(HREC)//'%TDATE'
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(TZFIELD%CMNHNAME)
+TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
@@ -1902,7 +1902,7 @@ ENDIF
!
TZFIELD%CMNHNAME = TRIM(HREC)//'%TIME'
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(TZFIELD%CMNHNAME)
+TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
diff --git a/src/MNH/shallow_mf_pack.f90 b/src/MNH/shallow_mf_pack.f90
index a28a591dee6777faa70d633fe11b67face6a4d54..2d3e8ab880fa455e2a86bfa764995c4b492dd69d 100644
--- a/src/MNH/shallow_mf_pack.f90
+++ b/src/MNH/shallow_mf_pack.f90
@@ -380,7 +380,7 @@ IF ( OMF_FLX .AND. OCLOSE_OUT ) THEN
ZWORK(:,:,:)=RESHAPE(ZFLXZTHMF (:,:),(/ IIU,IJU,IKU /) )
TZFIELD%CMNHNAME = 'MF_THW_FLX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: MF_THW_FLX'
+ TZFIELD%CLONGNAME = 'MF_THW_FLX'
TZFIELD%CUNITS = 'K m s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_MF_THW_FLX'
@@ -393,7 +393,7 @@ IF ( OMF_FLX .AND. OCLOSE_OUT ) THEN
ZWORK(:,:,:)=RESHAPE(ZFLXZRMF(:,:),(/ IIU,IJU,IKU /) )
TZFIELD%CMNHNAME = 'MF_RCONSW_FLX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: MF_RCONSW_FLX'
+ TZFIELD%CLONGNAME = 'MF_RCONSW_FLX'
TZFIELD%CUNITS = 'K m s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_MF_RCONSW_FLX'
@@ -405,7 +405,7 @@ IF ( OMF_FLX .AND. OCLOSE_OUT ) THEN
! stores the theta_v vertical flux
TZFIELD%CMNHNAME = 'MF_THVW_FLX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: MF_THVW_FLX'
+ TZFIELD%CLONGNAME = 'MF_THVW_FLX'
TZFIELD%CUNITS = 'K m s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_MF_THVW_FLX'
@@ -419,7 +419,7 @@ IF ( OMF_FLX .AND. OCLOSE_OUT ) THEN
ZWORK(:,:,:)=RESHAPE(ZFLXZUMF(:,:),(/ IIU,IJU,IKU /) )
TZFIELD%CMNHNAME = 'MF_UW_FLX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: MF_UW_FLX'
+ TZFIELD%CLONGNAME = 'MF_UW_FLX'
TZFIELD%CUNITS = 'm2 s-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_MF_UW_FLX'
@@ -432,7 +432,7 @@ IF ( OMF_FLX .AND. OCLOSE_OUT ) THEN
ZWORK(:,:,:)=RESHAPE(ZFLXZVMF(:,:),(/ IIU,IJU,IKU /) )
TZFIELD%CMNHNAME = 'MF_VW_FLX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: MF_VW_FLX'
+ TZFIELD%CLONGNAME = 'MF_VW_FLX'
TZFIELD%CUNITS = 'm2 s-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_MF_VW_FLX'
diff --git a/src/MNH/spawn_field2.f90 b/src/MNH/spawn_field2.f90
index db5deb4ea109b8b4b1d20281de3babba6dfa8c17..59842fa172ebbae4c9f2ba3b0e668fe60c8dac9c 100644
--- a/src/MNH/spawn_field2.f90
+++ b/src/MNH/spawn_field2.f90
@@ -801,7 +801,7 @@ IF (PRESENT(TPSONFILE)) THEN
!
DO JSV = 1, NSV_USER ! Users Scalar Variables
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SVT',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)
CALL IO_READ_FIELD(TPSONFILE,TZFIELD,ZWORK3D,IRESP)
IF(IRESP==0) PSVT(KIB2:KIE2,KJB2:KJE2,:,JSV)=ZWORK3D(KIB1:KIE1,KJB1:KJE1,:)
@@ -819,7 +819,7 @@ IF (PRESENT(TPSONFILE)) THEN
!
DO JSV = NSV_C2R2BEG,NSV_C2R2END
TZFIELD%CMNHNAME = TRIM(C2R2NAMES(JSV-NSV_C2R2BEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TPSONFILE,TZFIELD,ZWORK3D,IRESP)
IF(IRESP==0) PSVT(KIB2:KIE2,KJB2:KJE2,:,JSV)=ZWORK3D(KIB1:KIE1,KJB1:KJE1,:)
@@ -885,7 +885,7 @@ IF (PRESENT(TPSONFILE)) THEN
TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(5))//'T'
END IF
! time t
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
CALL IO_READ_FIELD(TPSONFILE,TZFIELD,ZWORK3D,IRESP)
IF(IRESP==0) PSVT(KIB2:KIE2,KJB2:KJE2,:,JSV)=ZWORK3D(KIB1:KIE1,KJB1:KJE1,:)
END DO
@@ -901,7 +901,7 @@ IF (PRESENT(TPSONFILE)) THEN
!
DO JSV = NSV_ELECBEG,NSV_ELECEND
TZFIELD%CMNHNAME = TRIM(CELECNAMES(JSV-NSV_ELECBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
IF (JSV .GT. NSV_ELECBEG .AND. JSV .LT. NSV_ELECEND) THEN
TZFIELD%CUNITS = 'C m-3'
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3,A8)')'X_Y_Z_','SVT',JSV,' (C/m3)'
@@ -926,7 +926,7 @@ IF (PRESENT(TPSONFILE)) THEN
!
DO JSV = NSV_CHEMBEG,NSV_CHEMEND
TZFIELD%CMNHNAME = TRIM(CNAMES(JSV-NSV_CHEMBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3,A8)')'X_Y_Z_','SVT',JSV,' (ppp)'
CALL IO_READ_FIELD(TPSONFILE,TZFIELD,ZWORK3D,IRESP)
IF(IRESP==0) PSVT(KIB2:KIE2,KJB2:KJE2,:,JSV)=ZWORK3D(KIB1:KIE1,KJB1:KJE1,:)
@@ -946,7 +946,7 @@ IF (PRESENT(TPSONFILE)) THEN
!
DO JSV = NSV_CHICBEG,NSV_CHICEND
TZFIELD%CMNHNAME = TRIM(CICNAMES(JSV-NSV_CHICBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3,A8)')'X_Y_Z_','SVT',JSV,' (ppp)'
CALL IO_READ_FIELD(TPSONFILE,TZFIELD,ZWORK3D,IRESP)
IF(IRESP==0) PSVT(KIB2:KIE2,KJB2:KJE2,:,JSV)=ZWORK3D(KIB1:KIE1,KJB1:KJE1,:)
@@ -965,7 +965,7 @@ IF (PRESENT(TPSONFILE)) THEN
!
DO JSV = NSV_AERBEG,NSV_AEREND
TZFIELD%CMNHNAME = TRIM(UPCASE(CAERONAMES(JSV-NSV_AERBEG+1)))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TPSONFILE,TZFIELD,ZWORK3D,IRESP)
IF(IRESP==0) PSVT(KIB2:KIE2,KJB2:KJE2,:,JSV)=ZWORK3D(KIB1:KIE1,KJB1:KJE1,:)
@@ -984,7 +984,7 @@ IF (PRESENT(TPSONFILE)) THEN
!
DO JSV = NSV_DSTBEG,NSV_DSTEND
TZFIELD%CMNHNAME = TRIM(CDUSTNAMES(JSV-NSV_DSTBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TPSONFILE,TZFIELD,ZWORK3D,IRESP)
IF(IRESP==0) PSVT(KIB2:KIE2,KJB2:KJE2,:,JSV)=ZWORK3D(KIB1:KIE1,KJB1:KJE1,:)
@@ -1003,7 +1003,7 @@ IF (PRESENT(TPSONFILE)) THEN
!
DO JSV = NSV_SLTBEG,NSV_SLTEND
TZFIELD%CMNHNAME = TRIM(CSALTNAMES(JSV-NSV_SLTBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TPSONFILE,TZFIELD,ZWORK3D,IRESP)
IF(IRESP==0) PSVT(KIB2:KIE2,KJB2:KJE2,:,JSV)=ZWORK3D(KIB1:KIE1,KJB1:KJE1,:)
@@ -1022,7 +1022,7 @@ IF (PRESENT(TPSONFILE)) THEN
!
DO JSV = NSV_LGBEG,NSV_LGEND
TZFIELD%CMNHNAME = TRIM(CLGNAMES(JSV-NSV_LGBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TPSONFILE,TZFIELD,ZWORK3D,IRESP)
IF(IRESP==0) PSVT(KIB2:KIE2,KJB2:KJE2,:,JSV)=ZWORK3D(KIB1:KIE1,KJB1:KJE1,:)
@@ -1043,7 +1043,7 @@ IF (PRESENT(TPSONFILE)) THEN
!
DO JSV = NSV_LNOXBEG,NSV_LNOXEND
TZFIELD%CMNHNAME = 'LINOX'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_READ_FIELD(TPSONFILE,TZFIELD,ZWORK3D,IRESP)
IF(IRESP==0) PSVT(KIB2:KIE2,KJB2:KJE2,:,JSV)=ZWORK3D(KIB1:KIE1,KJB1:KJE1,:)
@@ -1062,7 +1062,7 @@ IF (PRESENT(TPSONFILE)) THEN
!
DO JSV = NSV_PPBEG,NSV_PPEND
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SVT',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)
CALL IO_READ_FIELD(TPSONFILE,TZFIELD,ZWORK3D,IRESP)
IF(IRESP==0) PSVT(KIB2:KIE2,KJB2:KJE2,:,JSV)=ZWORK3D(KIB1:KIE1,KJB1:KJE1,:)
@@ -1082,7 +1082,7 @@ IF (PRESENT(TPSONFILE)) THEN
!
DO JSV = NSV_FFBEG,NSV_FFEND
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SVT',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)
CALL IO_READ_FIELD(TPSONFILE,TZFIELD,ZWORK3D,IRESP)
IF(IRESP==0) PSVT(KIB2:KIE2,KJB2:KJE2,:,JSV)=ZWORK3D(KIB1:KIE1,KJB1:KJE1,:)
@@ -1102,7 +1102,7 @@ IF (PRESENT(TPSONFILE)) THEN
!
DO JSV = NSV_CSBEG,NSV_CSEND
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SVT',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)
CALL IO_READ_FIELD(TPSONFILE,TZFIELD,ZWORK3D,IRESP)
IF(IRESP==0) PSVT(KIB2:KIE2,KJB2:KJE2,:,JSV)=ZWORK3D(KIB1:KIE1,KJB1:KJE1,:)
@@ -1121,7 +1121,7 @@ IF (PRESENT(TPSONFILE)) THEN
!
DO JSV = 1,NSV_PP
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'ATC',JSV+NSV_PPBEG-1
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','ATC',JSV+NSV_PPBEG-1
CALL IO_READ_FIELD(TPSONFILE,TZFIELD,ZWORK3D,IRESP)
IF(IRESP==0) PATC(KIB2:KIE2,KJB2:KJE2,:,JSV)=ZWORK3D(KIB1:KIE1,KJB1:KJE1,:)
@@ -1141,7 +1141,7 @@ IF (PRESENT(TPSONFILE)) THEN
!
DO JSV = 1,NSV_FF
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'ATC',JSV+NSV_FFBEG-1
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','ATC',JSV+NSV_FFBEG-1
CALL IO_READ_FIELD(TPSONFILE,TZFIELD,ZWORK3D,IRESP)
IF(IRESP==0) PATC(KIB2:KIE2,KJB2:KJE2,:,JSV)=ZWORK3D(KIB1:KIE1,KJB1:KJE1,:)
diff --git a/src/MNH/tke_eps_sources.f90 b/src/MNH/tke_eps_sources.f90
index e865f122315a736018e9e7af517ee9e97405e4e7..bdd749f4177cbe2741aa931b1e44ace1c87b3b0a 100644
--- a/src/MNH/tke_eps_sources.f90
+++ b/src/MNH/tke_eps_sources.f90
@@ -424,7 +424,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
!
TZFIELD%CMNHNAME = 'DP'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: DP'
+ TZFIELD%CLONGNAME = 'DP'
TZFIELD%CUNITS = 'm2 s-3'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_DP'
@@ -437,7 +437,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
!
TZFIELD%CMNHNAME = 'TP'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: TP'
+ TZFIELD%CLONGNAME = 'TP'
TZFIELD%CUNITS = 'm2 s-3'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_TP'
@@ -450,7 +450,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
!
TZFIELD%CMNHNAME = 'TR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: TR'
+ TZFIELD%CLONGNAME = 'TR'
TZFIELD%CUNITS = 'm2 s-3'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_TR'
@@ -463,7 +463,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
!
TZFIELD%CMNHNAME = 'DISS'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: DISS'
+ TZFIELD%CLONGNAME = 'DISS'
TZFIELD%CUNITS = 'm2 s-3'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_DISS'
diff --git a/src/MNH/turb.f90 b/src/MNH/turb.f90
index 7f4eb0b6de2dfc1429b08ce2fe90f257e23de06d..7ccb6cc22010440eb5e9ae4db44bb9cab7ce054d 100644
--- a/src/MNH/turb.f90
+++ b/src/MNH/turb.f90
@@ -677,7 +677,7 @@ IF (KRRL >=1) THEN
IF (OCLOSE_OUT .AND. OTURB_DIAG) THEN
TZFIELD%CMNHNAME = 'ATHETA'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: ATHETA'
+ TZFIELD%CLONGNAME = 'ATHETA'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_ATHETA'
@@ -688,7 +688,7 @@ IF (KRRL >=1) THEN
!
TZFIELD%CMNHNAME = 'AMOIST'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: AMOIST'
+ TZFIELD%CLONGNAME = 'AMOIST'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_AMOIST'
@@ -1024,7 +1024,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
!
TZFIELD%CMNHNAME = 'LM'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: LM'
+ TZFIELD%CLONGNAME = 'LM'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'Mixing length'
@@ -1039,7 +1039,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
!
TZFIELD%CMNHNAME = 'THLM'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: THLM'
+ TZFIELD%CLONGNAME = 'THLM'
TZFIELD%CUNITS = 'K'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'Conservative potential temperature'
@@ -1052,7 +1052,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
!
TZFIELD%CMNHNAME = 'RNPM'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: RNPM'
+ TZFIELD%CLONGNAME = 'RNPM'
TZFIELD%CUNITS = 'kg kg-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'Conservative mixing ratio'
@@ -1651,7 +1651,7 @@ ENDIF
IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%CMNHNAME = 'LM_CLEAR_SKY'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: LM_CLEAR_SKY'
+ TZFIELD%CLONGNAME = 'LM_CLEAR_SKY'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_LM CLEAR SKY'
@@ -1676,7 +1676,7 @@ WHERE (PCEI(:,:,:) == -1.) ZLM(:,:,:) = ZLM_CLOUD(:,:,:)
IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%CMNHNAME = 'COEF_AMPL'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: COEF_AMPL'
+ TZFIELD%CLONGNAME = 'COEF_AMPL'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_COEF AMPL'
@@ -1687,7 +1687,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
!
TZFIELD%CMNHNAME = 'LM_CLOUD'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: LM_CLOUD'
+ TZFIELD%CLONGNAME = 'LM_CLOUD'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_LM CLOUD'
diff --git a/src/MNH/turb_cloud_index.f90 b/src/MNH/turb_cloud_index.f90
index a27d3931e96e56c28d98eed63420e877ec681bfa..100320ed8542dbbf952b96fbdf48d2d4191089ea 100644
--- a/src/MNH/turb_cloud_index.f90
+++ b/src/MNH/turb_cloud_index.f90
@@ -255,7 +255,7 @@ ENDDO
IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%CMNHNAME = 'RVCI'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: RVCI'
+ TZFIELD%CLONGNAME = 'RVCI'
TZFIELD%CUNITS = 'kg kg-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_RVCI'
@@ -266,7 +266,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
!
TZFIELD%CMNHNAME = 'GX_RVCI'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: GX_RVCI'
+ TZFIELD%CLONGNAME = 'GX_RVCI'
TZFIELD%CUNITS = 'kg kg-1 m-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_GX_RVCI'
@@ -277,7 +277,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
!
TZFIELD%CMNHNAME = 'GY_RVCI'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: GY_RVCI'
+ TZFIELD%CLONGNAME = 'GY_RVCI'
TZFIELD%CUNITS = 'kg kg-1 m-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_GY_RVCI'
@@ -288,7 +288,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
!
TZFIELD%CMNHNAME = 'GNORM_RVCI'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: GNORM_RVCI'
+ TZFIELD%CLONGNAME = 'GNORM_RVCI'
TZFIELD%CUNITS = 'kg kg-1 m-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_NORM G'
@@ -299,7 +299,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
!
TZFIELD%CMNHNAME = 'QX_RVCI'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: QX_RVCI'
+ TZFIELD%CLONGNAME = 'QX_RVCI'
TZFIELD%CUNITS = 'kg kg-1 m-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_QX_RVCI'
@@ -310,7 +310,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
!
TZFIELD%CMNHNAME = 'QY_RVCI'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: QY_RVCI'
+ TZFIELD%CLONGNAME = 'QY_RVCI'
TZFIELD%CUNITS = 'kg kg-1 m-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_QY_RVCI'
@@ -321,7 +321,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
!
TZFIELD%CMNHNAME = 'QNORM_RVCI'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: QNORM_RVCI'
+ TZFIELD%CLONGNAME = 'QNORM_RVCI'
TZFIELD%CUNITS = 'kg kg-1 m-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_QNORM_RVCI'
@@ -332,7 +332,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
!
TZFIELD%CMNHNAME = 'CEI'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: CEI'
+ TZFIELD%CLONGNAME = 'CEI'
TZFIELD%CUNITS = 'kg kg-1 m-1 s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_CEI'
diff --git a/src/MNH/turb_hor_dyn_corr.f90 b/src/MNH/turb_hor_dyn_corr.f90
index d34ef68cecc9ce2aa203b1b4151aae275b18c822..ea607d7d5dd2e9083dccd36f19ca1133a2c309b9 100644
--- a/src/MNH/turb_hor_dyn_corr.f90
+++ b/src/MNH/turb_hor_dyn_corr.f90
@@ -380,7 +380,7 @@ IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
! stores <U U>
TZFIELD%CMNHNAME = 'U_VAR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: U_VAR'
+ TZFIELD%CLONGNAME = 'U_VAR'
TZFIELD%CUNITS = '(m s-1)^2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_U_VAR'
@@ -475,7 +475,7 @@ IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
! stores <V V>
TZFIELD%CMNHNAME = 'V_VAR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: V_VAR'
+ TZFIELD%CLONGNAME = 'V_VAR'
TZFIELD%CUNITS = '(m s-1)^2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_V_VAR'
@@ -561,7 +561,7 @@ IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
! stores <W W>
TZFIELD%CMNHNAME = 'W_VAR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: W_VAR'
+ TZFIELD%CLONGNAME = 'W_VAR'
TZFIELD%CUNITS = '(m s-1)^2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_W_VAR'
diff --git a/src/MNH/turb_hor_sv_flux.f90 b/src/MNH/turb_hor_sv_flux.f90
index 9322af019e609f4f03cf029789d7d0897323d8da..10fd5264ba401e8f4d5c5ba59fe315ed399c4378 100644
--- a/src/MNH/turb_hor_sv_flux.f90
+++ b/src/MNH/turb_hor_sv_flux.f90
@@ -249,7 +249,7 @@ DO JSV=1,ISV
IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
WRITE(TZFIELD%CMNHNAME,'("USV_FLX_",I3.3)') JSV
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'SVUNIT m s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)
@@ -299,7 +299,7 @@ DO JSV=1,ISV
IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
WRITE(TZFIELD%CMNHNAME,'("VSV_FLX_",I3.3)') JSV
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'SVUNIT m s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)
diff --git a/src/MNH/turb_hor_thermo_corr.f90 b/src/MNH/turb_hor_thermo_corr.f90
index 14eff4f17d03cc9e94af1b6ed8bbfc847e4a0d10..779e46464b311d0fad19a8ab37767eaa2f1f6954 100644
--- a/src/MNH/turb_hor_thermo_corr.f90
+++ b/src/MNH/turb_hor_thermo_corr.f90
@@ -278,7 +278,7 @@ IF ( ( KRRL > 0 .AND. OSUBG_COND) .OR. ( OTURB_FLX .AND. OCLOSE_OUT ) &
IF ( OTURB_FLX .AND. OCLOSE_OUT ) THEN
TZFIELD%CMNHNAME = 'THL_HVAR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: THL_HVAR'
+ TZFIELD%CLONGNAME = 'THL_HVAR'
TZFIELD%CUNITS = 'K2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_THL_HVAR'
@@ -365,7 +365,7 @@ IF ( ( KRRL > 0 .AND. OSUBG_COND) .OR. ( OTURB_FLX .AND. OCLOSE_OUT ) &
IF ( OTURB_FLX .AND. OCLOSE_OUT ) THEN
TZFIELD%CMNHNAME = 'THLR_HCOR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: THLR_HCOR'
+ TZFIELD%CLONGNAME = 'THLR_HCOR'
TZFIELD%CUNITS = 'K kg kg-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_THLR_HCOR'
@@ -432,7 +432,7 @@ IF ( ( KRRL > 0 .AND. OSUBG_COND) .OR. ( OTURB_FLX .AND. OCLOSE_OUT ) &
IF ( OTURB_FLX .AND. OCLOSE_OUT ) THEN
TZFIELD%CMNHNAME = 'R_HVAR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: R_HVAR'
+ TZFIELD%CLONGNAME = 'R_HVAR'
TZFIELD%CUNITS = '(kg kg-1)^2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_R_HVAR'
diff --git a/src/MNH/turb_hor_thermo_flux.f90 b/src/MNH/turb_hor_thermo_flux.f90
index 2950c51c6f97651eae716de2c1ec24d6f373e114..5d6dc0e4cd96fcb7f07de3f8c69c27f646def5ef 100644
--- a/src/MNH/turb_hor_thermo_flux.f90
+++ b/src/MNH/turb_hor_thermo_flux.f90
@@ -321,7 +321,7 @@ END IF
IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
TZFIELD%CMNHNAME = 'UTHL_FLX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: UTHL_FLX'
+ TZFIELD%CLONGNAME = 'UTHL_FLX'
TZFIELD%CUNITS = 'K m s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_UTHL_FLX'
@@ -423,7 +423,7 @@ IF (KRR/=0) THEN
IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
TZFIELD%CMNHNAME = 'UR_FLX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: UR_FLX'
+ TZFIELD%CLONGNAME = 'UR_FLX'
TZFIELD%CUNITS = 'kg kg-1 m s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_UR_FLX'
@@ -471,7 +471,7 @@ END IF
!! IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
!! TZFIELD%CMNHNAME = 'UVPT_FLX'
!! TZFIELD%CSTDNAME = ''
-!! TZFIELD%CLONGNAME = 'MesoNH: UVPT_FLX'
+!! TZFIELD%CLONGNAME = 'UVPT_FLX'
!! TZFIELD%CUNITS = 'K m s-1'
!! TZFIELD%CDIR = 'XY'
!! TZFIELD%CCOMMENT = 'X_Y_Z_UVPT_FLX'
@@ -573,7 +573,7 @@ END IF
IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
TZFIELD%CMNHNAME = 'VTHL_FLX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: VTHL_FLX'
+ TZFIELD%CLONGNAME = 'VTHL_FLX'
TZFIELD%CUNITS = 'K m s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_VTHL_FLX'
@@ -684,7 +684,7 @@ IF (KRR/=0) THEN
IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
TZFIELD%CMNHNAME = 'VR_FLX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: VR_FLX'
+ TZFIELD%CLONGNAME = 'VR_FLX'
TZFIELD%CUNITS = 'kg kg-1 m s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_VR_FLX'
@@ -736,7 +736,7 @@ END IF
!! IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
!! TZFIELD%CMNHNAME = 'VVPT_FLX'
!! TZFIELD%CSTDNAME = ''
-!! TZFIELD%CLONGNAME = 'MesoNH: VVPT_FLX'
+!! TZFIELD%CLONGNAME = 'VVPT_FLX'
!! TZFIELD%CUNITS = 'K m s-1'
!! TZFIELD%CDIR = 'XY'
!! TZFIELD%CCOMMENT = 'X_Y_Z_VVPT_FLX'
diff --git a/src/MNH/turb_hor_uv.f90 b/src/MNH/turb_hor_uv.f90
index 4eb26ee4032b40535fef2182625d2568edfc1857..349b0d4bac9c498711e419341e7aee8be18a649f 100644
--- a/src/MNH/turb_hor_uv.f90
+++ b/src/MNH/turb_hor_uv.f90
@@ -281,7 +281,7 @@ ZFLX(:,:,IKB-1:IKB-1) = 2. * MXM( MYM( ZFLX(:,:,IKB-1:IKB-1) ) ) &
IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
TZFIELD%CMNHNAME = 'UV_FLX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: UV_FLX'
+ TZFIELD%CLONGNAME = 'UV_FLX'
TZFIELD%CUNITS = '(m s-1)^2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_UV_FLX'
diff --git a/src/MNH/turb_hor_uw.f90 b/src/MNH/turb_hor_uw.f90
index 03e1be25c62daccda94dcda00baeb37d6cfec32d..b0495e7b38bf16d98a57a385d3b180462bbdace7 100644
--- a/src/MNH/turb_hor_uw.f90
+++ b/src/MNH/turb_hor_uw.f90
@@ -230,7 +230,7 @@ ZFLX(:,:,IKB-1)=2.*ZFLX(:,:,IKB)- ZFLX(:,:,IKB+1)
IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
TZFIELD%CMNHNAME = 'UW_HFLX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: UW_HFLX'
+ TZFIELD%CLONGNAME = 'UW_HFLX'
TZFIELD%CUNITS = '(m s-1)^2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_UW_HFLX'
diff --git a/src/MNH/turb_hor_vw.f90 b/src/MNH/turb_hor_vw.f90
index e3fc145f5124c099695589bcb9496857137fb290..8030ab05f78bd137d1bf1f673a9a7a6bbc4cabcf 100644
--- a/src/MNH/turb_hor_vw.f90
+++ b/src/MNH/turb_hor_vw.f90
@@ -232,7 +232,7 @@ ZFLX(:,:,IKB-1)= 2.*ZFLX(:,:,IKB) - ZFLX(:,:,IKB+1)
IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
TZFIELD%CMNHNAME = 'VW_HFLX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: VW_HFLX'
+ TZFIELD%CLONGNAME = 'VW_HFLX'
TZFIELD%CUNITS = '(m s-1)^2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_VW_HFLX'
diff --git a/src/MNH/turb_ver.f90 b/src/MNH/turb_ver.f90
index 8ad678b36b08751615976460109607c99217df74..caef71812eef71c492a6d547f7237c541c1c68f4 100644
--- a/src/MNH/turb_ver.f90
+++ b/src/MNH/turb_ver.f90
@@ -710,7 +710,7 @@ IF ( OTURB_FLX .AND. OCLOSE_OUT ) THEN
!
TZFIELD%CMNHNAME = 'PHI3'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: PHI3'
+ TZFIELD%CLONGNAME = 'PHI3'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'Turbulent Prandtl number'
@@ -723,7 +723,7 @@ IF ( OTURB_FLX .AND. OCLOSE_OUT ) THEN
!
TZFIELD%CMNHNAME = 'PSI3'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: PSI3'
+ TZFIELD%CLONGNAME = 'PSI3'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'Turbulent Schmidt number'
@@ -743,7 +743,7 @@ IF ( OTURB_FLX .AND. OCLOSE_OUT ) THEN
TZFIELD%NDIMS = 3
DO JSV=1,NSV
WRITE(TZFIELD%CMNHNAME, '("PSI_SV_",I3.3)') JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPSI_SV(:,:,:,JSV))
END DO
diff --git a/src/MNH/turb_ver_dyn_flux.f90 b/src/MNH/turb_ver_dyn_flux.f90
index 6dbf1e40a55beb9306369cc898725c2902bb0cac..fc8cdcf6a93568941e98f4bf79321cb41e764b09 100644
--- a/src/MNH/turb_ver_dyn_flux.f90
+++ b/src/MNH/turb_ver_dyn_flux.f90
@@ -515,7 +515,7 @@ IF ( OTURB_FLX .AND. OCLOSE_OUT ) THEN
! stores the U wind component vertical flux
TZFIELD%CMNHNAME = 'UW_VFLX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: UW_VFLX'
+ TZFIELD%CLONGNAME = 'UW_VFLX'
TZFIELD%CUNITS = 'm^2 s-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'U wind component vertical flux'
@@ -689,7 +689,7 @@ IF ( OTURB_FLX .AND. OCLOSE_OUT ) THEN
! stores the V wind component vertical flux
TZFIELD%CMNHNAME = 'VW_VFLX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: VW_VFLX'
+ TZFIELD%CLONGNAME = 'VW_VFLX'
TZFIELD%CUNITS = 'm^2 s-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'V wind component vertical flux'
@@ -809,7 +809,7 @@ IF ( OTURB_FLX .AND. OCLOSE_OUT .AND. HTURBDIM == '1DIM') THEN
! stores the W variance
TZFIELD%CMNHNAME = 'W_VVAR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: W_VVAR'
+ TZFIELD%CLONGNAME = 'W_VVAR'
TZFIELD%CUNITS = 'm^2 s-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_W_VVAR'
diff --git a/src/MNH/turb_ver_sv_flux.f90 b/src/MNH/turb_ver_sv_flux.f90
index e6c58786ab0ff0cef2c04c4a358d06edaec429cd..e97053f52ad66d3705edcbead4304633c3a86672 100644
--- a/src/MNH/turb_ver_sv_flux.f90
+++ b/src/MNH/turb_ver_sv_flux.f90
@@ -455,7 +455,7 @@ DO JSV=1,ISV
! stores the JSVth vertical flux
WRITE(TZFIELD%CMNHNAME,'("WSV_FLX_",I3.3)') JSV
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
!PW: TODO: use the correct units of the JSV variable (and multiply it by m s-1)
TZFIELD%CUNITS = 'SVUNIT m s-1'
TZFIELD%CDIR = 'XY'
diff --git a/src/MNH/turb_ver_thermo_corr.f90 b/src/MNH/turb_ver_thermo_corr.f90
index 5be5b0b7c488b0baff4293bcaeb19ec522360754..2911bae7b7b9fccc3130fa2817908cb0bdc3cec9 100644
--- a/src/MNH/turb_ver_thermo_corr.f90
+++ b/src/MNH/turb_ver_thermo_corr.f90
@@ -578,7 +578,7 @@ END IF
IF ( OTURB_FLX .AND. OCLOSE_OUT ) THEN
TZFIELD%CMNHNAME = 'THL_VVAR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: THL_VVAR'
+ TZFIELD%CLONGNAME = 'THL_VVAR'
TZFIELD%CUNITS = 'K^2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_THL_VVAR'
@@ -704,7 +704,7 @@ END IF
IF ( OTURB_FLX .AND. OCLOSE_OUT ) THEN
TZFIELD%CMNHNAME = 'THLRCONS_VCOR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: THLRCONS_VCOR'
+ TZFIELD%CLONGNAME = 'THLRCONS_VCOR'
TZFIELD%CUNITS = 'K kg kg-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_THLRCONS_VCOR'
@@ -810,7 +810,7 @@ END IF
IF ( OTURB_FLX .AND. OCLOSE_OUT ) THEN
TZFIELD%CMNHNAME = 'RTOT_VVAR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: RTOT_VVAR'
+ TZFIELD%CLONGNAME = 'RTOT_VVAR'
TZFIELD%CUNITS = '(kg kg-1)^2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_RTOT_VVAR'
diff --git a/src/MNH/turb_ver_thermo_flux.f90 b/src/MNH/turb_ver_thermo_flux.f90
index 6c4a71f537cfd67a2702f6b19996407dbf765d90..79d0487fb3297ef56981ceadba36abda8b415798 100644
--- a/src/MNH/turb_ver_thermo_flux.f90
+++ b/src/MNH/turb_ver_thermo_flux.f90
@@ -612,7 +612,7 @@ IF ( OTURB_FLX .AND. OCLOSE_OUT ) THEN
! stores the conservative potential temperature vertical flux
TZFIELD%CMNHNAME = 'THW_FLX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: THW_FLX'
+ TZFIELD%CLONGNAME = 'THW_FLX'
TZFIELD%CUNITS = 'K m s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'Conservative potential temperature vertical flux'
@@ -789,7 +789,7 @@ IF (KRR /= 0) THEN
! stores the conservative mixing ratio vertical flux
TZFIELD%CMNHNAME = 'RCONSW_FLX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: RCONSW_FLX'
+ TZFIELD%CLONGNAME = 'RCONSW_FLX'
TZFIELD%CUNITS = 'kg m s-1 kg-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'Conservative mixing ratio vertical flux'
@@ -870,7 +870,7 @@ IF ( ((OTURB_FLX .AND. OCLOSE_OUT) .OR. LLES_CALL) .AND. (KRRL > 0) ) THEN
IF ( OTURB_FLX .AND. OCLOSE_OUT ) THEN
TZFIELD%CMNHNAME = 'RCW_FLX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: RCW_FLX'
+ TZFIELD%CLONGNAME = 'RCW_FLX'
TZFIELD%CUNITS = 'kg m s-1 kg-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'Liquid water mixing ratio vertical flux'
diff --git a/src/MNH/ver_thermo.f90 b/src/MNH/ver_thermo.f90
index 65af6e80fda3864e39dd707d351c1e4a72482e06..865d1325337c40e8c35c92c04d56afc978eb00d7 100644
--- a/src/MNH/ver_thermo.f90
+++ b/src/MNH/ver_thermo.f90
@@ -301,7 +301,7 @@ END DO
IF (NVERB>=10) THEN
TZFIELD%CMNHNAME = 'THV'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: THV'
+ TZFIELD%CLONGNAME = 'THV'
TZFIELD%CUNITS = 'K'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_THV'
diff --git a/src/MNH/write_balloonn.f90 b/src/MNH/write_balloonn.f90
index f1b95431b29ba98a269601949ffeba372e4ae66f..491ccdb483c04e1ec73313a6c83322d233656b44 100644
--- a/src/MNH/write_balloonn.f90
+++ b/src/MNH/write_balloonn.f90
@@ -119,7 +119,7 @@ CALL SM_LATLON(XLATORI,XLONORI, &
!
TZFIELD%CMNHNAME = TRIM(TPFLYER%TITLE)//'LAT'
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'degree'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -130,7 +130,7 @@ CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZLAT)
!
TZFIELD%CMNHNAME = TRIM(TPFLYER%TITLE)//'LON'
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'degree'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -141,7 +141,7 @@ CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZLON)
!
TZFIELD%CMNHNAME = TRIM(TPFLYER%TITLE)//'ALT'
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -152,7 +152,7 @@ CALL IO_WRITE_FIELD(TPFILE,TZFIELD,TPFLYER%Z_CUR)
!
TZFIELD%CMNHNAME = TRIM(TPFLYER%TITLE)//'WASCENT'
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -163,7 +163,7 @@ CALL IO_WRITE_FIELD(TPFILE,TZFIELD,TPFLYER%WASCENT)
!
TZFIELD%CMNHNAME = TRIM(TPFLYER%TITLE)//'RHO'
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'kg m-3'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
diff --git a/src/MNH/write_budget.f90 b/src/MNH/write_budget.f90
index 9b2773a74323d35c3e04e50b7c737d0564600f47..6ddf82e196aa87866f81f9029635ed5813afecab 100644
--- a/src/MNH/write_budget.f90
+++ b/src/MNH/write_budget.f90
@@ -196,7 +196,7 @@ YFILEDIA = TPDIAFILE%CNAME
!
TZFIELD%CMNHNAME = 'TSTEP'
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'MesoNH: TSTEP'
+TZFIELD%CLONGNAME = 'TSTEP'
TZFIELD%CUNITS = 's'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Time step'
@@ -207,7 +207,7 @@ CALL IO_WRITE_FIELD(TPDIAFILE,TZFIELD,PTSTEP)
!
TZFIELD%CMNHNAME = 'BULEN'
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'MesoNH: BULEN'
+TZFIELD%CLONGNAME = 'BULEN'
TZFIELD%CUNITS = 's'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Time step'
@@ -1032,7 +1032,7 @@ SELECT CASE (CBUTYPE)
!
WRITE(TZFIELD%CMNHNAME,FMT="('MASK_',I4.4,'.MASK')") NBUTSHIFT
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
WRITE(TZFIELD%CCOMMENT,FMT="('X_Y_MASK',I4.4)") NBUTSHIFT
diff --git a/src/MNH/write_diachro.f90 b/src/MNH/write_diachro.f90
index 6b3290ea900db5ce616fd089e5ad5a1a0ecbbc29..34a5073023fd5532147c622f9a277494736eb722 100644
--- a/src/MNH/write_diachro.f90
+++ b/src/MNH/write_diachro.f90
@@ -225,7 +225,7 @@ ENDIF
!
TZFIELD%CMNHNAME = TRIM(HGROUP)//'.TYPE'
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(HGROUP)//'.TYPE'
+TZFIELD%CLONGNAME = TRIM(HGROUP)//'.TYPE'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(YCOMMENT)
@@ -242,7 +242,7 @@ ENDIF
!
TZFIELD%CMNHNAME = TRIM(HGROUP)//'.DIM'
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(HGROUP)//'.DIM'
+TZFIELD%CLONGNAME = TRIM(HGROUP)//'.DIM'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(YCOMMENT)
@@ -307,7 +307,7 @@ ENDIF
!
TZFIELD%CMNHNAME = TRIM(HGROUP)//'.TITRE'
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(HGROUP)//'.TITRE'
+TZFIELD%CLONGNAME = TRIM(HGROUP)//'.TITRE'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(YCOMMENT)
@@ -324,7 +324,7 @@ ENDIF
!
TZFIELD%CMNHNAME = TRIM(HGROUP)//'.UNITE'
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(HGROUP)//'.UNITE'
+TZFIELD%CLONGNAME = TRIM(HGROUP)//'.UNITE'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(YCOMMENT)
@@ -341,7 +341,7 @@ ENDIF
!
TZFIELD%CMNHNAME = TRIM(HGROUP)//'.COMMENT'
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(HGROUP)//'.COMMENT'
+TZFIELD%CLONGNAME = TRIM(HGROUP)//'.COMMENT'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(YCOMMENT)
@@ -374,7 +374,7 @@ IF (PRESENT(OICP) .AND. PRESENT(OJCP)) THEN
IF(HTYPE == 'CART' .AND. .NOT. OICP .AND. .NOT. OJCP) THEN
TZFIELD%CMNHNAME = TRIM(HGROUP)//'.'//TRIM(HTITRE(J))
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = TRIM(HUNITE(J))
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = TRIM(HCOMMENT(J))
@@ -386,7 +386,7 @@ IF (PRESENT(OICP) .AND. PRESENT(OJCP)) THEN
ELSE
TZFIELD%CMNHNAME = TRIM(HGROUP)//'.'//TRIM(HTITRE(J))
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = TRIM(HUNITE(J))
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(HCOMMENT(J))
@@ -398,7 +398,7 @@ IF (PRESENT(OICP) .AND. PRESENT(OJCP)) THEN
ELSE
TZFIELD%CMNHNAME = TRIM(HGROUP)//'.'//TRIM(HTITRE(J))
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = TRIM(HUNITE(J))
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(HCOMMENT(J))
@@ -419,7 +419,7 @@ ENDIF
!
TZFIELD%CMNHNAME = TRIM(HGROUP)//'.TRAJT'
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(HGROUP)//'.TRAJT'
+TZFIELD%CLONGNAME = TRIM(HGROUP)//'.TRAJT'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(YCOMMENT)
@@ -440,7 +440,7 @@ ENDIF
IF(PRESENT(PTRAJX))THEN
TZFIELD%CMNHNAME = TRIM(HGROUP)//'.TRAJX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(HGROUP)//'.TRAJX'
+ TZFIELD%CLONGNAME = TRIM(HGROUP)//'.TRAJX'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(YCOMMENT)
@@ -455,7 +455,7 @@ ENDIF
IF(PRESENT(PMASK))THEN
TZFIELD%CMNHNAME = TRIM(HGROUP)//'.MASK'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(HGROUP)//'.MASK'
+ TZFIELD%CLONGNAME = TRIM(HGROUP)//'.MASK'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = TRIM(YCOMMENT)
@@ -470,7 +470,7 @@ ENDIF
IF(PRESENT(PTRAJY))THEN
TZFIELD%CMNHNAME = TRIM(HGROUP)//'.TRAJY'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(HGROUP)//'.TRAJY'
+ TZFIELD%CLONGNAME = TRIM(HGROUP)//'.TRAJY'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(YCOMMENT)
@@ -485,7 +485,7 @@ ENDIF
IF(PRESENT(PTRAJZ))THEN
TZFIELD%CMNHNAME = TRIM(HGROUP)//'.TRAJZ'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(HGROUP)//'.TRAJZ'
+ TZFIELD%CLONGNAME = TRIM(HGROUP)//'.TRAJZ'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(YCOMMENT)
@@ -499,7 +499,7 @@ ENDIF
!
TZFIELD%CMNHNAME = TRIM(HGROUP)//'.DATIM'
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(HGROUP)//'.DATIM'
+TZFIELD%CLONGNAME = TRIM(HGROUP)//'.DATIM'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(YCOMMENT)
diff --git a/src/MNH/write_dummy_gr_fieldn.f90 b/src/MNH/write_dummy_gr_fieldn.f90
index 8c87543aa80291af1704dae06f2686fb181fe088..9af2d0ccf70c589b800ea87d65807ebd8b541ed1 100644
--- a/src/MNH/write_dummy_gr_fieldn.f90
+++ b/src/MNH/write_dummy_gr_fieldn.f90
@@ -110,7 +110,7 @@ ALLOCATE(ZWORK2D(SIZE(XDUMMY_GR_FIELDS,1),SIZE(XDUMMY_GR_FIELDS,2)))
!
TZFIELD%CMNHNAME = 'DUMMY_GR_NBR'
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'MesoNH: DUMMY_GR_NBR'
+TZFIELD%CLONGNAME = 'DUMMY_GR_NBR'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'number of dummy pgd fields chosen by user'
@@ -126,7 +126,7 @@ DO JDUMMY=1,NDUMMY_GR_NBR
!
TZFIELD%CMNHNAME = TRIM(YRECFM)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(YRECFM)
+ TZFIELD%CLONGNAME = TRIM(YRECFM)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_'//YRECFM//YSTRING20//YSTRING03
diff --git a/src/MNH/write_lbn.f90 b/src/MNH/write_lbn.f90
index e42b199cf2fae9018a1e93dc597281fcc7429c2d..1a762dc1c0c12a6920fc4dc788b160db9b5ae4bd 100644
--- a/src/MNH/write_lbn.f90
+++ b/src/MNH/write_lbn.f90
@@ -201,7 +201,7 @@ IF (NRR >=1) THEN
!
TZFIELD%CMNHNAME = 'HORELAX_R'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: HORELAX_R'
+ TZFIELD%CLONGNAME = 'HORELAX_R'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Switch to activate the HOrizontal RELAXation'
@@ -228,7 +228,7 @@ IF (NRR >=1) THEN
IRR=IRR+1
IF(NSIZELBXR_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBXR'//YC(JRR)//'M'
- TZFIELD%CLONGNAME = 'MesoNH: LBXR'//YC(JRR)//'M'
+ TZFIELD%CLONGNAME = 'LBXR'//YC(JRR)//'M'
TZFIELD%CLBTYPE = 'LBX'
TZFIELD%CCOMMENT = '2_Y_Z_LBXR'//YC(JRR)//'M'
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXR_ll,XLBXRM(:,:,:,IRR))
@@ -236,7 +236,7 @@ IF (NRR >=1) THEN
!
IF(NSIZELBYR_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBYR'//YC(JRR)//'M'
- TZFIELD%CLONGNAME = 'MesoNH: LBYR'//YC(JRR)//'M'
+ TZFIELD%CLONGNAME = 'LBYR'//YC(JRR)//'M'
TZFIELD%CLBTYPE = 'LBY'
TZFIELD%CCOMMENT = '2_Y_Z_LBYR'//YC(JRR)//'M'
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXR_ll,XLBYRM(:,:,:,IRR))
@@ -254,7 +254,7 @@ IF (NSV >=1) THEN
!
TZFIELD%CMNHNAME = 'HORELAX_SV'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: HORELAX_SV'
+ TZFIELD%CLONGNAME = 'HORELAX_SV'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -277,7 +277,7 @@ IF (NSV >=1) THEN
DO JSV = 1,NSV_USER
IF(NSIZELBXSV_ll /= 0) THEN
WRITE(TZFIELD%CMNHNAME,'(A6,I3.3)')'LBXSVM',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3,A8)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
@@ -285,7 +285,7 @@ IF (NSV >=1) THEN
!
IF(NSIZELBYSV_ll /= 0) THEN
WRITE(TZFIELD%CMNHNAME,'(A6,I3.3)')'LBYSVM',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3,A8)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -304,7 +304,7 @@ IF (NSV >=1) THEN
DO JSV = NSV_C2R2BEG,NSV_C2R2END
IF(NSIZELBXSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(C2R2NAMES(JSV-NSV_C2R2BEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
@@ -312,7 +312,7 @@ IF (NSV >=1) THEN
!
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(C2R2NAMES(JSV-NSV_C2R2BEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -331,7 +331,7 @@ IF (NSV >=1) THEN
DO JSV = NSV_C1R3BEG,NSV_C1R3END
IF(NSIZELBXSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(C1R3NAMES(JSV-NSV_C1R3BEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
@@ -339,7 +339,7 @@ IF (NSV >=1) THEN
!
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(C1R3NAMES(JSV-NSV_C1R3BEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -361,7 +361,7 @@ IF (NSV >=1) THEN
WRITE(INDICE,'(I2.2)')(JSV - NSV_LIMA_CCN_FREE + 1)
IF(NSIZELBXSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CLIMA_WARM_NAMES(3))//INDICE)
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
@@ -369,7 +369,7 @@ IF (NSV >=1) THEN
!
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(UPCASE(CLIMA_WARM_NAMES(3))//INDICE)
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -380,7 +380,7 @@ IF (NSV >=1) THEN
WRITE(INDICE,'(I2.2)')(JSV - NSV_LIMA_IFN_FREE + 1)
IF(NSIZELBXSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CLIMA_COLD_NAMES(2))//INDICE)
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
@@ -388,7 +388,7 @@ IF (NSV >=1) THEN
!
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(UPCASE(CLIMA_COLD_NAMES(2))//INDICE)
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -409,7 +409,7 @@ IF (NSV >=1) THEN
DO JSV = NSV_ELECBEG,NSV_ELECEND
IF(NSIZELBXSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(CELECNAMES(JSV-NSV_ELECBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
@@ -417,7 +417,7 @@ IF (NSV >=1) THEN
!
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(CELECNAMES(JSV-NSV_ELECBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -461,7 +461,7 @@ IF (NSV >=1) THEN
DO JSV = NSV_AERBEG,NSV_AEREND
IF(NSIZELBXSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CAERONAMES(JSV-NSV_AERBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
@@ -469,7 +469,7 @@ IF (NSV >=1) THEN
!
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(UPCASE(CAERONAMES(JSV-NSV_AERBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -480,7 +480,7 @@ IF (NSV >=1) THEN
DO JSV = NSV_AERDEPBEG,NSV_AERDEPEND
IF(NSIZELBXSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(CDEAERNAMES(JSV-NSV_AERDEPBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
@@ -488,7 +488,7 @@ IF (NSV >=1) THEN
!
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(CDEAERNAMES(JSV-NSV_AERDEPBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -507,7 +507,7 @@ IF (NSV >=1) THEN
DO JSV = NSV_CHEMBEG,NSV_CHEMEND
IF(NSIZELBXSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CNAMES(JSV-NSV_CHEMBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
@@ -515,7 +515,7 @@ IF (NSV >=1) THEN
!
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(UPCASE(CNAMES(JSV-NSV_CHEMBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -525,7 +525,7 @@ IF (NSV >=1) THEN
DO JSV = NSV_CHICBEG,NSV_CHICEND
IF(NSIZELBXSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CICNAMES(JSV-NSV_CHICBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
@@ -533,7 +533,7 @@ IF (NSV >=1) THEN
!
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(UPCASE(CICNAMES(JSV-NSV_CHICBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -543,7 +543,7 @@ IF (NSV >=1) THEN
DO JSV = NSV_LNOXBEG,NSV_LNOXEND
IF(NSIZELBXSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBX_LINOX'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
@@ -551,7 +551,7 @@ IF (NSV >=1) THEN
!
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_LINOX'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -613,14 +613,14 @@ IF (NSV >=1) THEN
IF(NSIZELBXSV_ll /= 0) THEN !Check on border points in X direction
TZFIELD%CMNHNAME = 'LBX_'//TRIM(YPDUST_INI(ISV_NAME_IDX))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3,A8)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
ENDIF !Check on border points in X direction
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(YPDUST_INI(ISV_NAME_IDX))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3,A8)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -636,14 +636,14 @@ IF (NSV >=1) THEN
!
IF(NSIZELBXSV_ll /= 0) THEN !Check on border points in X direction
TZFIELD%CMNHNAME = 'LBX_'//TRIM(YPDUST_INI(ISV_NAME_IDX))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3,A8)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
ENDIF !Check on border points in X direction
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(YPDUST_INI(ISV_NAME_IDX))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3,A8)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -666,7 +666,7 @@ IF (NSV >=1) THEN
DO JSV = NSV_DSTBEG,NSV_DSTEND
IF(NSIZELBXSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(CDUSTNAMES(JSV-NSV_DSTBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
@@ -674,7 +674,7 @@ IF (NSV >=1) THEN
!
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(CDUSTNAMES(JSV-NSV_DSTBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -684,7 +684,7 @@ IF (NSV >=1) THEN
DO JSV = NSV_DSTDEPBEG,NSV_DSTDEPEND
IF(NSIZELBXSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(CDEDSTNAMES(JSV-NSV_DSTDEPBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
@@ -692,7 +692,7 @@ IF (NSV >=1) THEN
!
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(CDEDSTNAMES(JSV-NSV_DSTDEPBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -759,14 +759,14 @@ IF (NSV >=1) THEN
IF(NSIZELBXSV_ll /= 0) THEN !Check on border points in X direction
TZFIELD%CMNHNAME = 'LBX_'//TRIM(YPSALT_INI(ISV_NAME_IDX))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
ENDIF !Check on border points in X direction
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(YPSALT_INI(ISV_NAME_IDX))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -782,14 +782,14 @@ IF (NSV >=1) THEN
IF(NSIZELBXSV_ll /= 0) THEN !Check on border points in X direction
TZFIELD%CMNHNAME = 'LBX_'//TRIM(YPSALT_INI(ISV_NAME_IDX))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
ENDIF !Check on border points in X direction
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(YPSALT_INI(ISV_NAME_IDX))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -810,7 +810,7 @@ IF (NSV >=1) THEN
DO JSV = NSV_SLTBEG,NSV_SLTEND
IF(NSIZELBXSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(CSALTNAMES(JSV-NSV_SLTBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
@@ -818,7 +818,7 @@ IF (NSV >=1) THEN
!
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(CSALTNAMES(JSV-NSV_SLTBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -828,7 +828,7 @@ IF (NSV >=1) THEN
DO JSV = NSV_SLTDEPBEG,NSV_SLTDEPEND
IF(NSIZELBXSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(CDESLTNAMES(JSV-NSV_SLTDEPBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
@@ -836,7 +836,7 @@ IF (NSV >=1) THEN
!
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(CDESLTNAMES(JSV-NSV_SLTDEPBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -858,7 +858,7 @@ IF (NSV >=1) THEN
DO JSV = NSV_LGBEG,NSV_LGEND
IF(NSIZELBXSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(CLGNAMES(JSV-NSV_LGBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
@@ -866,7 +866,7 @@ IF (NSV >=1) THEN
!
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_'//TRIM(CLGNAMES(JSV-NSV_LGBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -885,7 +885,7 @@ IF (NSV >=1) THEN
DO JSV = NSV_PPBEG,NSV_PPEND
IF(NSIZELBXSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBX_PP'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
@@ -893,7 +893,7 @@ IF (NSV >=1) THEN
!
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_PP'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -912,7 +912,7 @@ IF (NSV >=1) THEN
DO JSV = NSV_CSBEG,NSV_CSEND
IF(NSIZELBXSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBX_CS'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
@@ -920,7 +920,7 @@ IF (NSV >=1) THEN
!
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_CS'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
@@ -940,7 +940,7 @@ IF (NSV >=1) THEN
DO JSV = NSV_FFBEG,NSV_FFEND
IF(NSIZELBXSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBX_FF'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBX'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'2_Y_Z_','LBXSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXSV_ll,XLBXSVM(:,:,:,JSV))
@@ -948,7 +948,7 @@ IF (NSV >=1) THEN
!
IF(NSIZELBYSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBY_FF'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CLBTYPE = 'LBY'
WRITE(TZFIELD%CCOMMENT,'(A6,A6,I3.3)')'X_2_Z_','LBYSVM',JSV
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYSV_ll,XLBYSVM(:,:,:,JSV))
diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90
index 25cd9b3f5b156b8688379882349ae1507f79abc4..992649a0e9e9348ba82dc3e383215ab4da550936 100644
--- a/src/MNH/write_lfifm1_for_diag.f90
+++ b/src/MNH/write_lfifm1_for_diag.f90
@@ -404,7 +404,7 @@ IF (.NOT.LCARTESIAN) THEN
!LONOR and LATOR not in TFIELDLIST because local variables
TZFIELD%CMNHNAME = 'LONOR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: LONOR'
+ TZFIELD%CLONGNAME = 'LONOR'
TZFIELD%CUNITS = 'degree'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Longitude of 1st mass point'
@@ -414,7 +414,7 @@ IF (.NOT.LCARTESIAN) THEN
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZLONOR)
!
TZFIELD%CMNHNAME = 'LATOR'
- TZFIELD%CLONGNAME = 'MesoNH: LATOR'
+ TZFIELD%CLONGNAME = 'LATOR'
TZFIELD%CCOMMENT = 'Latitude of 1st mass point'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZLATOR)
!
@@ -497,7 +497,7 @@ ZPOVO(:,:,IKU)=-1.E+11
IF (INDEX(CISO,'EV') /= 0) THEN
TZFIELD%CMNHNAME = 'POVOT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: POVOT'
+ TZFIELD%CLONGNAME = 'POVOT'
TZFIELD%CUNITS = 'PVU' ! 1 PVU = 1e-6 m^2 s^-1 K kg^-1
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_POtential VOrticity'
@@ -515,7 +515,7 @@ IF (LVAR_RS) THEN
IF (LWIND_ZM) THEN
TZFIELD2(1)%CMNHNAME = 'UM_ZM'
TZFIELD2(1)%CSTDNAME = ''
- TZFIELD2(1)%CLONGNAME = 'MesoNH: UM_ZM'
+ TZFIELD2(1)%CLONGNAME = 'UM_ZM'
TZFIELD2(1)%CUNITS = 'm s-1'
TZFIELD2(1)%CDIR = 'XY'
TZFIELD2(1)%CCOMMENT = 'Zonal component of horizontal wind'
@@ -525,7 +525,7 @@ IF (LVAR_RS) THEN
!
TZFIELD2(2)%CMNHNAME = 'VM_ZM'
TZFIELD2(2)%CSTDNAME = ''
- TZFIELD2(2)%CLONGNAME = 'MesoNH: VM_ZM'
+ TZFIELD2(2)%CLONGNAME = 'VM_ZM'
TZFIELD2(2)%CUNITS = 'm s-1'
TZFIELD2(2)%CDIR = 'XY'
TZFIELD2(2)%CCOMMENT = 'Meridian component of horizontal wind'
@@ -720,7 +720,7 @@ IF (LVAR_PR ) THEN
!* Precipitable water in kg/m**2
TZFIELD%CMNHNAME = 'PRECIP_WAT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: PRECIP_WAT'
+ TZFIELD%CLONGNAME = 'PRECIP_WAT'
TZFIELD%CUNITS = 'kg m-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = ''
@@ -798,7 +798,7 @@ IF (LHU_FLX) THEN
! composantes U et V du flux surfacique d'humidité
TZFIELD%CMNHNAME = 'UM90'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: UM90'
+ TZFIELD%CLONGNAME = 'UM90'
TZFIELD%CUNITS = 'kg s-1 m-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = ''
@@ -809,7 +809,7 @@ IF (LHU_FLX) THEN
!
TZFIELD%CMNHNAME = 'VM90'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: VM90'
+ TZFIELD%CLONGNAME = 'VM90'
TZFIELD%CUNITS = 'kg s-1 m-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = ''
@@ -820,7 +820,7 @@ IF (LHU_FLX) THEN
! composantes U et V du flux d'humidité intégré sur 3000 metres
TZFIELD%CMNHNAME = 'UM91'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: UM91'
+ TZFIELD%CLONGNAME = 'UM91'
TZFIELD%CUNITS = 'kg s-1 m-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = ''
@@ -831,7 +831,7 @@ IF (LHU_FLX) THEN
!
TZFIELD%CMNHNAME = 'VM91'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: VM91'
+ TZFIELD%CLONGNAME = 'VM91'
TZFIELD%CUNITS = 'kg s-1 m-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = ''
@@ -843,7 +843,7 @@ IF (LHU_FLX) THEN
! Convergence d'humidité
TZFIELD%CMNHNAME = 'HMCONV'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: HMCONV'
+ TZFIELD%CLONGNAME = 'HMCONV'
TZFIELD%CUNITS = 'kg s-1 m-3'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Horizontal CONVergence of moisture flux'
@@ -855,7 +855,7 @@ IF (LHU_FLX) THEN
! Convergence d'humidité intégré sur 3000 mètres
TZFIELD%CMNHNAME = 'HMCONV3000'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: HMCONV3000'
+ TZFIELD%CLONGNAME = 'HMCONV3000'
TZFIELD%CUNITS = 'kg s-1 m-3'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Horizontal CONVergence of moisture flux'
@@ -868,7 +868,7 @@ IF (LHU_FLX) THEN
! composantes U et V du flux surfacique d'hydrométéores
TZFIELD%CMNHNAME = 'UM92'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: UM92'
+ TZFIELD%CLONGNAME = 'UM92'
TZFIELD%CUNITS = 'kg s-1 m-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = ''
@@ -879,7 +879,7 @@ IF (LHU_FLX) THEN
!
TZFIELD%CMNHNAME = 'VM92'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: VM92'
+ TZFIELD%CLONGNAME = 'VM92'
TZFIELD%CUNITS = 'kg s-1 m-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = ''
@@ -890,7 +890,7 @@ IF (LHU_FLX) THEN
! composantes U et V du flux d'hydrométéores intégré sur 3000 metres
TZFIELD%CMNHNAME = 'UM93'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: UM93'
+ TZFIELD%CLONGNAME = 'UM93'
TZFIELD%CUNITS = 'kg s-1 m-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = ''
@@ -901,7 +901,7 @@ IF (LHU_FLX) THEN
!
TZFIELD%CMNHNAME = 'VM93'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: VM93'
+ TZFIELD%CLONGNAME = 'VM93'
TZFIELD%CUNITS = 'kg s-1 m-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = ''
@@ -912,7 +912,7 @@ IF (LHU_FLX) THEN
! Convergence d'hydrométéores
TZFIELD%CMNHNAME = 'HMCONV_TT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: HMCONV_TT'
+ TZFIELD%CLONGNAME = 'HMCONV_TT'
TZFIELD%CUNITS = 'kg s-1 m-3'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Horizontal CONVergence of hydrometeor flux'
@@ -923,7 +923,7 @@ IF (LHU_FLX) THEN
! Convergence d'hydrométéores intégré sur 3000 mètres
TZFIELD%CMNHNAME = 'HMCONV3000_TT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: HMCONV3000_TT'
+ TZFIELD%CLONGNAME = 'HMCONV3000_TT'
TZFIELD%CUNITS = 'kg s-1 m-3'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Horizontal CONVergence of hydrometeor flux'
@@ -946,40 +946,40 @@ IF (LVAR_MRW .OR. LLIMA_DIAG) THEN
TZFIELD%NDIMS = 3
IF (LUSERV) THEN
TZFIELD%CMNHNAME = 'MRV'
- TZFIELD%CLONGNAME = 'MesoNH: MRV'
+ TZFIELD%CLONGNAME = 'MRV'
TZFIELD%CUNITS = 'g kg-1'
TZFIELD%CCOMMENT = 'X_Y_Z_MRV'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XRT(:,:,:,IDX_RVT)*1.E3)
END IF
IF (LUSERC) THEN
TZFIELD%CMNHNAME = 'MRC'
- TZFIELD%CLONGNAME = 'MesoNH: MRC'
+ TZFIELD%CLONGNAME = 'MRC'
TZFIELD%CUNITS = 'g kg-1'
TZFIELD%CCOMMENT = 'X_Y_Z_MRC'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XRT(:,:,:,IDX_RCT)*1.E3)
!
TZFIELD%CMNHNAME = 'VRC'
- TZFIELD%CLONGNAME = 'MesoNH: VRC'
+ TZFIELD%CLONGNAME = 'VRC'
TZFIELD%CUNITS = '' !vol/vol
TZFIELD%CCOMMENT = 'X_Y_Z_VRC (vol/vol)'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XRT(:,:,:,IDX_RCT)*XRHODREF(:,:,:)/1.E3)
END IF
IF (LUSERR) THEN
TZFIELD%CMNHNAME = 'MRR'
- TZFIELD%CLONGNAME = 'MesoNH: MRR'
+ TZFIELD%CLONGNAME = 'MRR'
TZFIELD%CUNITS = 'g kg-1'
TZFIELD%CCOMMENT = 'X_Y_Z_MRR'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XRT(:,:,:,IDX_RRT)*1.E3)
!
TZFIELD%CMNHNAME = 'VRR'
- TZFIELD%CLONGNAME = 'MesoNH: VRR'
+ TZFIELD%CLONGNAME = 'VRR'
TZFIELD%CUNITS = '' !vol/vol
TZFIELD%CCOMMENT = 'X_Y_Z_VRR (vol/vol)'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XRT(:,:,:,IDX_RRT)*XRHODREF(:,:,:)/1.E3)
END IF
IF (LUSERI) THEN
TZFIELD%CMNHNAME = 'MRI'
- TZFIELD%CLONGNAME = 'MesoNH: MRI'
+ TZFIELD%CLONGNAME = 'MRI'
TZFIELD%CUNITS = 'g kg-1'
TZFIELD%CCOMMENT = 'X_Y_Z_MRI'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XRT(:,:,:,IDX_RIT)*1.E3)
@@ -990,21 +990,21 @@ IF (LVAR_MRW .OR. LLIMA_DIAG) THEN
END IF
IF (LUSERS) THEN
TZFIELD%CMNHNAME = 'MRS'
- TZFIELD%CLONGNAME = 'MesoNH: MRS'
+ TZFIELD%CLONGNAME = 'MRS'
TZFIELD%CUNITS = 'g kg-1'
TZFIELD%CCOMMENT = 'X_Y_Z_MRS'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XRT(:,:,:,IDX_RST)*1.E3)
END IF
IF (LUSERG) THEN
TZFIELD%CMNHNAME = 'MRG'
- TZFIELD%CLONGNAME = 'MesoNH: MRG'
+ TZFIELD%CLONGNAME = 'MRG'
TZFIELD%CUNITS = 'g kg-1'
TZFIELD%CCOMMENT = 'X_Y_Z_MRG'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XRT(:,:,:,IDX_RGT)*1.E3)
END IF
IF (LUSERH) THEN
TZFIELD%CMNHNAME = 'MRH'
- TZFIELD%CLONGNAME = 'MesoNH: MRH'
+ TZFIELD%CLONGNAME = 'MRH'
TZFIELD%CUNITS = 'g kg-1'
TZFIELD%CCOMMENT = 'X_Y_Z_MRH'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XRT(:,:,:,IDX_RHT)*1.E3)
@@ -1026,7 +1026,7 @@ IF (LVAR_MRSV) THEN
!
DO JSV = 1,NSV_USER
WRITE(TZFIELD%CMNHNAME,'(A4,I3.3)')'MRSV',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A4,I3.3)')'X_Y_Z_','MRSV',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV)*1.E3)
END DO
@@ -1042,7 +1042,7 @@ IF(LVAR_MRW) THEN
!
DO JSV = NSV_C2R2BEG,NSV_C2R2END
TZFIELD%CMNHNAME = TRIM(C2R2NAMES(JSV-NSV_C2R2BEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
IF (JSV < NSV_C2R2END) THEN
TZFIELD%CUNITS = 'cm-3'
ZWORK31(:,:,:)=XSVT(:,:,:,JSV)*1.E-6
@@ -1065,7 +1065,7 @@ IF(LVAR_MRW) THEN
!
DO JSV = NSV_C1R3BEG,NSV_C1R3END
TZFIELD%CMNHNAME = TRIM(C1R3NAMES(JSV-NSV_C1R3BEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV)*1.E-3)
END DO
@@ -1137,7 +1137,7 @@ IF (LLIMA_DIAG) THEN
TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_CONC(5))//'T'
END IF
!
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
ZWORK31(:,:,:)=XSVT(:,:,:,JSV)*1.E-6*XRHODREF(:,:,:)
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
END DO
@@ -1145,7 +1145,7 @@ IF (LLIMA_DIAG) THEN
IF (LUSERC) THEN
TZFIELD%CMNHNAME = 'LWC'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: LWC'
+ TZFIELD%CLONGNAME = 'LWC'
TZFIELD%CUNITS = 'g m-3'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_LWC'
@@ -1159,7 +1159,7 @@ IF (LLIMA_DIAG) THEN
IF (LUSERI) THEN
TZFIELD%CMNHNAME = 'IWC'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: IWC'
+ TZFIELD%CLONGNAME = 'IWC'
TZFIELD%CUNITS = 'g m-3'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_MRI'
@@ -1177,7 +1177,7 @@ IF (LCHEMDIAG) THEN
DO JSV = NSV_CHGSBEG,NSV_CHGSEND
TZFIELD%CMNHNAME = TRIM(UPCASE(CNAMES(JSV-NSV_CHGSBEG+1)))//'T'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ppbv'
TZFIELD%CDIR = 'XY'
WRITE(TZFIELD%CCOMMENT,'(A6,A4,I3.3)')'X_Y_Z_','CHIM',JSV
@@ -1199,7 +1199,7 @@ IF (LCHAQDIAG) THEN !aqueous concentration in M
ZWORK31(:,:,:)=0.
DO JSV = NSV_CHACBEG, NSV_CHACBEG-1+NEQAQ/2 !cloud water
TZFIELD%CMNHNAME = TRIM(CNAMES(JSV-NSV_CHACBEG+NSV_CHGS+1))//'M'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A4,I3.3,A4)')'X_Y_Z_','CHAQ',JSV,' (M)'
WHERE(((XRT(:,:,:,2)*XRHODREF(:,:,:))/1.e3) .GE. XRTMIN_AQ)
ZWORK31(:,:,:)=(XSVT(:,:,:,JSV)*1000.)/(XMD*1.E+3*XRT(:,:,:,2))
@@ -1210,7 +1210,7 @@ IF (LCHAQDIAG) THEN !aqueous concentration in M
ZWORK31(:,:,:)=0.
DO JSV = NSV_CHACBEG+NEQAQ/2, NSV_CHACEND !rain water
TZFIELD%CMNHNAME = TRIM(CNAMES(JSV-NSV_CHACBEG+NSV_CHGS+1))//'M'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A4,I3.3,A4)')'X_Y_Z_','CHAQ',JSV,' (M)'
WHERE(((XRT(:,:,:,3)*XRHODREF(:,:,:))/1.e3) .GE. XRTMIN_AQ)
ZWORK31(:,:,:)=(XSVT(:,:,:,JSV)*1000.)/(XMD*1.E+3*XRT(:,:,:,3))
@@ -1220,7 +1220,7 @@ IF (LCHAQDIAG) THEN !aqueous concentration in M
! ZWORK31(:,:,:)=0.
! DO JSV = NSV_CHICBEG,NSV_CHICEND ! ice phase
! TZFIELD%CMNHNAME = TRIM(CICNAMES(JSV-NSV_CHICBEG+1))//'T'
-! TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+! TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
! WRITE(TZFIELD%CCOMMENT,'(A6,A4,I3.3,A4)')'X_Y_Z_','CHIC',JSV,' (M)'
! WHERE(((XRT(:,:,:,3)*XRHODREF(:,:,:))/1.e3) .GE. XRTMIN_AQ)
! ZWORK31(:,:,:)=(XSVT(:,:,:,JSV)*1000.)/(XMD*1.E+3*XRT(:,:,:,3))
@@ -1252,7 +1252,7 @@ IF (LPASPOL) THEN
DO JSV = 1,NSV_PP
ZTMP(:,:,:)=ABS( XSVT(:,:,:,JSV+NSV_PPBEG-1)*ZRHOT(:,:,:) )
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'PPT',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZTMP)
END DO
@@ -1270,7 +1270,7 @@ IF (LCONDSAMP) THEN
!
DO JSV = NSV_CSBEG,NSV_CSEND
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'CST',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
END DO
@@ -1289,7 +1289,7 @@ IF (LTRAJ) THEN
!
DO JSV = NSV_LGBEG,NSV_LGEND
TZFIELD%CMNHNAME = TRIM(CLGNAMES(JSV-NSV_LGBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A20,I3.3,A4)')'X_Y_Z_','Lagrangian variable ',JSV,' (M)'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
END DO
@@ -1303,7 +1303,7 @@ IF (LTRAJ) THEN
END DO
END DO
TZFIELD%CMNHNAME = 'X'
- TZFIELD%CLONGNAME = 'MesoNH: X'
+ TZFIELD%CLONGNAME = 'X'
TZFIELD%CCOMMENT = 'X_Y_Z_X coordinate'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
! Y coordinate
@@ -1316,7 +1316,7 @@ IF (LTRAJ) THEN
END DO
END DO
TZFIELD%CMNHNAME = 'Y'
- TZFIELD%CLONGNAME = 'MesoNH: Y'
+ TZFIELD%CLONGNAME = 'Y'
TZFIELD%CCOMMENT = 'X_Y_Z_Y coordinate'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
END IF
@@ -1325,7 +1325,7 @@ IF (.NOT.(LUSECHEM .OR. LCHEMDIAG) .AND. LCH_CONV_LINOX) THEN
DO JSV = NSV_LNOXBEG,NSV_LNOXEND
TZFIELD%CMNHNAME = 'LINOXT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ppbv'
TZFIELD%CDIR = 'XY'
WRITE(TZFIELD%CCOMMENT,'(A6,A4,I3.3)')'X_Y_Z_','LNOX',JSV
@@ -1344,7 +1344,7 @@ IF (LELECDIAG .AND. CELEC .NE. "NONE") THEN
!
DO JSV = NSV_ELECBEG,NSV_ELECEND
TZFIELD%CMNHNAME = TRIM(CELECNAMES(JSV-NSV_ELECBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
IF (JSV .GT. NSV_ELECBEG .AND. JSV .LT. NSV_ELECEND) THEN
TZFIELD%CUNITS = 'C m-3'
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3,A8)')'X_Y_Z_','SVT',JSV,' (C/m3)'
@@ -1374,7 +1374,7 @@ IF (LSALT) THEN
!
DO JSV = NSV_SLTBEG,NSV_SLTEND
TZFIELD%CMNHNAME = TRIM(UPCASE(CSALTNAMES(JSV-NSV_SLTBEG+1)))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A4,I3.3)')'X_Y_Z_','SALT',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV)*1.E9)
END DO
@@ -1390,32 +1390,32 @@ IF (LSALT) THEN
!
DO JJ=1,NMODE_SLT
TZFIELD%CMNHNAME = 'SLTRGA'
- TZFIELD%CLONGNAME = 'MesoNH: SLTRGA'
+ TZFIELD%CLONGNAME = 'SLTRGA'
TZFIELD%CUNITS = 'um'
WRITE(TZFIELD%CCOMMENT,'(A18,I1)')'RG (nb) SALT MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZRG_SLT(:,:,:,JJ))
!
TZFIELD%CMNHNAME = 'SLTRGAM'
- TZFIELD%CLONGNAME = 'MesoNH: SLTRGAM'
+ TZFIELD%CLONGNAME = 'SLTRGAM'
TZFIELD%CUNITS = 'um'
WRITE(TZFIELD%CCOMMENT,'(A17,I1)')'RG (m) SALT MODE ',JJ
ZWORK31(:,:,:)=ZRG_SLT(:,:,:,JJ) / (EXP(-3.*(LOG(ZSIG_SLT(:,:,:,JJ)))**2))
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
!
WRITE(TZFIELD%CMNHNAME,'(A6,I1)')'SLTN0A',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm-3'
WRITE(TZFIELD%CCOMMENT,'(A13,I1)')'N0 SALT MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZN0_SLT(:,:,:,JJ))
!
WRITE(TZFIELD%CMNHNAME,'(A7,I1)')'SLTSIGA',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = '1'
WRITE(TZFIELD%CCOMMENT,'(A16,I1)')'SIGMA SALT MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSIG_SLT(:,:,:,JJ))
!SALT MASS CONCENTRATION
WRITE(TZFIELD%CMNHNAME,'(A4,I1)')'SLTMSS',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ug m-3'
WRITE(TZFIELD%CCOMMENT,'(A14,I1)')'MASSCONC MODE ',JJ
ZWORK31(:,:,:)= ZN0_SLT(:,:,:,JJ)*4./3.*3.14*2500.*1e9 & !kg-->ug
@@ -1436,7 +1436,7 @@ IF (LSALT) THEN
ENDDO
ENDDO
WRITE(TZFIELD%CMNHNAME,'(A7,I1)')'SLTBRDN',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'g m-2'
WRITE(TZFIELD%CCOMMENT,'(A6,I1)')'BURDEN',JJ
TZFIELD%NDIMS = 2
@@ -1458,7 +1458,7 @@ IF (LSALT.AND.LDEPOS_SLT(IMI)) THEN
!
DO JSV = 1,NSV_SLTDEP
TZFIELD%CMNHNAME = TRIM(UPCASE(CDESLTNAMES(JSV)))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A4,I3.3)')'X_Y_Z_','SALTDEP',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSSLTDEP(:,:,:,JSV)*1.E9)
END DO
@@ -1466,7 +1466,7 @@ IF (LSALT.AND.LDEPOS_SLT(IMI)) THEN
DO JJ=1,NMODE_SLT
! FOR CLOUDS
WRITE(TZFIELD%CMNHNAME,'(A9,I1)')'SLTDEPN0A',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A16,I1)')'N0 DUSTDEP MODE ',JJ
TZFIELD%CUNITS = 'm-3'
! CLOUD: CALCULATE MOMENT 3 FROM TOTAL AEROSOL MASS
@@ -1493,7 +1493,7 @@ IF (LSALT.AND.LDEPOS_SLT(IMI)) THEN
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
! CLOUD: DUST MASS CONCENTRATION
WRITE(TZFIELD%CMNHNAME,'(A9,I1)')'SLTDEPMSS',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A17,I1)')'DEPMASSCONC MODE ',JJ
TZFIELD%CUNITS = 'ug m-3'
ZWORK31(:,:,:)= ZWORK31(:,:,:)*4./3.*3.14*2500.*1e9 & !kg-->ug
@@ -1502,7 +1502,7 @@ IF (LSALT.AND.LDEPOS_SLT(IMI)) THEN
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
! FOR RAIN DROPS
WRITE(TZFIELD%CMNHNAME,'(A9,I1)')'SLTDEPN0A',JJ+NMODE_SLT
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A16,I1)')'N0 DUSTDEP MODE ',JJ+NMODE_SLT
TZFIELD%CUNITS = 'm-3'
! RAIN: CALCULATE MOMENT 3 FROM TOTAL AEROSOL MASS
@@ -1529,7 +1529,7 @@ IF (LSALT.AND.LDEPOS_SLT(IMI)) THEN
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
! RAIN: DUST MASS CONCENTRATION
WRITE(TZFIELD%CMNHNAME,'(A9,I1)')'SLTDEPMSS',JJ+NMODE_SLT
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A17,I1)')'DEPMASSCONC MODE ',JJ+NMODE_SLT
TZFIELD%CUNITS = 'ug m-3'
ZWORK31(:,:,:)= ZWORK31(:,:,:)*4./3.*3.14*2500.*1e9 & !kg-->ug
@@ -1557,7 +1557,7 @@ IF (LDUST) THEN
!
DO JSV = NSV_DSTBEG,NSV_DSTEND
TZFIELD%CMNHNAME = TRIM(UPCASE(CDUSTNAMES(JSV-NSV_DSTBEG+1)))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A4,I3.3)')'X_Y_Z_','DUST',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV)*1.E9)
END DO
@@ -1566,32 +1566,32 @@ IF (LDUST) THEN
PSIG3D=ZSIG_DST, PRG3D=ZRG_DST, PN3D=ZN0_DST)
DO JJ=1,NMODE_DST
TZFIELD%CMNHNAME = 'DSTRGA'
- TZFIELD%CLONGNAME = 'MesoNH: DSTRGA'
+ TZFIELD%CLONGNAME = 'DSTRGA'
TZFIELD%CUNITS = 'um'
WRITE(TZFIELD%CCOMMENT,'(A18,I1)')'RG (nb) DUST MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZRG_DST(:,:,:,JJ))
!
TZFIELD%CMNHNAME = 'DSTRGAM'
- TZFIELD%CLONGNAME = 'MesoNH: DSTRGAM'
+ TZFIELD%CLONGNAME = 'DSTRGAM'
TZFIELD%CUNITS = 'um'
WRITE(TZFIELD%CCOMMENT,'(A17,I1)')'RG (m) DUST MODE ',JJ
ZWORK31(:,:,:)=ZRG_DST(:,:,:,JJ) / (EXP(-3.*(LOG(ZSIG_DST(:,:,:,JJ)))**2))
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
!
WRITE(TZFIELD%CMNHNAME,'(A6,I1)')'DSTN0A',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm-3'
WRITE(TZFIELD%CCOMMENT,'(A13,I1)')'N0 DUST MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZN0_DST(:,:,:,JJ))
!
WRITE(TZFIELD%CMNHNAME,'(A7,I1)')'DSTSIGA',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = '1'
WRITE(TZFIELD%CCOMMENT,'(A16,I1)')'SIGMA DUST MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSIG_DST(:,:,:,JJ))
!DUST MASS CONCENTRATION
WRITE(TZFIELD%CMNHNAME,'(A4,I1)')'DSTMSS',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ug m-3'
WRITE(TZFIELD%CCOMMENT,'(A14,I1)')'MASSCONC MODE ',JJ
ZWORK31(:,:,:)= ZN0_DST(:,:,:,JJ)*4./3.*3.14*2500.*1e9 & !kg-->ug
@@ -1612,7 +1612,7 @@ IF (LDUST) THEN
ENDDO
ENDDO
WRITE(TZFIELD%CMNHNAME,'(A7,I1)')'DSTBRDN',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'g m-2'
WRITE(TZFIELD%CCOMMENT,'(A6,I1)')'BURDEN',JJ
TZFIELD%NDIMS = 2
@@ -1634,7 +1634,7 @@ IF (LDUST.AND.LDEPOS_DST(IMI)) THEN
!
DO JSV = 1,NSV_DSTDEP
TZFIELD%CMNHNAME = TRIM(UPCASE(CDEDSTNAMES(JSV)))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A4,I3.3)')'X_Y_Z_','DUSTDEP',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSDSTDEP(:,:,:,JSV)*1.E9)
END DO
@@ -1642,7 +1642,7 @@ IF (LDUST.AND.LDEPOS_DST(IMI)) THEN
DO JJ=1,NMODE_DST
! FOR CLOUDS
WRITE(TZFIELD%CMNHNAME,'(A9,I1)')'DSTDEPN0A',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A16,I1)')'N0 DUSTDEP MODE ',JJ
TZFIELD%CUNITS = 'm-3'
! CLOUD: CALCULATE MOMENT 3 FROM TOTAL AEROSOL MASS
@@ -1669,7 +1669,7 @@ IF (LDUST.AND.LDEPOS_DST(IMI)) THEN
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
! CLOUD: DUST MASS CONCENTRATION
WRITE(TZFIELD%CMNHNAME,'(A9,I1)')'DSTDEPMSS',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A17,I1)')'DEPMASSCONC MODE ',JJ
TZFIELD%CUNITS = 'ug m-3'
ZWORK31(:,:,:)= ZWORK31(:,:,:)*4./3.*3.14*2500.*1e9 & !kg-->ug
@@ -1678,7 +1678,7 @@ IF (LDUST.AND.LDEPOS_DST(IMI)) THEN
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
! FOR RAIN DROPS
WRITE(TZFIELD%CMNHNAME,'(A9,I1)')'DSTDEPN0A',JJ+NMODE_DST
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A16,I1)')'N0 DUSTDEP MODE ',JJ+NMODE_DST
TZFIELD%CUNITS = 'm-3'
! RAIN: CALCULATE MOMENT 3 FROM TOTAL AEROSOL MASS
@@ -1705,7 +1705,7 @@ IF (LDUST.AND.LDEPOS_DST(IMI)) THEN
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
! RAIN: DUST MASS CONCENTRATION
WRITE(TZFIELD%CMNHNAME,'(A9,I1)')'DSTDEPMSS',JJ+NMODE_DST
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A17,I1)')'DEPMASSCONC MODE ',JJ+NMODE_DST
TZFIELD%CUNITS = 'ug m-3'
ZWORK31(:,:,:)= ZWORK31(:,:,:)*4./3.*3.14*2500.*1e9 & !kg-->ug
@@ -1726,7 +1726,7 @@ IF ((LCHEMDIAG).AND.(LORILAM).AND.(LUSECHEM)) THEN
!
DO JSV = NSV_AERBEG,NSV_AEREND
TZFIELD%CMNHNAME = TRIM(UPCASE(CAERONAMES(JSV-NSV_AERBEG+1)))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A4,I3.3)')'X_Y_Z_','AERO',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV)*1.E9)
END DO
@@ -1742,124 +1742,124 @@ IF ((LCHEMDIAG).AND.(LORILAM).AND.(LUSECHEM)) THEN
PSIG3D=XSIG3D, PRG3D=XRG3D, PN3D=XN3D, PCTOTA=ZPTOTA)
DO JJ=1,JPMODE
TZFIELD%CMNHNAME = 'RGA'
- TZFIELD%CLONGNAME = 'MesoNH: RGA'
+ TZFIELD%CLONGNAME = 'RGA'
TZFIELD%CUNITS = 'um'
WRITE(TZFIELD%CCOMMENT,'(A21,I1)')'RG (nb) AEROSOL MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XRG3D(:,:,:,JJ))
!
TZFIELD%CMNHNAME = 'RGAM'
- TZFIELD%CLONGNAME = 'MesoNH: RGAM'
+ TZFIELD%CLONGNAME = 'RGAM'
TZFIELD%CUNITS = 'um'
WRITE(TZFIELD%CCOMMENT,'(A20,I1)')'RG (m) AEROSOL MODE ',JJ
ZWORK31(:,:,:)=XRG3D(:,:,:,JJ) / (EXP(-3.*(LOG(XSIG3D(:,:,:,JJ)))**2))
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
!
WRITE(TZFIELD%CMNHNAME,'(A3,I1)')'N0A',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'cm-3'
WRITE(TZFIELD%CCOMMENT,'(A16,I1)')'N0 AEROSOL MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XN3D(:,:,:,JJ)*1.E-6)
!
WRITE(TZFIELD%CMNHNAME,'(A4,I1)')'SIGA',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = '1'
WRITE(TZFIELD%CCOMMENT,'(A19,I1)')'SIGMA AEROSOL MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSIG3D(:,:,:,JJ))
!
WRITE(TZFIELD%CMNHNAME,'(A4,I1)')'MSO4',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ug m-3'
WRITE(TZFIELD%CCOMMENT,'(A22,I1)')'MASS SO4 AEROSOL MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPTOTA(:,:,:,JP_AER_SO4,JJ))
!
WRITE(TZFIELD%CMNHNAME,'(A4,I1)')'MNO3',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ug m-3'
WRITE(TZFIELD%CCOMMENT,'(A22,I1)')'MASS NO3 AEROSOL MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPTOTA(:,:,:,JP_AER_NO3,JJ))
!
WRITE(TZFIELD%CMNHNAME,'(A4,I1)')'MNH3',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ug m-3'
WRITE(TZFIELD%CCOMMENT,'(A22,I1)')'MASS NH3 AEROSOL MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPTOTA(:,:,:,JP_AER_NH3,JJ))
!
WRITE(TZFIELD%CMNHNAME,'(A4,I1)')'MH2O',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ug m-3'
WRITE(TZFIELD%CCOMMENT,'(A22,I1)')'MASS H2O AEROSOL MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPTOTA(:,:,:,JP_AER_H2O,JJ))
!
IF (NSOA .EQ. 10) THEN
WRITE(TZFIELD%CMNHNAME,'(A5,I1)')'MSOA1',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ug m-3'
WRITE(TZFIELD%CCOMMENT,'(A23,I1)')'MASS SOA1 AEROSOL MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPTOTA(:,:,:,JP_AER_SOA1,JJ))
!
WRITE(TZFIELD%CMNHNAME,'(A5,I1)')'MSOA2',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ug m-3'
WRITE(TZFIELD%CCOMMENT,'(A23,I1)')'MASS SOA2 AEROSOL MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPTOTA(:,:,:,JP_AER_SOA2,JJ))
!
WRITE(TZFIELD%CMNHNAME,'(A5,I1)')'MSOA3',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ug m-3'
WRITE(TZFIELD%CCOMMENT,'(A23,I1)')'MASS SOA3 AEROSOL MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPTOTA(:,:,:,JP_AER_SOA3,JJ))
!
WRITE(TZFIELD%CMNHNAME,'(A5,I1)')'MSOA4',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ug m-3'
WRITE(TZFIELD%CCOMMENT,'(A23,I1)')'MASS SOA4 AEROSOL MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPTOTA(:,:,:,JP_AER_SOA4,JJ))
!
WRITE(TZFIELD%CMNHNAME,'(A5,I1)')'MSOA5',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ug m-3'
WRITE(TZFIELD%CCOMMENT,'(A23,I1)')'MASS SOA5 AEROSOL MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPTOTA(:,:,:,JP_AER_SOA5,JJ))
!
WRITE(TZFIELD%CMNHNAME,'(A5,I1)')'MSOA6',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ug m-3'
WRITE(TZFIELD%CCOMMENT,'(A23,I1)')'MASS SOA6 AEROSOL MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPTOTA(:,:,:,JP_AER_SOA6,JJ))
!
WRITE(TZFIELD%CMNHNAME,'(A5,I1)')'MSOA7',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ug m-3'
WRITE(TZFIELD%CCOMMENT,'(A23,I1)')'MASS SOA7 AEROSOL MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPTOTA(:,:,:,JP_AER_SOA7,JJ))
!
WRITE(TZFIELD%CMNHNAME,'(A5,I1)')'MSOA8',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ug m-3'
WRITE(TZFIELD%CCOMMENT,'(A23,I1)')'MASS SOA8 AEROSOL MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPTOTA(:,:,:,JP_AER_SOA8,JJ))
!
WRITE(TZFIELD%CMNHNAME,'(A5,I1)')'MSOA9',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ug m-3'
WRITE(TZFIELD%CCOMMENT,'(A23,I1)')'MASS SOA9 AEROSOL MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPTOTA(:,:,:,JP_AER_SOA9,JJ))
!
WRITE(TZFIELD%CMNHNAME,'(A6,I1)')'MSOA10',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ug m-3'
WRITE(TZFIELD%CCOMMENT,'(A24,I1)')'MASS SOA10 AEROSOL MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPTOTA(:,:,:,JP_AER_SOA10,JJ))
END IF
!
WRITE(TZFIELD%CMNHNAME,'(A3,I1)')'MOC',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ug m-3'
WRITE(TZFIELD%CCOMMENT,'(A21,I1)')'MASS OC AEROSOL MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPTOTA(:,:,:,JP_AER_OC,JJ))
!
WRITE(TZFIELD%CMNHNAME,'(A3,I1)')'MBC',JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'ug m-3'
WRITE(TZFIELD%CCOMMENT,'(A21,I1)')'MASS BC AEROSOL MODE ',JJ
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPTOTA(:,:,:,JP_AER_BC,JJ))
@@ -1875,7 +1875,7 @@ IF (LVAR_LS) THEN
IF (LWIND_ZM) THEN
TZFIELD2(1)%CMNHNAME = 'LSUM_ZM'
TZFIELD2(1)%CSTDNAME = ''
- TZFIELD2(1)%CLONGNAME = 'MesoNH: LSUM_ZM'
+ TZFIELD2(1)%CLONGNAME = 'LSUM_ZM'
TZFIELD2(1)%CUNITS = 'm s-1'
TZFIELD2(1)%CDIR = 'XY'
TZFIELD2(1)%CCOMMENT = 'Large Scale Zonal component of horizontal wind'
@@ -1885,7 +1885,7 @@ IF (LVAR_LS) THEN
!
TZFIELD2(2)%CMNHNAME = 'LSVM_ZM'
TZFIELD2(2)%CSTDNAME = ''
- TZFIELD2(2)%CLONGNAME = 'MesoNH: LSVM_ZM'
+ TZFIELD2(2)%CLONGNAME = 'LSVM_ZM'
TZFIELD2(2)%CUNITS = 'm s-1'
TZFIELD2(2)%CDIR = 'XY'
TZFIELD2(2)%CCOMMENT = 'Large Scale Meridian component of horizontal wind'
@@ -1916,7 +1916,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
!
TZFIELD%CMNHNAME = 'UFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Zonal component of horizontal forcing wind'
@@ -1927,7 +1927,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
!
TZFIELD%CMNHNAME = 'VFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Meridian component of horizontal forcing wind'
@@ -1938,7 +1938,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
!
TZFIELD%CMNHNAME = 'WFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Vertical forcing wind'
@@ -1949,7 +1949,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
!
TZFIELD%CMNHNAME = 'THFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Forcing potential temperature'
@@ -1960,7 +1960,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
!
TZFIELD%CMNHNAME = 'RVFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'kg kg-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Forcing vapor mixing ratio'
@@ -1971,7 +1971,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
!
TZFIELD%CMNHNAME = 'TENDTHFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Large-scale potential temperature tendency for forcing'
@@ -1982,7 +1982,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
!
TZFIELD%CMNHNAME = 'TENDRVFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'kg kg-1 s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Large-scale vapor mixing ratio tendency for forcing'
@@ -1993,7 +1993,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
!
TZFIELD%CMNHNAME = 'GXTHFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K m-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Large-scale potential temperature gradient for forcing'
@@ -2004,7 +2004,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
!
TZFIELD%CMNHNAME = 'GYTHFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K m-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Large-scale potential temperature gradient for forcing'
@@ -2015,7 +2015,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
!
TZFIELD%CMNHNAME = 'PGROUNDFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'Pa'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Forcing ground pressure'
@@ -2036,7 +2036,7 @@ IF (LTPZH .OR. LCOREF) THEN
!* Temperature in celsius
TZFIELD%CMNHNAME = 'TEMP'
TZFIELD%CSTDNAME = 'air_temperature'
- TZFIELD%CLONGNAME = 'MesoNH: TEMP'
+ TZFIELD%CLONGNAME = 'TEMP'
TZFIELD%CUNITS = 'celsius'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_TEMPerature'
@@ -2074,7 +2074,7 @@ IF (LTPZH .OR. LCOREF) THEN
!
TZFIELD%CMNHNAME = 'REHU'
TZFIELD%CSTDNAME = 'relative_humidity'
- TZFIELD%CLONGNAME = 'MesoNH: REHU'
+ TZFIELD%CLONGNAME = 'REHU'
TZFIELD%CUNITS = 'percent'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_RElative HUmidity'
@@ -2085,7 +2085,7 @@ IF (LTPZH .OR. LCOREF) THEN
!
TZFIELD%CMNHNAME = 'VPRES'
TZFIELD%CSTDNAME = 'water_vapor_partial_pressure_in_air'
- TZFIELD%CLONGNAME = 'MesoNH: VPRES'
+ TZFIELD%CLONGNAME = 'VPRES'
TZFIELD%CUNITS = 'hPa'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Vapor PRESsure'
@@ -2101,7 +2101,7 @@ IF (LTPZH .OR. LCOREF) THEN
-6*ZWORK33(:,:,:) )/ZTEMP(:,:,:)
TZFIELD%CMNHNAME = 'COREF'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: COREF'
+ TZFIELD%CLONGNAME = 'COREF'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_REFraction COindex (N-units)'
@@ -2113,7 +2113,7 @@ IF (LTPZH .OR. LCOREF) THEN
ZWORK33(:,:,:)=ZWORK33(:,:,:)+MZF(1,IKU,1,XZZ(:,:,:))*1E6/XRADIUS
TZFIELD%CMNHNAME = 'MCOREF'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: MCOREF'
+ TZFIELD%CLONGNAME = 'MCOREF'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Modified REFraction COindex (M-units)'
@@ -2153,7 +2153,7 @@ IF ( LMOIST_V .OR. LMSLP .OR. CBLTOP/='NONE' ) THEN
! Virtual potential temperature
TZFIELD%CMNHNAME = 'THETAV'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: THETAV'
+ TZFIELD%CLONGNAME = 'THETAV'
TZFIELD%CUNITS = 'K'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Virtual potential temperature'
@@ -2185,7 +2185,7 @@ IF (LVISI) THEN
! Visibity Kunkel
TZFIELD%CMNHNAME = 'VISIKUN'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: VISIKUN'
+ TZFIELD%CLONGNAME = 'VISIKUN'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Visibility Kunkel'
@@ -2204,7 +2204,7 @@ IF (LVISI) THEN
! Visibity Gultepe
TZFIELD%CMNHNAME = 'VISIGUL'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: VISIGUL'
+ TZFIELD%CLONGNAME = 'VISIGUL'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Visibility Gultepe'
@@ -2215,7 +2215,7 @@ IF (LVISI) THEN
! Visibity Zhang
TZFIELD%CMNHNAME = 'VISIZHA'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: VISIZHA'
+ TZFIELD%CLONGNAME = 'VISIZHA'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Visibility Zhang'
@@ -2249,7 +2249,7 @@ IF (( LMOIST_E .OR. LBV_FR ) .AND. (NRR>0)) THEN
IF (LMOIST_E) THEN
TZFIELD%CMNHNAME = 'THETAE'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: THETAE'
+ TZFIELD%CLONGNAME = 'THETAE'
TZFIELD%CUNITS = 'K'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Equivalent potential temperature'
@@ -2274,7 +2274,7 @@ IF (LMOIST_ES .AND. (NRR>0)) THEN
*ZWORK31(:,:,:) *(1. +0.81 *ZWORK31(:,:,:)) )
TZFIELD%CMNHNAME = 'THETAES'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: THETAES'
+ TZFIELD%CLONGNAME = 'THETAES'
TZFIELD%CUNITS = 'K'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Equivalent Saturated potential temperature'
@@ -2293,7 +2293,7 @@ IF (LVORT) THEN
ZWORK31(:,:,:)=MYF(MZF(1,IKU,1,MXM(ZVOX(:,:,:))))
TZFIELD%CMNHNAME = 'UM1'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: UM1'
+ TZFIELD%CLONGNAME = 'UM1'
TZFIELD%CUNITS = 's-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_x component of vorticity'
@@ -2306,7 +2306,7 @@ IF (LVORT) THEN
ZWORK32(:,:,:)=MZF(1,IKU,1,MXF(MYM(ZVOY(:,:,:))))
TZFIELD%CMNHNAME = 'VM1'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: VM1'
+ TZFIELD%CLONGNAME = 'VM1'
TZFIELD%CUNITS = 's-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_y component of vorticity'
@@ -2318,7 +2318,7 @@ IF (LVORT) THEN
IF (LWIND_ZM) THEN
TZFIELD2(1)%CMNHNAME = 'UM1_ZM'
TZFIELD2(1)%CSTDNAME = ''
- TZFIELD2(1)%CLONGNAME = 'MesoNH: UM1_ZM'
+ TZFIELD2(1)%CLONGNAME = 'UM1_ZM'
TZFIELD2(1)%CUNITS = 'm s-1'
TZFIELD2(1)%CDIR = 'XY'
TZFIELD2(1)%CCOMMENT = 'Zonal component of horizontal vorticity'
@@ -2328,7 +2328,7 @@ IF (LVORT) THEN
!
TZFIELD2(2)%CMNHNAME = 'VM1_ZM'
TZFIELD2(2)%CSTDNAME = ''
- TZFIELD2(2)%CLONGNAME = 'MesoNH: VM1_ZM'
+ TZFIELD2(2)%CLONGNAME = 'VM1_ZM'
TZFIELD2(2)%CUNITS = 'm s-1'
TZFIELD2(2)%CDIR = 'XY'
TZFIELD2(2)%CCOMMENT = 'Meridian component of horizontal vorticity'
@@ -2343,7 +2343,7 @@ IF (LVORT) THEN
ZWORK31(:,:,:)=MXF(MYF(MZM(1,IKU,1,ZVOZ(:,:,:))))
TZFIELD%CMNHNAME = 'WM1'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: WM1'
+ TZFIELD%CLONGNAME = 'WM1'
TZFIELD%CUNITS = 's-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_relative vorticity'
@@ -2356,7 +2356,7 @@ IF (LVORT) THEN
ZWORK31(:,:,:)=MYF(MXF(ZVOZ(:,:,:))) + ZCORIOZ(:,:,:)
TZFIELD%CMNHNAME = 'ABVOR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: ABVOR'
+ TZFIELD%CLONGNAME = 'ABVOR'
TZFIELD%CUNITS = 's-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_z ABsolute VORticity'
@@ -2387,7 +2387,7 @@ IF ( LMEAN_POVO ) THEN
WHERE (IWORK1(:,:)>0) ZWORK21(:,:)=ZWORK21(:,:)/REAL( IWORK1(:,:) )
TZFIELD%CMNHNAME = 'MEAN_POVO'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: MEAN_POVO'
+ TZFIELD%CLONGNAME = 'MEAN_POVO'
TZFIELD%CUNITS = 'PVU' ! 1 PVU = 1e-6 m^2 s^-1 K kg^-1
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_MEAN of POtential VOrticity'
@@ -2408,7 +2408,7 @@ IF (LMOIST_V .AND. (NRR>0) ) THEN
ZWORK34(:,:,:)=ZWORK34(:,:,:)*1E6/XRHODREF(:,:,:)
TZFIELD%CMNHNAME = 'POVOV'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: POVOV'
+ TZFIELD%CLONGNAME = 'POVOV'
TZFIELD%CUNITS = 'PVU' ! 1 PVU = 1e-6 m^2 s^-1 K kg^-1
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Virtual POtential VOrticity'
@@ -2429,7 +2429,7 @@ IF (LMOIST_V .AND. (NRR>0) ) THEN
WHERE(IWORK1(:,:)>0) ZWORK21(:,:)=ZWORK21(:,:)/REAL( IWORK1(:,:) )
TZFIELD%CMNHNAME = 'MEAN_POVOV'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: MEAN_POVOV'
+ TZFIELD%CLONGNAME = 'MEAN_POVOV'
TZFIELD%CUNITS = 'PVU' ! 1 PVU = 1e-6 m^2 s^-1 K kg^-1
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_MEAN of Virtual POtential VOrticity'
@@ -2452,7 +2452,7 @@ IF (LMOIST_E .AND. (NRR>0) ) THEN
ZWORK34(:,:,:)=ZWORK34(:,:,:)*1E6/XRHODREF(:,:,:)
TZFIELD%CMNHNAME = 'POVOE'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: POVOE'
+ TZFIELD%CLONGNAME = 'POVOE'
TZFIELD%CUNITS = 'PVU' ! 1 PVU = 1e-6 m^2 s^-1 K kg^-1
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Equivalent POtential VOrticity'
@@ -2473,7 +2473,7 @@ IF (LMOIST_E .AND. (NRR>0) ) THEN
WHERE(IWORK1(:,:)>0) ZWORK21(:,:)=ZWORK21(:,:)/REAL( IWORK1(:,:) )
TZFIELD%CMNHNAME = 'MEAN_POVOE'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: MEAN_POVOE'
+ TZFIELD%CLONGNAME = 'MEAN_POVOE'
TZFIELD%CUNITS = 'PVU' ! 1 PVU = 1e-6 m^2 s^-1 K kg^-1
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_MEAN of Equivalent POtential VOrticity'
@@ -2497,7 +2497,7 @@ IF (LMOIST_ES .AND. (NRR>0) ) THEN
ZWORK34(:,:,:)=ZWORK34(:,:,:)*1E6/XRHODREF(:,:,:)
TZFIELD%CMNHNAME = 'POVOES'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: POVOES'
+ TZFIELD%CLONGNAME = 'POVOES'
TZFIELD%CUNITS = 'PVU' ! 1 PVU = 1e-6 m^2 s^-1 K kg^-1
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Equivalent Saturated POtential VOrticity'
@@ -2517,7 +2517,7 @@ IF (LDIV) THEN
ZWORK31=GX_U_M(1,IKU,1,XUT,XDXX,XDZZ,XDZX) + GY_V_M(1,IKU,1,XVT,XDYY,XDZZ,XDZY)
TZFIELD%CMNHNAME = 'HDIV'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: HDIV'
+ TZFIELD%CLONGNAME = 'HDIV'
TZFIELD%CUNITS = 's-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Horizontal DIVergence'
@@ -2529,7 +2529,7 @@ IF (LDIV) THEN
IF (LUSERV) THEN
TZFIELD%CMNHNAME = 'HMDIV'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: HMDIV'
+ TZFIELD%CLONGNAME = 'HMDIV'
TZFIELD%CUNITS = 'kg m-3 s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Horizontal Moisture DIVergence HMDIV'
@@ -2586,7 +2586,7 @@ IF (LGEO .OR. LAGEO) THEN
IF (LGEO) THEN
TZFIELD%CMNHNAME = 'UM88'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: UM88'
+ TZFIELD%CLONGNAME = 'UM88'
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_U component of GEOstrophic wind'
@@ -2597,7 +2597,7 @@ IF (LGEO .OR. LAGEO) THEN
!
TZFIELD%CMNHNAME = 'VM88'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: VM88'
+ TZFIELD%CLONGNAME = 'VM88'
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_V component of GEOstrophic wind'
@@ -2609,7 +2609,7 @@ IF (LGEO .OR. LAGEO) THEN
IF (LWIND_ZM) THEN
TZFIELD2(1)%CMNHNAME = 'UM88_ZM'
TZFIELD2(1)%CSTDNAME = ''
- TZFIELD2(1)%CLONGNAME = 'MesoNH: UM88_ZM'
+ TZFIELD2(1)%CLONGNAME = 'UM88_ZM'
TZFIELD2(1)%CUNITS = 'm s-1'
TZFIELD2(1)%CDIR = 'XY'
TZFIELD2(1)%CCOMMENT = 'Zonal component of GEOstrophic wind'
@@ -2619,7 +2619,7 @@ IF (LGEO .OR. LAGEO) THEN
!
TZFIELD2(2)%CMNHNAME = 'VM88_ZM'
TZFIELD2(2)%CSTDNAME = ''
- TZFIELD2(2)%CLONGNAME = 'MesoNH: VM88_ZM'
+ TZFIELD2(2)%CLONGNAME = 'VM88_ZM'
TZFIELD2(2)%CUNITS = 'm s-1'
TZFIELD2(2)%CDIR = 'XY'
TZFIELD2(2)%CCOMMENT = 'Meridian component of GEOstrophic wind'
@@ -2634,7 +2634,7 @@ IF (LGEO .OR. LAGEO) THEN
CALL FIND_FIELD_ID_FROM_MNHNAME('WT',IID,IRESP)
TZFIELD = TFIELDLIST(IID)
TZFIELD%CMNHNAME = 'WM88'
- TZFIELD%CLONGNAME = 'MesoNH: WM88'
+ TZFIELD%CLONGNAME = 'WM88'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XWT)
END IF
!
@@ -2644,7 +2644,7 @@ IF (LGEO .OR. LAGEO) THEN
!
TZFIELD%CMNHNAME = 'UM89'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: UM89'
+ TZFIELD%CLONGNAME = 'UM89'
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_U component of AGEOstrophic wind'
@@ -2655,7 +2655,7 @@ IF (LGEO .OR. LAGEO) THEN
!
TZFIELD%CMNHNAME = 'VM89'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: VM89'
+ TZFIELD%CLONGNAME = 'VM89'
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_V component of AGEOstrophic wind'
@@ -2667,7 +2667,7 @@ IF (LGEO .OR. LAGEO) THEN
IF (LWIND_ZM) THEN
TZFIELD2(1)%CMNHNAME = 'UM89_ZM'
TZFIELD2(1)%CSTDNAME = ''
- TZFIELD2(1)%CLONGNAME = 'MesoNH: UM89_ZM'
+ TZFIELD2(1)%CLONGNAME = 'UM89_ZM'
TZFIELD2(1)%CUNITS = 'm s-1'
TZFIELD2(1)%CDIR = 'XY'
TZFIELD2(1)%CCOMMENT = 'Zonal component of AGEOstrophic wind'
@@ -2677,7 +2677,7 @@ IF (LGEO .OR. LAGEO) THEN
!
TZFIELD2(2)%CMNHNAME = 'VM89_ZM'
TZFIELD2(2)%CSTDNAME = ''
- TZFIELD2(2)%CLONGNAME = 'MesoNH: VM89_ZM'
+ TZFIELD2(2)%CLONGNAME = 'VM89_ZM'
TZFIELD2(2)%CUNITS = 'm s-1'
TZFIELD2(2)%CDIR = 'XY'
TZFIELD2(2)%CCOMMENT = 'Meridian component of AGEOstrophic wind'
@@ -2692,7 +2692,7 @@ IF (LGEO .OR. LAGEO) THEN
CALL FIND_FIELD_ID_FROM_MNHNAME('WT',IID,IRESP)
TZFIELD = TFIELDLIST(IID)
TZFIELD%CMNHNAME = 'WM89'
- TZFIELD%CLONGNAME = 'MesoNH: WM89'
+ TZFIELD%CLONGNAME = 'WM89'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XWT)
END IF
!
@@ -2721,7 +2721,7 @@ IF (LMSLP) THEN
!
TZFIELD%CMNHNAME = 'MSLP'
TZFIELD%CSTDNAME = 'air_pressure_at_sea_level'
- TZFIELD%CLONGNAME = 'MesoNH: MSLP'
+ TZFIELD%CLONGNAME = 'MSLP'
TZFIELD%CUNITS = 'hPa'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Mean Sea Level Pressure'
@@ -2745,7 +2745,7 @@ IF (LTHW) THEN
ZWORK21(:,:) = ZWORK21(:,:)*1000. ! vapor water in mm unit
TZFIELD%CMNHNAME = 'THVW'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: THVW'
+ TZFIELD%CLONGNAME = 'THVW'
TZFIELD%CUNITS = 'mm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_THickness of Vapor Water'
@@ -2764,7 +2764,7 @@ IF (LTHW) THEN
ZWORK21(:,:) = ZWORK21(:,:)*1000. ! cloud water in mm unit
TZFIELD%CMNHNAME = 'THCW'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: THCW'
+ TZFIELD%CLONGNAME = 'THCW'
TZFIELD%CUNITS = 'mm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_THickness of Cloud Water'
@@ -2783,7 +2783,7 @@ IF (LTHW) THEN
ZWORK21(:,:) = ZWORK21(:,:)*1000. ! rain water in mm unit
TZFIELD%CMNHNAME = 'THRW'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: THRW'
+ TZFIELD%CLONGNAME = 'THRW'
TZFIELD%CUNITS = 'mm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_THickness of Rain Water'
@@ -2802,7 +2802,7 @@ IF (LTHW) THEN
ZWORK21(:,:) = ZWORK21(:,:)*1000. ! ice thickness in mm unit
TZFIELD%CMNHNAME = 'THIC'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: THIC'
+ TZFIELD%CLONGNAME = 'THIC'
TZFIELD%CUNITS = 'mm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_THickness of ICe'
@@ -2821,7 +2821,7 @@ IF (LTHW) THEN
ZWORK21(:,:) = ZWORK21(:,:)*1000. ! snow thickness in mm unit
TZFIELD%CMNHNAME = 'THSN'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: THSN'
+ TZFIELD%CLONGNAME = 'THSN'
TZFIELD%CUNITS = 'mm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_THickness of SNow'
@@ -2840,7 +2840,7 @@ IF (LTHW) THEN
ZWORK21(:,:) = ZWORK21(:,:)*1000. ! graupel thickness in mm unit
TZFIELD%CMNHNAME = 'THGR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: THGR'
+ TZFIELD%CLONGNAME = 'THGR'
TZFIELD%CUNITS = 'mm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_THickness of GRaupel'
@@ -2859,7 +2859,7 @@ IF (LTHW) THEN
ZWORK21(:,:) = ZWORK21(:,:)*1000. ! hail thickness in mm unit
TZFIELD%CMNHNAME = 'THHA'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: THHA'
+ TZFIELD%CLONGNAME = 'THHA'
TZFIELD%CUNITS = 'mm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_THickness of HAil'
@@ -2898,7 +2898,7 @@ IF (LTOTAL_PR .AND. SIZE (XACPRR)>0 ) THEN
CCLOUD == 'LIMA' .OR. CDCONV /= 'NONE') THEN
TZFIELD%CMNHNAME = 'ACTOPR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: ACTOPR'
+ TZFIELD%CLONGNAME = 'ACTOPR'
TZFIELD%CUNITS = 'mm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_ACccumulated TOtal Precipitation Rate'
@@ -2929,7 +2929,7 @@ IF (LTOTAL_PR .AND. SIZE (XACPRR)>0 ) THEN
JI=INT(XMEAN_PR(JK))
JJ=INT(XMEAN_PR(JK+1))
WRITE(TZFIELD%CMNHNAME,'(A9,2I2.2)')'LS_ACTOPR',JI,JJ
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK22)
END IF
END DO
@@ -2961,7 +2961,7 @@ IF (LTOTAL_PR .AND. SIZE (XACPRR)>0 ) THEN
CCLOUD == 'LIMA' .OR. CDCONV /= 'NONE') THEN
TZFIELD%CMNHNAME = 'INTOPR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: INTOPR'
+ TZFIELD%CLONGNAME = 'INTOPR'
TZFIELD%CUNITS = 'mm hour-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_INstantaneous TOtal Precipitation Rate'
@@ -2981,7 +2981,7 @@ IF (LTOTAL_PR .AND. SIZE (XACPRR)>0 ) THEN
!
TZFIELD%CMNHNAME = 'LS_INTOPR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: LS_INTOPR'
+ TZFIELD%CLONGNAME = 'LS_INTOPR'
TZFIELD%CUNITS = 'mm hour-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Large Scale INstantaneous TOtal Precipitation Rate'
@@ -3008,7 +3008,7 @@ IF (NCAPE >=0 .AND. LUSERV) THEN
!
TZFIELD%CMNHNAME = 'CAPEMAX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: CAPEMAX'
+ TZFIELD%CLONGNAME = 'CAPEMAX'
TZFIELD%CUNITS = 'J kg-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_MAX of Convective Available Potential Energy'
@@ -3019,7 +3019,7 @@ IF (NCAPE >=0 .AND. LUSERV) THEN
!
TZFIELD%CMNHNAME = 'CINMAX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: CINMAX'
+ TZFIELD%CLONGNAME = 'CINMAX'
TZFIELD%CUNITS = 'J kg-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_MAX of Convective INhibition energy'
@@ -3031,7 +3031,7 @@ IF (NCAPE >=0 .AND. LUSERV) THEN
IF (NCAPE >=1) THEN
TZFIELD%CMNHNAME = 'CAPE3D'
TZFIELD%CSTDNAME = 'atmosphere_convective_available_potential_energy'
- TZFIELD%CLONGNAME = 'MesoNH: CAPE3D'
+ TZFIELD%CLONGNAME = 'CAPE3D'
TZFIELD%CUNITS = 'J kg-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Convective Available Potential Energy'
@@ -3042,7 +3042,7 @@ IF (NCAPE >=0 .AND. LUSERV) THEN
!
TZFIELD%CMNHNAME = 'CIN3D'
TZFIELD%CSTDNAME = 'atmosphere_convective_inhibition'
- TZFIELD%CLONGNAME = 'MesoNH: CIN3D'
+ TZFIELD%CLONGNAME = 'CIN3D'
TZFIELD%CUNITS = 'J kg-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Convective INhibition energy'
@@ -3053,7 +3053,7 @@ IF (NCAPE >=0 .AND. LUSERV) THEN
!
TZFIELD%CMNHNAME = 'DCAPE3D'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: DCAPE3D'
+ TZFIELD%CLONGNAME = 'DCAPE3D'
TZFIELD%CUNITS = 'J kg-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = ''
@@ -3070,7 +3070,7 @@ IF (NCAPE >=0 .AND. LUSERV) THEN
!
TZFIELD%CMNHNAME = 'VKE'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: VKE'
+ TZFIELD%CLONGNAME = 'VKE'
TZFIELD%CUNITS = 'J kg-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Vertical Kinetic Energy'
@@ -3101,7 +3101,7 @@ IF (LBV_FR) THEN
!
TZFIELD%CMNHNAME = 'BV'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: BV'
+ TZFIELD%CLONGNAME = 'BV'
TZFIELD%CUNITS = 's-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Brunt-Vaissala frequency'
@@ -3126,7 +3126,7 @@ IF (LBV_FR) THEN
!
TZFIELD%CMNHNAME = 'BVE'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: BVE'
+ TZFIELD%CLONGNAME = 'BVE'
TZFIELD%CUNITS = 's-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Equivalent Brunt-Vaissala frequency'
@@ -3153,7 +3153,7 @@ IF ( NGPS>=0 ) THEN
!
TZFIELD%CMNHNAME = 'ZTD'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: ZTD'
+ TZFIELD%CLONGNAME = 'ZTD'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Zenithal Total Delay'
@@ -3165,7 +3165,7 @@ IF ( NGPS>=0 ) THEN
IF (NGPS>=1) THEN
TZFIELD%CMNHNAME = 'ZHD'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: ZHD'
+ TZFIELD%CLONGNAME = 'ZHD'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Zenithal Hydrostatic Delay'
@@ -3176,7 +3176,7 @@ IF ( NGPS>=0 ) THEN
!
TZFIELD%CMNHNAME = 'ZWD'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: ZWD'
+ TZFIELD%CLONGNAME = 'ZWD'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Zenithal Wet Delay'
@@ -3220,7 +3220,7 @@ IF(LRADAR .AND. LUSERR) THEN
!
TZFIELD%CMNHNAME = 'RARE'
TZFIELD%CSTDNAME = 'equivalent_reflectivity_factor'
- TZFIELD%CLONGNAME = 'MesoNH: RARE'
+ TZFIELD%CLONGNAME = 'RARE'
TZFIELD%CUNITS = 'dBZ'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_RAdar REflectivity'
@@ -3231,7 +3231,7 @@ IF(LRADAR .AND. LUSERR) THEN
!
TZFIELD%CMNHNAME = 'VDOP'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: VDOP'
+ TZFIELD%CLONGNAME = 'VDOP'
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_radar DOPpler fall speed'
@@ -3242,7 +3242,7 @@ IF(LRADAR .AND. LUSERR) THEN
!
TZFIELD%CMNHNAME = 'ZDR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: ZDR'
+ TZFIELD%CLONGNAME = 'ZDR'
TZFIELD%CUNITS = 'dBZ'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Differential polar Reflectivity'
@@ -3253,7 +3253,7 @@ IF(LRADAR .AND. LUSERR) THEN
!
TZFIELD%CMNHNAME = 'KDP'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: KDP'
+ TZFIELD%CLONGNAME = 'KDP'
TZFIELD%CUNITS = 'degree km-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Differential Phase Reflectivity'
@@ -3521,7 +3521,7 @@ IF (LLIDAR) THEN
!
TZFIELD%CMNHNAME = 'LIDAR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: LIDAR'
+ TZFIELD%CLONGNAME = 'LIDAR'
TZFIELD%CUNITS = 'm-1 sr-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Normalized_Lidar_Profile'
@@ -3532,7 +3532,7 @@ IF (LLIDAR) THEN
!
TZFIELD%CMNHNAME = 'LIPAR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: LIPAR'
+ TZFIELD%CLONGNAME = 'LIPAR'
TZFIELD%CUNITS = 'm-1 sr-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Particle_Lidar_Profile'
@@ -3575,7 +3575,7 @@ IF (CBLTOP == 'THETA') THEN
!
TZFIELD%CMNHNAME = 'HBLTOP'
TZFIELD%CSTDNAME = 'atmosphere_boundary_layer_thickness'
- TZFIELD%CLONGNAME = 'MesoNH: HBLTOP'
+ TZFIELD%CLONGNAME = 'HBLTOP'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'Height of Boundary Layer TOP'
@@ -3618,7 +3618,7 @@ ELSEIF (CBLTOP == 'RICHA') THEN
!
TZFIELD%CMNHNAME = 'HBLTOP'
TZFIELD%CSTDNAME = 'atmosphere_boundary_layer_thickness'
- TZFIELD%CLONGNAME = 'MesoNH: HBLTOP'
+ TZFIELD%CLONGNAME = 'HBLTOP'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'Height of Boundary Layer TOP'
diff --git a/src/MNH/write_lfifm1_for_diag_supp.f90 b/src/MNH/write_lfifm1_for_diag_supp.f90
index bb96e67bd6f1b30559c418ecf9f3624725dac341..2e2ba73465dfc247842f89ef7550a19beaa9f562 100644
--- a/src/MNH/write_lfifm1_for_diag_supp.f90
+++ b/src/MNH/write_lfifm1_for_diag_supp.f90
@@ -246,7 +246,7 @@ IF (NCONV_KF >= 0) THEN
END DO
TZFIELD%CMNHNAME = 'CLTOPCONV'
TZFIELD%CSTDNAME = 'convective_cloud_top_altitude'
- TZFIELD%CLONGNAME = 'MesoNH: CLTOPCONV'
+ TZFIELD%CLONGNAME = 'CLTOPCONV'
TZFIELD%CUNITS = 'km'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Top of Convective Cloud'
@@ -264,7 +264,7 @@ IF (NCONV_KF >= 0) THEN
END DO
TZFIELD%CMNHNAME = 'CLBASCONV'
TZFIELD%CSTDNAME = 'convective_cloud_base_altitude'
- TZFIELD%CLONGNAME = 'MesoNH: CLBASCONV'
+ TZFIELD%CLONGNAME = 'CLBASCONV'
TZFIELD%CUNITS = 'km'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Base of Convective Cloud'
@@ -293,7 +293,7 @@ IF (NCONV_KF >= 1) THEN
!
DO JSV = 1, NSV_USER
WRITE(TZFIELD%CMNHNAME,'(A7,I3.3)')'DSVCONV',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A2,I3.3,A20)')'X_Y_Z_','SV',JSV,' CONVective tendency'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDSVCONV(:,:,:,JSV))
END DO
@@ -309,7 +309,7 @@ IF (NCONV_KF >= 1) THEN
!
DO JSV = NSV_C2R2BEG, NSV_C2R2END
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(C2R2NAMES(JSV-NSV_C2R2BEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(C2R2NAMES(JSV-NSV_C2R2BEG+1))//' CONVective tendency (1/s)'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDSVCONV(:,:,:,JSV))
END DO
@@ -325,7 +325,7 @@ IF (NCONV_KF >= 1) THEN
!
DO JSV = NSV_C1R3BEG,NSV_C1R3END
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(C1R3NAMES(JSV-NSV_C1R3BEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(C1R3NAMES(JSV-NSV_C1R3BEG+1))//' CONVective tendency (1/s)'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDSVCONV(:,:,:,JSV))
END DO
@@ -341,7 +341,7 @@ IF (NCONV_KF >= 1) THEN
!
DO JSV = NSV_ELECBEG,NSV_ELECEND
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(CELECNAMES(JSV-NSV_ELECBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(CELECNAMES(JSV-NSV_ELECBEG+1))//' CONVective tendency (1/s)'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDSVCONV(:,:,:,JSV))
END DO
@@ -357,7 +357,7 @@ IF (NCONV_KF >= 1) THEN
!
DO JSV = NSV_CHEMBEG, NSV_CHEMEND
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(CNAMES(JSV-NSV_CHEMBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(CNAMES(JSV-NSV_CHEMBEG+1))//' CONVective tendency (1/s)'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDSVCONV(:,:,:,JSV))
END DO
@@ -373,7 +373,7 @@ IF (NCONV_KF >= 1) THEN
!
DO JSV = NSV_LGBEG,NSV_LGEND
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(CLGNAMES(JSV-NSV_LGBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(CLGNAMES(JSV-NSV_LGBEG+1))//' CONVective tendency (1/s)'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDSVCONV(:,:,:,JSV))
END DO
@@ -438,7 +438,7 @@ IF (LCLD_COV .AND. LUSERC) THEN
!
TZFIELD%CMNHNAME = 'HECL'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: HECL'
+ TZFIELD%CLONGNAME = 'HECL'
TZFIELD%CUNITS = 'km'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Height of Explicit CLoud top'
@@ -474,7 +474,7 @@ IF (LCLD_COV .AND. LUSERC) THEN
!
TZFIELD%CMNHNAME = 'HCL'
TZFIELD%CSTDNAME = 'cloud_top_altitude'
- TZFIELD%CLONGNAME = 'MesoNH: HCL'
+ TZFIELD%CLONGNAME = 'HCL'
TZFIELD%CUNITS = 'km'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Height of CLoud top'
@@ -486,7 +486,7 @@ IF (LCLD_COV .AND. LUSERC) THEN
!
TZFIELD%CMNHNAME = 'TCL'
TZFIELD%CSTDNAME = 'air_temperature_at_cloud_top'
- TZFIELD%CLONGNAME = 'MesoNH: TCL'
+ TZFIELD%CLONGNAME = 'TCL'
TZFIELD%CUNITS = 'celsius'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Height of CLoud top'
@@ -506,7 +506,7 @@ IF (LCLD_COV .AND. LUSERC) THEN
!
TZFIELD%CMNHNAME = 'VISI_HOR'
TZFIELD%CSTDNAME = 'visibility_in_air'
- TZFIELD%CLONGNAME = 'MesoNH: VISI_HOR'
+ TZFIELD%CLONGNAME = 'VISI_HOR'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_VISI_HOR'
@@ -552,7 +552,7 @@ IF (NRAD_3D >= 1) THEN
END DO
TZFIELD%CMNHNAME = 'DSTAOD3D'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: DSTAOD3D'
+ TZFIELD%CLONGNAME = 'DSTAOD3D'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_DuST Aerosol Optical Depth'
@@ -572,7 +572,7 @@ IF (NRAD_3D >= 1) THEN
ENDDO
TZFIELD%CMNHNAME = 'DSTAOD2D'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: DSTAOD2D'
+ TZFIELD%CLONGNAME = 'DSTAOD2D'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_DuST Aerosol Optical Depth'
@@ -587,7 +587,7 @@ IF (NRAD_3D >= 1) THEN
ENDDO
TZFIELD%CMNHNAME = 'DSTEXT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: DSTEXT'
+ TZFIELD%CLONGNAME = 'DSTEXT'
TZFIELD%CUNITS = 'km-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_DuST EXTinction'
@@ -605,7 +605,7 @@ IF (NRAD_3D >= 1) THEN
END DO
TZFIELD%CMNHNAME = 'SLTAOD3D'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: SLTAOD3D'
+ TZFIELD%CLONGNAME = 'SLTAOD3D'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Salt Aerosol Optical Depth'
@@ -625,7 +625,7 @@ IF (NRAD_3D >= 1) THEN
ENDDO
TZFIELD%CMNHNAME = 'SLTAOD2D'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: SLTAOD2D'
+ TZFIELD%CLONGNAME = 'SLTAOD2D'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Salt Aerosol Optical Depth'
@@ -640,7 +640,7 @@ IF (NRAD_3D >= 1) THEN
ENDDO
TZFIELD%CMNHNAME = 'SLTEXT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: SLTEXT'
+ TZFIELD%CLONGNAME = 'SLTEXT'
TZFIELD%CUNITS = 'km-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Salt EXTinction'
@@ -658,7 +658,7 @@ IF (NRAD_3D >= 1) THEN
END DO
TZFIELD%CMNHNAME = 'AERAOD3D'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: AERAOD3D'
+ TZFIELD%CLONGNAME = 'AERAOD3D'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Anthropogenic Aerosol Optical Depth'
@@ -678,7 +678,7 @@ IF (NRAD_3D >= 1) THEN
ENDDO
TZFIELD%CMNHNAME = 'AERAOD2D'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: AERAOD2D'
+ TZFIELD%CLONGNAME = 'AERAOD2D'
TZFIELD%CUNITS = 'm'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Anthropogenic Aerosol Optical Depth'
@@ -693,7 +693,7 @@ IF (NRAD_3D >= 1) THEN
ENDDO
TZFIELD%CMNHNAME = 'AEREXT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: AEREXT'
+ TZFIELD%CLONGNAME = 'AEREXT'
TZFIELD%CUNITS = 'km-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_Anthropogenic EXTinction'
@@ -719,7 +719,7 @@ IF (LCHEMDIAG) THEN
!
DO JSV = NSV_CHEMBEG, NSV_CHEMEND
TZFIELD%CMNHNAME = 'FLX_'//TRIM(CNAMES(JSV-NSV_CHEMBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A,A)')'X_Y_Z_',TRIM(CNAMES(JSV-NSV_CHEMBEG+1)),' Net chemical flux'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XCHFLX(:,:,JSV-NSV_CHEMBEG+1) * 1E9)
END DO
@@ -774,7 +774,7 @@ IF (LEN_TRIM(CRAD_SAT) /= 0 .AND. NRR /=0) THEN
!
TZFIELD%CMNHNAME = TRIM(YNAM_SAT(JI))//'_IRBT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = TRIM(YNAM_SAT(JI))//' Infra-Red Brightness Temperature'
@@ -785,7 +785,7 @@ IF (LEN_TRIM(CRAD_SAT) /= 0 .AND. NRR /=0) THEN
!
TZFIELD%CMNHNAME = TRIM(YNAM_SAT(JI))//'_WVBT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = TRIM(YNAM_SAT(JI))//' Water-Vapor Brightness Temperature'
@@ -857,7 +857,7 @@ IF (CSURF=='EXTE') THEN
IF (.NOT. LCARTESIAN) THEN
TZFIELD2(1)%CMNHNAME = 'UM10'
TZFIELD2(1)%CSTDNAME = ''
- TZFIELD2(1)%CLONGNAME = 'MesoNH: UM10'
+ TZFIELD2(1)%CLONGNAME = 'UM10'
TZFIELD2(1)%CUNITS = 'm s-1'
TZFIELD2(1)%CDIR = 'XY'
TZFIELD2(1)%CCOMMENT = 'Zonal wind at 10m'
@@ -867,7 +867,7 @@ IF (CSURF=='EXTE') THEN
!
TZFIELD2(2)%CMNHNAME = 'VM10'
TZFIELD2(2)%CSTDNAME = ''
- TZFIELD2(2)%CLONGNAME = 'MesoNH: VM10'
+ TZFIELD2(2)%CLONGNAME = 'VM10'
TZFIELD2(2)%CUNITS = 'm s-1'
TZFIELD2(2)%CDIR = 'XY'
TZFIELD2(2)%CCOMMENT = 'Meridian wind at 10m'
@@ -879,7 +879,7 @@ IF (CSURF=='EXTE') THEN
ELSE
TZFIELD%CMNHNAME = 'UM10'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: UM10'
+ TZFIELD%CLONGNAME = 'UM10'
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'Zonal wind at 10m'
@@ -890,7 +890,7 @@ IF (CSURF=='EXTE') THEN
!
TZFIELD%CMNHNAME = 'VM10'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: VM10'
+ TZFIELD%CLONGNAME = 'VM10'
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'Meridian wind at 10m'
@@ -905,7 +905,7 @@ IF (CSURF=='EXTE') THEN
ZWORK21(:,:) = ZWORK21(:,:) + 4. * SQRT(XTKET(:,:,IKB))
TZFIELD%CMNHNAME = 'FF10MAX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: FF10MAX'
+ TZFIELD%CLONGNAME = 'FF10MAX'
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_FF10MAX'
@@ -918,7 +918,7 @@ IF (CSURF=='EXTE') THEN
IF(ANY(XCURRENT_SFCO2/=XUNDEF))THEN
TZFIELD%CMNHNAME = 'SFCO2'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: SFCO2'
+ TZFIELD%CLONGNAME = 'SFCO2'
TZFIELD%CUNITS = 'mg m-2 s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'CO2 Surface flux'
@@ -931,7 +931,7 @@ IF (CSURF=='EXTE') THEN
IF(ANY(XCURRENT_SW/=XUNDEF))THEN
TZFIELD%CMNHNAME = 'SW'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: SW'
+ TZFIELD%CLONGNAME = 'SW'
TZFIELD%CUNITS = 'W m-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'incoming ShortWave at the surface'
@@ -944,7 +944,7 @@ IF (CSURF=='EXTE') THEN
IF(ANY(XCURRENT_LW/=XUNDEF))THEN
TZFIELD%CMNHNAME = 'LW'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: LW'
+ TZFIELD%CLONGNAME = 'LW'
TZFIELD%CUNITS = 'W m-2'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'incoming LongWave at the surface'
@@ -1006,7 +1006,7 @@ ALLOCATE(ZWORK34(IIU,IJU,IKU))
IIU, IJU, IKU, IKB, IPRES, 'LOG', 'RHU.')
DO JK=1,IPRES
TZFIELD%CMNHNAME = 'THT'//TRIM(YPRES(JK))//'HPA'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K'
TZFIELD%CCOMMENT = 'X_Y_potential temperature '//TRIM(YPRES(JK))//' hPa'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWRES(:,:,JK))
@@ -1019,7 +1019,7 @@ ALLOCATE(ZWORK34(IIU,IJU,IKU))
IIU, IJU, IKU, IKB, IPRES, 'LOG', 'RHU.')
DO JK=1,IPRES
TZFIELD%CMNHNAME = 'UT'//TRIM(YPRES(JK))//'HPA'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CCOMMENT = 'X_Y_U component of wind '//TRIM(YPRES(JK))//' hPa'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWRES(:,:,JK))
@@ -1030,7 +1030,7 @@ ALLOCATE(ZWORK34(IIU,IJU,IKU))
IIU, IJU, IKU, IKB, IPRES, 'LOG', 'RHU.')
DO JK=1,IPRES
TZFIELD%CMNHNAME = 'VT'//TRIM(YPRES(JK))//'HPA'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CCOMMENT = 'X_Y_V component of wind '//TRIM(YPRES(JK))//' hPa'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWRES(:,:,JK))
@@ -1042,7 +1042,7 @@ ALLOCATE(ZWORK34(IIU,IJU,IKU))
IIU, IJU, IKU, IKB, IPRES, 'LOG', 'RHU.')
DO JK=1,IPRES
TZFIELD%CMNHNAME = 'MRV'//TRIM(YPRES(JK))//'HPA'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'g kg-1'
TZFIELD%CCOMMENT = 'X_Y_Vapor Mixing Ratio '//TRIM(YPRES(JK))//' hPa'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWRES(:,:,JK)*1.E3)
@@ -1055,7 +1055,7 @@ ALLOCATE(ZWORK34(IIU,IJU,IKU))
IIU, IJU, IKU, IKB, IPRES, 'LOG', 'RHU.')
DO JK=1,IPRES
TZFIELD%CMNHNAME = 'ALT'//TRIM(YPRES(JK))//'HPA'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm'
TZFIELD%CCOMMENT = 'X_Y_ALTitude '//TRIM(YPRES(JK))//' hPa'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWRES(:,:,JK))
@@ -1109,7 +1109,7 @@ ALLOCATE(ZWORK34(IIU,IJU,IKU))
CALL ZINTER(XPABST, XTHT, ZWTH, ZTH, IIU, IJU, IKU, IKB, ITH, XUNDEF)
DO JK=1,ITH
TZFIELD%CMNHNAME = 'PABST'//TRIM(YTH(JK))//'K'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'Pa'
TZFIELD%CCOMMENT = 'X_Y_pressure '//TRIM(YTH(JK))//' K'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWTH(:,:,JK))
@@ -1137,7 +1137,7 @@ ALLOCATE(ZWORK34(IIU,IJU,IKU))
CALL ZINTER(ZPOVO, XTHT, ZWTH, ZTH, IIU, IJU, IKU, IKB, ITH, XUNDEF)
DO JK=1,ITH
TZFIELD%CMNHNAME = 'POVOT'//TRIM(YTH(JK))//'K'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'PVU'
TZFIELD%CCOMMENT = 'X_Y_POtential VOrticity '//TRIM(YTH(JK))//' K'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWTH(:,:,JK))
@@ -1149,7 +1149,7 @@ ALLOCATE(ZWORK34(IIU,IJU,IKU))
CALL ZINTER(ZWORK31, XTHT, ZWTH, ZTH, IIU, IJU, IKU, IKB, ITH, XUNDEF)
DO JK=1,ITH
TZFIELD%CMNHNAME = 'UT'//TRIM(YTH(JK))//'K'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CCOMMENT = 'X_Y_U component of wind '//TRIM(YTH(JK))//' K'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWTH(:,:,JK))
@@ -1159,7 +1159,7 @@ ALLOCATE(ZWORK34(IIU,IJU,IKU))
CALL ZINTER(ZWORK31, XTHT, ZWTH, ZTH, IIU, IJU, IKU, IKB, ITH, XUNDEF)
DO JK=1,ITH
TZFIELD%CMNHNAME = 'VT'//TRIM(YTH(JK))//'K'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CCOMMENT = 'X_Y_V component of wind '//TRIM(YTH(JK))//' K'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWTH(:,:,JK))
@@ -1184,7 +1184,7 @@ IF (NEQ_BUDGET>0) THEN
!
DO JSV = 1, NEQ_BUDGET
TZFIELD%CMNHNAME = TRIM(CNAMES_BUDGET(JSV))//'_BUDGET'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(CNAMES_BUDGET(JSV))//'_BUDGET'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XTCHEM(JSV)%XB_REAC(:,:,:,:))
END DO
@@ -1195,7 +1195,7 @@ IF (NEQ_BUDGET>0) THEN
!
DO JSV=1, NEQ_BUDGET
TZFIELD%CMNHNAME = TRIM(CNAMES_BUDGET(JSV))//'_CHREACLIST'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = TRIM(CNAMES_BUDGET(JSV))//'_REACTION_LIST'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XTCHEM(JSV)%NB_REAC(:))
END DO
@@ -1213,12 +1213,12 @@ IF (NEQ_PLT>0) THEN
!
DO JSV = 1, NEQ_PLT
TZFIELD%CMNHNAME = TRIM(CNAMES_PRODLOSST(JSV))//'_PROD'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(CNAMES_PRODLOSST(JSV))//'_PROD'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XPROD(:,:,:,JSV))
!
TZFIELD%CMNHNAME = TRIM(CNAMES_PRODLOSST(JSV))//'_LOSS'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(CNAMES_PRODLOSST(JSV))//'_LOSS'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XLOSS(:,:,:,JSV))
END DO
diff --git a/src/MNH/write_lfifmn_fordiachron.f90 b/src/MNH/write_lfifmn_fordiachron.f90
index d152d850d364a977de8f594ccc6311417ca7a10a..ec9b57add8ab8c9ca42c28fcf2b09025c1ec27ff 100644
--- a/src/MNH/write_lfifmn_fordiachron.f90
+++ b/src/MNH/write_lfifmn_fordiachron.f90
@@ -170,7 +170,7 @@ IF (.NOT.LCARTESIAN) THEN
!LONOR and LATOR not in TFIELDLIST because local variables
TZFIELD%CMNHNAME = 'LONOR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: LONOR'
+ TZFIELD%CLONGNAME = 'LONOR'
TZFIELD%CUNITS = 'degree'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Longitude of 1st mass point'
@@ -180,7 +180,7 @@ IF (.NOT.LCARTESIAN) THEN
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZLONOR)
!
TZFIELD%CMNHNAME = 'LATOR'
- TZFIELD%CLONGNAME = 'MesoNH: LATOR'
+ TZFIELD%CLONGNAME = 'LATOR'
TZFIELD%CCOMMENT = 'Latitude of 1st mass point'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZLATOR)
!
diff --git a/src/MNH/write_lfin.f90 b/src/MNH/write_lfin.f90
index 3bbbacb6aa89255a67dd572d2ef584ddeff8387e..8c66ddb220fbe56af4fe26053d1082068d432cef 100644
--- a/src/MNH/write_lfin.f90
+++ b/src/MNH/write_lfin.f90
@@ -373,7 +373,7 @@ IF (.NOT.LCARTESIAN) THEN
!LONOR and LATOR not in TFIELDLIST because local variables
TZFIELD%CMNHNAME = 'LONOR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: LONOR'
+ TZFIELD%CLONGNAME = 'LONOR'
TZFIELD%CUNITS = 'degree'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Longitude of 1st mass point'
@@ -383,7 +383,7 @@ IF (.NOT.LCARTESIAN) THEN
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZLONOR)
!
TZFIELD%CMNHNAME = 'LATOR'
- TZFIELD%CLONGNAME = 'MesoNH: LATOR'
+ TZFIELD%CLONGNAME = 'LATOR'
TZFIELD%CCOMMENT = 'Latitude of 1st mass point'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZLATOR)
END IF
@@ -480,21 +480,21 @@ IF (MEAN_COUNT /= 0) THEN
TZFIELD%NGRID = 2
!
TZFIELD%CMNHNAME = 'UMME'
- TZFIELD%CLONGNAME = 'MesoNH: UMME'
+ TZFIELD%CLONGNAME = 'UMME'
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CCOMMENT = 'X_Y_Z_U component of mean wind'
ZWORK3D = XUM_MEAN/MEAN_COUNT
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK3D)
!
TZFIELD%CMNHNAME = 'U2ME'
- TZFIELD%CLONGNAME = 'MesoNH: U2ME'
+ TZFIELD%CLONGNAME = 'U2ME'
TZFIELD%CUNITS = 'm2 s-2'
TZFIELD%CCOMMENT = 'X_Y_Z_U component of mean wind variance'
ZWORK3D = XU2_MEAN/MEAN_COUNT-XUM_MEAN**2/MEAN_COUNT**2
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK3D)
!
TZFIELD%CMNHNAME = 'UMMA'
- TZFIELD%CLONGNAME = 'MesoNH: UMMA'
+ TZFIELD%CLONGNAME = 'UMMA'
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CCOMMENT = 'X_Y_Z_U component of max wind'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XUM_MAX)
@@ -502,21 +502,21 @@ IF (MEAN_COUNT /= 0) THEN
TZFIELD%NGRID = 3
!
TZFIELD%CMNHNAME = 'VMME'
- TZFIELD%CLONGNAME = 'MesoNH: VMME'
+ TZFIELD%CLONGNAME = 'VMME'
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CCOMMENT = 'X_Y_Z_V component of mean wind'
ZWORK3D = XVM_MEAN/MEAN_COUNT
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK3D)
!
TZFIELD%CMNHNAME = 'V2ME'
- TZFIELD%CLONGNAME = 'MesoNH: V2ME'
+ TZFIELD%CLONGNAME = 'V2ME'
TZFIELD%CUNITS = 'm2 s-2'
TZFIELD%CCOMMENT = 'X_Y_Z_V component of mean wind variance'
ZWORK3D = XV2_MEAN/MEAN_COUNT-XVM_MEAN**2/MEAN_COUNT**2
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK3D)
!
TZFIELD%CMNHNAME = 'VMMA'
- TZFIELD%CLONGNAME = 'MesoNH: VMMA'
+ TZFIELD%CLONGNAME = 'VMMA'
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CCOMMENT = 'X_Y_Z_V component of max wind'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XVM_MAX)
@@ -524,21 +524,21 @@ IF (MEAN_COUNT /= 0) THEN
TZFIELD%NGRID = 4
!
TZFIELD%CMNHNAME = 'WMME'
- TZFIELD%CLONGNAME = 'MesoNH: WMME'
+ TZFIELD%CLONGNAME = 'WMME'
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CCOMMENT = 'X_Y_Z_vertical mean wind'
ZWORK3D = XWM_MEAN/MEAN_COUNT
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK3D)
!
TZFIELD%CMNHNAME = 'W2ME'
- TZFIELD%CLONGNAME = 'MesoNH: W2ME'
+ TZFIELD%CLONGNAME = 'W2ME'
TZFIELD%CUNITS = 'm2 s-2'
TZFIELD%CCOMMENT = 'X_Y_Z_vertical mean wind variance'
ZWORK3D = XW2_MEAN/MEAN_COUNT-XWM_MEAN**2/MEAN_COUNT**2
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK3D)
!
TZFIELD%CMNHNAME = 'WMMA'
- TZFIELD%CLONGNAME = 'MesoNH: WMMA'
+ TZFIELD%CLONGNAME = 'WMMA'
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CCOMMENT = 'X_Y_Z_vertical max wind'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XWM_MAX)
@@ -546,75 +546,75 @@ IF (MEAN_COUNT /= 0) THEN
TZFIELD%NGRID = 1
!
TZFIELD%CMNHNAME = 'THMME'
- TZFIELD%CLONGNAME = 'MesoNH: THMME'
+ TZFIELD%CLONGNAME = 'THMME'
TZFIELD%CUNITS = 'K'
TZFIELD%CCOMMENT = 'X_Y_Z_mean potential temperature'
ZWORK3D = XTHM_MEAN/MEAN_COUNT
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK3D)
!
TZFIELD%CMNHNAME = 'TH2ME'
- TZFIELD%CLONGNAME = 'MesoNH: TH2ME'
+ TZFIELD%CLONGNAME = 'TH2ME'
TZFIELD%CUNITS = 'K2'
TZFIELD%CCOMMENT = 'X_Y_Z_mean potential temperature variance'
ZWORK3D = XTH2_MEAN/MEAN_COUNT-XTHM_MEAN**2/MEAN_COUNT**2
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK3D)
!
TZFIELD%CMNHNAME = 'THMMA'
- TZFIELD%CLONGNAME = 'MesoNH: THMMA'
+ TZFIELD%CLONGNAME = 'THMMA'
TZFIELD%CUNITS = 'K'
TZFIELD%CCOMMENT = 'X_Y_Z_max potential temperature'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XTHM_MAX)
!
TZFIELD%CMNHNAME = 'TEMPMME'
- TZFIELD%CLONGNAME = 'MesoNH: TEMPMME'
+ TZFIELD%CLONGNAME = 'TEMPMME'
TZFIELD%CUNITS = 'K'
TZFIELD%CCOMMENT = 'X_Y_Z_mean temperature'
ZWORK3D = XTEMPM_MEAN/MEAN_COUNT
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK3D)
!
TZFIELD%CMNHNAME = 'TEMP2ME'
- TZFIELD%CLONGNAME = 'MesoNH: TEMP2ME'
+ TZFIELD%CLONGNAME = 'TEMP2ME'
TZFIELD%CUNITS = 'K2'
TZFIELD%CCOMMENT = 'X_Y_Z_mean temperature variance'
ZWORK3D = XTEMP2_MEAN/MEAN_COUNT-XTEMPM_MEAN**2/MEAN_COUNT**2
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK3D)
!
TZFIELD%CMNHNAME = 'TEMPMMA'
- TZFIELD%CLONGNAME = 'MesoNH: TEMPMMA'
+ TZFIELD%CLONGNAME = 'TEMPMMA'
TZFIELD%CUNITS = 'K'
TZFIELD%CCOMMENT = 'X_Y_Z_max temperature'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XTEMPM_MAX)
!
TZFIELD%CMNHNAME = 'PABSMME'
- TZFIELD%CLONGNAME = 'MesoNH: PABSMME'
+ TZFIELD%CLONGNAME = 'PABSMME'
TZFIELD%CUNITS = 'Pa'
TZFIELD%CCOMMENT = 'X_Y_Z_mean ABSolute Pressure'
ZWORK3D = XPABSM_MEAN/MEAN_COUNT
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK3D)
!
TZFIELD%CMNHNAME = 'PABS2ME'
- TZFIELD%CLONGNAME = 'MesoNH: PABS2ME'
+ TZFIELD%CLONGNAME = 'PABS2ME'
TZFIELD%CUNITS = 'Pa2'
TZFIELD%CCOMMENT = 'X_Y_Z_mean ABSolute Pressure variance'
ZWORK3D = XPABS2_MEAN/MEAN_COUNT-XPABSM_MEAN**2/MEAN_COUNT**2
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK3D)
!
TZFIELD%CMNHNAME = 'PABSMMA'
- TZFIELD%CLONGNAME = 'MesoNH: PABSMMA'
+ TZFIELD%CLONGNAME = 'PABSMMA'
TZFIELD%CUNITS = 'Pa'
TZFIELD%CCOMMENT = 'X_Y_Z_max ABSolute Pressure'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XPABSM_MAX)
!
IF (CTURB /= 'NONE') THEN
TZFIELD%CMNHNAME = 'TKEMME'
- TZFIELD%CLONGNAME = 'MesoNH: TKEMME'
+ TZFIELD%CLONGNAME = 'TKEMME'
TZFIELD%CUNITS = 'm2 s-2'
TZFIELD%CCOMMENT = 'X_Y_Z_mean kinetic energy'
ZWORK3D= XTKEM_MEAN/MEAN_COUNT
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK3D)
!
TZFIELD%CMNHNAME = 'TKEMMA'
- TZFIELD%CLONGNAME = 'MesoNH: TKEMMA'
+ TZFIELD%CLONGNAME = 'TKEMMA'
TZFIELD%CUNITS = 'm2 s-2'
TZFIELD%CCOMMENT = 'X_Y_Z_max kinetic energy'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XTKEM_MAX)
@@ -672,7 +672,7 @@ IF (NSV >=1) THEN
!
DO JSV = 1,NSV_USER
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SVT',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
JSA=JSA+1
@@ -689,7 +689,7 @@ IF (NSV >=1) THEN
!
DO JSV = NSV_C2R2BEG,NSV_C2R2END
TZFIELD%CMNHNAME = TRIM(C2R2NAMES(JSV-NSV_C2R2BEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
JSA=JSA+1
@@ -706,7 +706,7 @@ IF (NSV >=1) THEN
!
DO JSV = NSV_C1R3BEG,NSV_C1R3END
TZFIELD%CMNHNAME = TRIM(C1R3NAMES(JSV-NSV_C1R3BEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
JSA=JSA+1
@@ -777,7 +777,7 @@ IF (NSV >=1) THEN
TZFIELD%CMNHNAME = TRIM(CLIMA_COLD_NAMES(5))//'T'
END IF
!
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
!
JSA=JSA+1
@@ -792,7 +792,7 @@ IF (NSV >=1) THEN
max( 1.e-20,XRT(:,:,2,3) ) !~2=at ground level
TZFIELD%CMNHNAME = 'INPBP'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: INPBP'
+ TZFIELD%CLONGNAME = 'INPBP'
TZFIELD%CUNITS = 'kg m-2 s-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_INstantaneous Precipitating Aerosol Rate'
@@ -817,7 +817,7 @@ IF (NSV >=1) THEN
!
DO JSV = NSV_ELECBEG,NSV_ELECEND
TZFIELD%CMNHNAME = TRIM(CELECNAMES(JSV-NSV_ELECBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
IF (JSV .GT. NSV_ELECBEG .AND. JSV .LT. NSV_ELECEND) THEN
TZFIELD%CUNITS = 'C m-3'
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3,A8)')'X_Y_Z_','SVT',JSV,' (C/m3)'
@@ -838,7 +838,7 @@ IF (NSV >=1) THEN
!
TZFIELD%CMNHNAME = 'EMODULE'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'V m-1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)
@@ -878,7 +878,7 @@ IF (NSV >=1) THEN
IF (LLNOX_EXPLICIT) THEN
TZFIELD%CMNHNAME = 'LINOX'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'mol mol-1'
TZFIELD%CDIR = 'XY'
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
@@ -900,7 +900,7 @@ IF (NSV >=1) THEN
!
DO JSV = NSV_LGBEG,NSV_LGEND
TZFIELD%CMNHNAME = TRIM(CLGNAMES(JSV-NSV_LGBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
JSA=JSA+1
@@ -917,7 +917,7 @@ IF (NSV >=1) THEN
!
DO JSV = NSV_PPBEG,NSV_PPEND
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SVT',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
JSA=JSA+1
@@ -945,7 +945,7 @@ IF (NSV >=1) THEN
!
DO JSV = NSV_FFBEG,NSV_FFEND
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SVT',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
JSA=JSA+1
@@ -963,7 +963,7 @@ IF (NSV >=1) THEN
!
DO JSV = NSV_CSBEG,NSV_CSEND
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SVT',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
JSA=JSA+1
@@ -994,7 +994,7 @@ IF (NSV >=1) THEN
!
DO JSV = NSV_CHEMBEG,NSV_CHEMEND
TZFIELD%CMNHNAME = TRIM(UPCASE(CNAMES(JSV-NSV_CHEMBEG+1)))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3,A8)')'X_Y_Z_','SVT',JSV,' (ppp)'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
!
@@ -1004,7 +1004,7 @@ IF (NSV >=1) THEN
IF (LUSECHIC) THEN
DO JSV = NSV_CHICBEG,NSV_CHICEND
TZFIELD%CMNHNAME = TRIM(UPCASE(CICNAMES(JSV-NSV_CHICBEG+1)))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3,A8)')'X_Y_Z_','SVT',JSV,' (ppp)'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
!
@@ -1015,7 +1015,7 @@ IF (NSV >=1) THEN
TZFIELD%NDIMS = 2
DO JSV = NSV_CHACBEG+NSV_CHAC/2,NSV_CHACEND
TZFIELD%CMNHNAME = 'ACPR_'//TRIM(UPCASE(CNAMES(JSV-NSV_CHEMBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'mol i m-2'
TZFIELD%CCOMMENT = 'X_Y_Accumulated moles of aqueous species at the surface'
ZWORK2D(:,:) = XACPRAQ(:,:,JSV-NSV_CHACBEG-NSV_CHAC/2+1)
@@ -1039,7 +1039,7 @@ IF (NSV >=1) THEN
END WHERE
TZFIELD%CMNHNAME = 'MEANPHR'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: MEANPHR'
+ TZFIELD%CLONGNAME = 'MEANPHR'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_MEAN_PH'
@@ -1059,7 +1059,7 @@ IF (NSV >=1) THEN
!
DO JSV = NSV_LNOXBEG,NSV_LNOXEND
TZFIELD%CMNHNAME = 'LINOXT'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)') 'X_Y_Z_','SVT',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
YCHNAMES(JSV-JSA)=TZFIELD%CMNHNAME(1:LEN_TRIM(TZFIELD%CMNHNAME)-1)
@@ -1081,7 +1081,7 @@ IF (NSV >=1) THEN
!
DO JSV = NSV_AERBEG,NSV_AEREND
TZFIELD%CMNHNAME = TRIM(UPCASE(CAERONAMES(JSV-NSV_AERBEG+1)))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
IF (JSV==NSV_AERBEG) WRITE(ILUOUT,*)'MNHC: write_lfin:NSV_AERBEG ',JSV
@@ -1099,7 +1099,7 @@ IF (NSV >=1) THEN
!
DO JSV = NSV_AERDEPBEG,NSV_AERDEPEND
TZFIELD%CMNHNAME = TRIM(CDEAERNAMES(JSV-NSV_AERDEPBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
IF (JSV==NSV_AERDEPBEG) WRITE(ILUOUT,*)'MNHC: write_lfin:NSV_AERDEPBEG ',JSV
@@ -1146,7 +1146,7 @@ IF (NSV >=1) THEN
+ 1 & !Number of moments in this mode
+ (NSV_DSTBEG -1) !Previous list of tracers
TZFIELD%CMNHNAME = TRIM(YPDUST_INI(ISV_NAME_IDX))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
YDSTNAMES((JMODE-1)*IMOMENTS+1)=TZFIELD%CMNHNAME(1:LEN_TRIM(TZFIELD%CMNHNAME)-1)
@@ -1159,7 +1159,7 @@ IF (NSV >=1) THEN
+ JMOM & !Number of moments in this mode
+ (NSV_DSTBEG -1)
TZFIELD%CMNHNAME = TRIM(YPDUST_INI(ISV_NAME_IDX))//'T' !The refererence which will be written to file
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
YDSTNAMES((JMODE-1)*IMOMENTS+JMOM)=TZFIELD%CMNHNAME(1:LEN_TRIM(TZFIELD%CMNHNAME)-1)
@@ -1184,7 +1184,7 @@ IF (NSV >=1) THEN
!
DO JSV = NSV_DSTBEG,NSV_DSTEND
TZFIELD%CMNHNAME = TRIM(CDUSTNAMES(JSV-NSV_DSTBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
IF (JSV==NSV_DSTBEG) WRITE(ILUOUT,*)'MNHC: write_lfin:NSV_DSTBEG ',JSV
@@ -1202,7 +1202,7 @@ IF (NSV >=1) THEN
!
DO JSV = NSV_DSTDEPBEG,NSV_DSTDEPEND
TZFIELD%CMNHNAME = TRIM(CDEDSTNAMES(JSV-NSV_DSTDEPBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
IF (JSV==NSV_DSTDEPBEG) WRITE(ILUOUT,*)'MNHC: write_lfin:NSV_DSTDEPBEG ',JSV
@@ -1250,7 +1250,7 @@ IF (NSV >=1) THEN
+ (NSV_SLTBEG -1) !Previous list of tracers
TZFIELD%CMNHNAME = TRIM(YPSALT_INI(ISV_NAME_IDX))//'T' !The refererence which will be written to file
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
YSLTNAMES((JMODE-1)*IMOMENTS+JMOM)=TZFIELD%CMNHNAME(1:LEN_TRIM(TZFIELD%CMNHNAME)-1)
@@ -1273,7 +1273,7 @@ IF (NSV >=1) THEN
!
DO JSV = NSV_SLTBEG,NSV_SLTEND
TZFIELD%CMNHNAME = TRIM(CSALTNAMES(JSV-NSV_SLTBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
IF (JSV==NSV_SLTBEG) WRITE(ILUOUT,*)'MNHC: write_lfin:NSV_SLTBEG ',JSV
@@ -1291,7 +1291,7 @@ IF (NSV >=1) THEN
!
DO JSV = NSV_SLTDEPBEG,NSV_SLTDEPEND
TZFIELD%CMNHNAME = TRIM(CDESLTNAMES(JSV-NSV_SLTDEPBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
IF (JSV==NSV_SLTDEPBEG) WRITE(ILUOUT,*)'MNHC: write_lfin:NSV_SLTDEPBEG ',JSV
@@ -1306,7 +1306,7 @@ IF (NSV >=1) THEN
END DO
TZFIELD%CMNHNAME = 'NSV.DIM'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: NSV.DIM'
+ TZFIELD%CLONGNAME = 'NSV.DIM'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Number of chemical variables'
@@ -1318,7 +1318,7 @@ IF (NSV >=1) THEN
IF (ICH_NBR/=0) THEN
TZFIELD%CMNHNAME = 'NSV.TITRE'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: NSV.TITRE'
+ TZFIELD%CLONGNAME = 'NSV.TITRE'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -1348,7 +1348,7 @@ IF (NSV >=1) THEN
!
DO JSV = NSV_LGBEG,NSV_LGEND
TZFIELD%CMNHNAME = TRIM(CLGNAMES(JSV-NSV_LGBEG+1))//'T'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A3,I3.3)')'X_Y_Z_','SVT',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV))
END DO
@@ -1416,7 +1416,7 @@ END IF
! IF (JSV == NSV_C2R2BEG ) THEN
! TZFIELD%CMNHNAME = 'RSVS_CLD1'
! TZFIELD%CSTDNAME = ''
-! TZFIELD%CLONGNAME = 'MesoNH: RSVS_CLD1'
+! TZFIELD%CLONGNAME = 'RSVS_CLD1'
! TZFIELD%CUNITS = '1'
! TZFIELD%CDIR = 'XY'
! TZFIELD%CCOMMENT = 'X_Y_Z_RHS_CLD'
@@ -1428,7 +1428,7 @@ END IF
! IF (JSV == NSV_C2R2END ) THEN
! TZFIELD%CMNHNAME = 'RSVS_CLD2'
! TZFIELD%CSTDNAME = ''
-! TZFIELD%CLONGNAME = 'MesoNH: RSVS_CLD2'
+! TZFIELD%CLONGNAME = 'RSVS_CLD2'
! TZFIELD%CUNITS = '1'
! TZFIELD%CDIR = 'XY'
! TZFIELD%CCOMMENT = 'X_Y_Z_RHS_CLD'
@@ -1514,31 +1514,31 @@ IF (CDCONV /= 'NONE' .OR. CSCONV == 'KAFR') THEN
!
DO JSV = 1, NSV_USER
WRITE(TZFIELD%CMNHNAME,'(A7,I3.3)')'DSVCONV',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDSVCONV(:,:,:,JSV))
END DO
DO JSV = NSV_C2R2BEG, NSV_C2R2END
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(C2R2NAMES(JSV-NSV_C2R2BEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDSVCONV(:,:,:,JSV))
END DO
DO JSV = NSV_C1R3BEG, NSV_C1R3END
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(C1R3NAMES(JSV-NSV_C1R3BEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDSVCONV(:,:,:,JSV))
END DO
DO JSV = NSV_ELECBEG, NSV_ELECEND
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(CELECNAMES(JSV-NSV_ELECBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDSVCONV(:,:,:,JSV))
END DO
DO JSV = NSV_PPBEG, NSV_PPEND
WRITE(TZFIELD%CMNHNAME,'(A7,I3.3)')'DSVCONV',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDSVCONV(:,:,:,JSV))
END DO
@@ -1546,7 +1546,7 @@ IF (CDCONV /= 'NONE' .OR. CSCONV == 'KAFR') THEN
IF (LFOREFIRE) THEN
DO JSV = NSV_FFBEG, NSV_FFEND
WRITE(TZFIELD%CMNHNAME,'(A7,I3.3)')'DSVCONV',JSV
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDSVCONV(:,:,:,JSV))
END DO
@@ -1555,14 +1555,14 @@ IF (CDCONV /= 'NONE' .OR. CSCONV == 'KAFR') THEN
IF (LUSECHEM) THEN
DO JSV = NSV_CHEMBEG, NSV_CHEMEND
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(UPCASE(CNAMES(JSV-NSV_CHEMBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDSVCONV(:,:,:,JSV))
END DO
IF (LORILAM) THEN
DO JSV = NSV_AERBEG, NSV_AEREND
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(UPCASE(CAERONAMES(JSV-NSV_AERBEG+1)))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDSVCONV(:,:,:,JSV))
END DO
@@ -1571,26 +1571,26 @@ IF (CDCONV /= 'NONE' .OR. CSCONV == 'KAFR') THEN
ELSE IF (LCH_CONV_LINOX) THEN
DO JSV = NSV_LNOXBEG,NSV_LNOXEND
TZFIELD%CMNHNAME = 'DSVCONV_LINOX'
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDSVCONV(:,:,:,JSV))
END DO
END IF
DO JSV = NSV_LGBEG, NSV_LGEND
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(CLGNAMES(JSV-NSV_LGBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDSVCONV(:,:,:,JSV))
END DO
DO JSV = NSV_DSTBEG, NSV_DSTEND
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(CDUSTNAMES(JSV-NSV_DSTBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDSVCONV(:,:,:,JSV))
END DO
DO JSV = NSV_SLTBEG, NSV_SLTEND
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(CSALTNAMES(JSV-NSV_SLTBEG+1))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
WRITE(TZFIELD%CCOMMENT,'(A6,A7,I3.3)')'X_Y_Z_','DSVCONV',JSV
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDSVCONV(:,:,:,JSV))
END DO
@@ -1724,7 +1724,7 @@ IF (LFORCING) THEN
!
TZFIELD%CMNHNAME = 'FRC'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: FRC'
+ TZFIELD%CLONGNAME = 'FRC'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Number of forcing profiles'
@@ -1739,7 +1739,7 @@ IF (LFORCING) THEN
!
TZFIELD%CMNHNAME = 'DTFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'seconds since YYYY-MM-DD HH:MM:SS.S'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Date of forcing profile '//YFRC
@@ -1750,7 +1750,7 @@ IF (LFORCING) THEN
!
TZFIELD%CMNHNAME = 'UFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Zonal component of horizontal forcing wind'
@@ -1761,7 +1761,7 @@ IF (LFORCING) THEN
!
TZFIELD%CMNHNAME = 'VFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Meridian component of horizontal forcing wind'
@@ -1772,7 +1772,7 @@ IF (LFORCING) THEN
!
TZFIELD%CMNHNAME = 'WFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Vertical forcing wind'
@@ -1783,7 +1783,7 @@ IF (LFORCING) THEN
!
TZFIELD%CMNHNAME = 'THFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Forcing potential temperature'
@@ -1794,7 +1794,7 @@ IF (LFORCING) THEN
!
TZFIELD%CMNHNAME = 'RVFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'kg kg-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Forcing vapor mixing ratio'
@@ -1805,7 +1805,7 @@ IF (LFORCING) THEN
!
TZFIELD%CMNHNAME = 'TENDTHFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Large-scale potential temperature tendency for forcing'
@@ -1816,7 +1816,7 @@ IF (LFORCING) THEN
!
TZFIELD%CMNHNAME = 'TENDRVFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'kg kg-1 s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Large-scale vapor mixing ratio tendency for forcing'
@@ -1827,7 +1827,7 @@ IF (LFORCING) THEN
!
TZFIELD%CMNHNAME = 'GXTHFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K m-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Large-scale potential temperature gradient for forcing'
@@ -1838,7 +1838,7 @@ IF (LFORCING) THEN
!
TZFIELD%CMNHNAME = 'GYTHFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K m-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Large-scale potential temperature gradient for forcing'
@@ -1849,7 +1849,7 @@ IF (LFORCING) THEN
!
TZFIELD%CMNHNAME = 'PGROUNDFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'Pa'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Forcing ground pressure'
@@ -1860,7 +1860,7 @@ IF (LFORCING) THEN
!
TZFIELD%CMNHNAME = 'TENDUFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Large-scale U tendency for forcing'
@@ -1871,7 +1871,7 @@ IF (LFORCING) THEN
!
TZFIELD%CMNHNAME = 'TENDVFRC'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'm s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Large-scale V tendency for forcing'
@@ -1890,7 +1890,7 @@ IF ( L2D_ADV_FRC ) THEN
!
TZFIELD%CMNHNAME = 'NADVFRC1'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: NADVFRC1'
+ TZFIELD%CLONGNAME = 'NADVFRC1'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Number of forcing profiles'
@@ -1905,7 +1905,7 @@ IF ( L2D_ADV_FRC ) THEN
!
TZFIELD%CMNHNAME = 'DTADV'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'seconds since YYYY-MM-DD HH:MM:SS.S'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Date and time of the advecting forcing '//YFRC
@@ -1916,7 +1916,7 @@ IF ( L2D_ADV_FRC ) THEN
!
TZFIELD%CMNHNAME = 'TH_ADV'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -1927,7 +1927,7 @@ IF ( L2D_ADV_FRC ) THEN
!
TZFIELD%CMNHNAME = 'Q_ADV'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'kg kg-1 s-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -1943,7 +1943,7 @@ IF ( L2D_REL_FRC ) THEN
!
TZFIELD%CMNHNAME = 'NRELFRC1'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: NRELFRC1'
+ TZFIELD%CLONGNAME = 'NRELFRC1'
TZFIELD%CUNITS = '1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Number of forcing profiles'
@@ -1958,7 +1958,7 @@ IF ( L2D_REL_FRC ) THEN
!
TZFIELD%CMNHNAME = 'DTREL'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'seconds since YYYY-MM-DD HH:MM:SS.S'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = 'Date and time of the relaxation forcing '//YFRC
@@ -1969,7 +1969,7 @@ IF ( L2D_REL_FRC ) THEN
!
TZFIELD%CMNHNAME = 'TH_REL'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'K'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -1980,7 +1980,7 @@ IF ( L2D_REL_FRC ) THEN
!
TZFIELD%CMNHNAME = 'Q_REL'//YFRC
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = 'kg kg-1'
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -2064,7 +2064,7 @@ IF ( CPROGRAM=='REAL ' ) THEN
!
DO JSA=1,SIZE(XDUMMY_2D,3)
TZFIELD%CMNHNAME = ADJUSTL(CDUMMY_2D(JSA))
- TZFIELD%CLONGNAME = 'MesoNH: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CCOMMENT = 'X_Y_Z_'//TRIM(TZFIELD%CMNHNAME)
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDUMMY_2D(:,:,JSA))
END DO
diff --git a/src/MNH/write_surf_mnh.f90 b/src/MNH/write_surf_mnh.f90
index e581c407378cf63edb7e37721722e02989065bc2..f06b38cc034427a7919d3be9142300a781781460 100644
--- a/src/MNH/write_surf_mnh.f90
+++ b/src/MNH/write_surf_mnh.f90
@@ -90,13 +90,13 @@ ELSE
!
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 0
+ TZFIELD%CLONGNAME = TRIM(HREC)
CALL IO_WRITE_FIELD(TFILE_SURFEX,TZFIELD,PFIELD,KRESP)
!
IF (KRESP /=0) THEN
@@ -298,7 +298,7 @@ IF ( (CSTORAGE_TYPE=='PG' .OR. CSTORAGE_TYPE=='SU') &
IF (HDIR=='A') THEN
TZFIELD%CMNHNAME = 'XHAT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: XHAT'
+ TZFIELD%CLONGNAME = 'XHAT'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
@@ -310,7 +310,7 @@ IF ( (CSTORAGE_TYPE=='PG' .OR. CSTORAGE_TYPE=='SU') &
IF (HDIR=='H') THEN
TZFIELD%CMNHNAME = 'XHAT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: XHAT'
+ TZFIELD%CLONGNAME = 'XHAT'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XX'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
@@ -338,7 +338,7 @@ ELSE IF ( (CSTORAGE_TYPE=='PG' .OR. CSTORAGE_TYPE=='SU') &
IF (HDIR=='A') THEN
TZFIELD%CMNHNAME = 'YHAT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: YHAT'
+ TZFIELD%CLONGNAME = 'YHAT'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
@@ -350,7 +350,7 @@ ELSE IF ( (CSTORAGE_TYPE=='PG' .OR. CSTORAGE_TYPE=='SU') &
IF (HDIR=='H') THEN
TZFIELD%CMNHNAME = 'YHAT'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: YHAT'
+ TZFIELD%CLONGNAME = 'YHAT'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'YY'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
@@ -363,29 +363,29 @@ ELSE IF ( (CSTORAGE_TYPE=='PG' .OR. CSTORAGE_TYPE=='SU') &
ELSE IF (HDIR=='H') THEN
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%CLONGNAME = TRIM(HREC)
CALL IO_WRITE_FIELD(TFILE_SURFEX,TZFIELD,ZWORK(1+NHALO:IIU-NHALO,1+NHALO:IJU-NHALO),KRESP)
ELSE IF (HDIR=='A') THEN
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%CLONGNAME = TRIM(HREC)
CALL IO_WRITE_FIELD(TFILE_SURFEX,TZFIELD,ZWORK(:,:),KRESP)
ELSE
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+ TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
@@ -542,7 +542,7 @@ GCOVER_PACKED = .FALSE.
!
TZFIELD%CMNHNAME = 'COVER_PACKED'
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'SURFEX: COVER_PACKED'
+TZFIELD%CLONGNAME = 'COVER_PACKED'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -578,7 +578,7 @@ IF (.NOT. GCOVER_PACKED) THEN
DO JL2=1,SIZE(OFLAG)
WRITE(YREC,'(A5,I3.3)') 'COVER',JL2
TZFIELD%CMNHNAME = TRIM(YREC)
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(YREC)
+ TZFIELD%CLONGNAME = TRIM(YREC)
TZFIELD%CDIR = YDIR
IF (OFLAG(JL2)) THEN
ICOVER=ICOVER+1
@@ -588,7 +588,7 @@ IF (.NOT. GCOVER_PACKED) THEN
ELSE
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+ TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = YDIR
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
@@ -734,7 +734,7 @@ IF (HDIR=='H' .OR. HDIR=='A') THEN
IF (HDIR=='H') THEN
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+ TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
@@ -746,7 +746,7 @@ IF (HDIR=='H' .OR. HDIR=='A') THEN
IF (HDIR=='A') THEN
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+ TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
@@ -765,7 +765,7 @@ ELSE IF (HDIR=='-') THEN
!
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+ TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
@@ -868,7 +868,7 @@ ELSE
!
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+ TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
@@ -966,7 +966,7 @@ IF (HDIR=='-') THEN
!
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+ TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
@@ -984,7 +984,7 @@ ELSE IF (HDIR=='H') THEN
!
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+ TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
@@ -1080,7 +1080,7 @@ IF ( (CSTORAGE_TYPE=='PG' .OR. CSTORAGE_TYPE=='SU') &
!
TZFIELD%CMNHNAME = 'CARTESIAN'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: CARTESIAN'
+ TZFIELD%CLONGNAME = 'CARTESIAN'
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = ''
@@ -1098,7 +1098,7 @@ END IF
!
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
-TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
@@ -1199,7 +1199,7 @@ IF (HDIR=='-') THEN
ELSE
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+ TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
@@ -1222,7 +1222,7 @@ ELSE IF (HDIR=='H') THEN
!
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+ TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
@@ -1315,7 +1315,7 @@ IF( (CMASK /= 'FULL ').AND. (HREC=='COVER') ) THEN
ELSE
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+ TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
@@ -1416,7 +1416,7 @@ ELSE
!
TZFIELD%CMNHNAME = TRIM(HREC)
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(HREC)
+ TZFIELD%CLONGNAME = TRIM(HREC)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
@@ -1517,7 +1517,7 @@ ELSE
!
TZFIELD%CMNHNAME = TRIM(HREC)//'%TDATE'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)
@@ -1534,7 +1534,7 @@ ELSE
!
TZFIELD%CMNHNAME = TRIM(HREC)//'%TIME'
TZFIELD%CSTDNAME = ''
- TZFIELD%CLONGNAME = 'SURFEX: '//TRIM(TZFIELD%CMNHNAME)
+ TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = ''
TZFIELD%CDIR = '--'
TZFIELD%CCOMMENT = TRIM(HCOMMENT)