diff --git a/src/MNH/write_surf_mnh.f90 b/src/MNH/write_surf_mnh.f90 index 2216f1f8693213b5b2052d64db2c0e9792afac91..b151b5b473e85cc7138e23e15799b040f8f6e5c0 100644 --- a/src/MNH/write_surf_mnh.f90 +++ b/src/MNH/write_surf_mnh.f90 @@ -662,7 +662,6 @@ IF (.NOT. GCOVER_PACKED) THEN ICOVER=0 TZFIELD%CSTDNAME = '' TZFIELD%CUNITS = '' - TZFIELD%CCOMMENT = TRIM(HCOMMENT) TZFIELD%NGRID = 4 TZFIELD%NTYPE = TYPEREAL TZFIELD%NDIMS = 2 @@ -672,6 +671,7 @@ IF (.NOT. GCOVER_PACKED) THEN TZFIELD%CMNHNAME = TRIM(YREC) TZFIELD%CLONGNAME = TRIM(YREC) TZFIELD%CDIR = YDIR + TZFIELD%CCOMMENT = 'X_Y_'//TRIM(YREC) IF (OFLAG(JL2)) THEN ICOVER=ICOVER+1 CALL IO_WRITE_FIELD(TFILE_SURFEX,TZFIELD,ZWORK3D(1+NHALO:IIU-NHALO,1+NHALO:IJU-NHALO,ICOVER),KRESP)