diff --git a/src/MNH/read_surf_mnh.f90 b/src/MNH/read_surf_mnh.f90 index 23a6d28e311b05890bb9a9fd8793a22d23608feb..e2a5d849762cc77591d69896330c6880c355b677 100644 --- a/src/MNH/read_surf_mnh.f90 +++ b/src/MNH/read_surf_mnh.f90 @@ -827,7 +827,6 @@ IF (.NOT. GCOVER_PACKED) THEN ICOVER=0 TZFIELD%CSTDNAME = '' TZFIELD%CUNITS = '' - TZFIELD%CCOMMENT = '' !Expected comment is not known TZFIELD%NGRID = 4 TZFIELD%NTYPE = TYPEREAL TZFIELD%NDIMS = 2 @@ -836,6 +835,7 @@ IF (.NOT. GCOVER_PACKED) THEN WRITE(YREC,'(A5,I3.3)') 'COVER',JL2 TZFIELD%CMNHNAME = TRIM(YREC) TZFIELD%CLONGNAME = TRIM(YREC) + TZFIELD%CCOMMENT = 'X_Y_'//TRIM(YREC) TZFIELD%CDIR = YDIR IF (OFLAG(JL2)) THEN ICOVER=ICOVER+1 @@ -1025,7 +1025,7 @@ IF (.NOT. GCOVER_PACKED) THEN TZFIELD%CLONGNAME = TRIM(YREC) TZFIELD%CUNITS = '' TZFIELD%CDIR = YDIR1 - TZFIELD%CCOMMENT = '' !Expected comment is not known + TZFIELD%CCOMMENT = 'X_Y_'//TRIM(YREC) TZFIELD%NGRID = 4 TZFIELD%NTYPE = TYPEREAL TZFIELD%NDIMS = 2