Changeset 5561 for LMDZ6/trunk/libf/phylmd/Dust

Timestamp:

Feb 25, 2025, 7:15:18 PM (5 months ago)

Author:

Laurent Fairhead

Message:

Roll back of commit 5511 and part of 5544 to insure convergence of next testing revision. Both commits will be reintroduced just after the validation of this
testing version

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
 
@@ -17 +16 @@
      DO i = 1, klon
 !        IF (zq(i,k).GT.qmax .OR. zq(i,k).LT.qmin) THEN
-        IF (ieee_is_nan(zq(i,k))) THEN
+        IF (isnan(zq(i,k))) THEN
            jbad = jbad + 1
            jadrs(jbad) = i