From 86c7e640e94280afb7169d27b62b649d0ab2026e Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 6 Apr 2017 09:16:46 +0200
Subject: [PATCH] Philippe 06/03/2017: IO: bug correction: missing TFILE_SURFEX
value for WRITE_DIAG_SURF_ATM_n
---
src/MNH/modeln.f90 | 2 ++
1 file changed, 2 insertions(+)
diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90
index 67536d145..40c69a5f2 100644
--- a/src/MNH/modeln.f90
+++ b/src/MNH/modeln.f90
@@ -1320,7 +1320,9 @@ IF (IBAK>0 .AND. IBAK <= NBAK_NUMB ) THEN
CALL DIAG_SURF_ATM_n(YSURF_CUR%IM%DGEI, YSURF_CUR%FM%DGF, YSURF_CUR%DGL, YSURF_CUR%IM%DGI, &
YSURF_CUR%SM%DGS, YSURF_CUR%DGU, YSURF_CUR%TM%DGT, YSURF_CUR%WM%DGW, &
YSURF_CUR%U, YSURF_CUR%USS,'MESONH')
+ TFILE_SURFEX => TZBAKFILE
CALL WRITE_DIAG_SURF_ATM_n(YSURF_CUR,'MESONH','ALL')
+ NULLIFY(TFILE_SURFEX)
END IF
END IF
END IF
--
GitLab