Changeset 5354

Timestamp:

Nov 29, 2024, 3:28:41 PM (4 hours ago)

Author:

yann meurdesoif

Message:

function isnan() is a non-standard gnu extension and it is not compiling with nvidia compiler.
It has been standardize in fortran 2003 by using intrinsic module function ieee_is_nan()
YM

File:

• LMDZ6/trunk/libf/phylmd/Dust/checknanqfi.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/Dust/checknanqfi.f90

@@ -1 +1 @@
 SUBROUTINE checknanqfi(zq,qmin,qmax,comment)
   USE dimphy
+  USE, intrinsic :: ieee_arithmetic
   IMPLICIT NONE
 
@@ -16 +17 @@
      DO i = 1, klon
 !        IF (zq(i,k).GT.qmax .OR. zq(i,k).LT.qmin) THEN
-        IF (isnan(zq(i,k))) THEN
+        IF (ieee_is_nan(zq(i,k))) THEN
            jbad = jbad + 1
            jadrs(jbad) = i