From c680c72c95341584083af060cf889dded90ccd54 Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Tue, 2 Jun 2020 17:07:51 +0200
Subject: [PATCH] Juan 2/03/2020: compare_with_pgd_domain.f90, strange bug with
 pgi/20.04 <-> corrupted size vs. prev_size , pgf901 TERMINATED by signal 6,
 add 1 write to avoid it ?!

---
 src/MNH/compare_with_pgd_domain.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/MNH/compare_with_pgd_domain.f90 b/src/MNH/compare_with_pgd_domain.f90
index 028dc1f80..8b698bb40 100644
--- a/src/MNH/compare_with_pgd_domain.f90
+++ b/src/MNH/compare_with_pgd_domain.f90
@@ -178,6 +178,7 @@ IF (     (ABS(PLAT0-XLAT0)>ZEPS*MAX(1.,ABS(XLAT0)))                      &
   WRITE(ILUOUT0,*) '  | INPUT FILE AND PHYSIOGRAPHIC DATA DOMAINS ARE DIFFERENTS |'
   WRITE(ILUOUT0,*) '  +----------------------------------------------------------+'
   WRITE(ILUOUT0,*)
+  WRITE(ILUOUT0,*)
 !callabortstop
   CALL PRINT_MSG(NVERB_FATAL,'GEN','COMPARE_WITH_PGD_DOMAIN','')
 ENDIF
-- 
GitLab