Philippe 08/06/2018: SURFEX correction: AINT(...,KIND=16) crashes PGI and does not seem useful

816b30e3 · WAUTELET Philippe · 2f3d9fd8 · 816b30e3
Commit 816b30e3 authored 7 years ago by WAUTELET Philippe
--- 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