From 816b30e3aa346a2450377e7b925dc4326f4aeaab Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 8 Feb 2018 10:30:21 +0100
Subject: [PATCH] Philippe 08/06/2018: SURFEX correction: AINT(...,KIND=16)
crashes PGI and does not seem useful
---
src/SURFEX/vegtype_grid_to_patch_grid.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/SURFEX/vegtype_grid_to_patch_grid.F90 b/src/SURFEX/vegtype_grid_to_patch_grid.F90
index 75662c823..002a37491 100644
--- a/src/SURFEX/vegtype_grid_to_patch_grid.F90
+++ b/src/SURFEX/vegtype_grid_to_patch_grid.F90
@@ -99,7 +99,7 @@ ENDDO
DO JP = 1,SIZE(PW,2)
DO JI = 1,SIZE(PW,1)
IF (PW(JI,JP)/=XUNDEF) THEN
- ZINT = AINT(PW(JI,JP),KIND=16)
+ ZINT = AINT(PW(JI,JP))
IF (PW(JI,JP)/=ZINT) THEN
PW(JI,JP) = ZINT + NINT((PW(JI,JP)-ZINT)*ZPREC)/ZPREC
ENDIF
--
GitLab