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

Timestamp:

Jun 19, 2025, 1:27:30 PM (6 weeks ago)

Author:

yann meurdesoif

Message:

Manage isnan non standard fortran intrinsic function with wrapper that switch to ieee_is_nan when preprocessing key CPP_USE_IEEE_IS_NAN is set.

This is mandatory for nvdia compiler that is not accept the isnan function. Due to not well understood side effect with MPI initialization on irene, for now we offer the 2 possibility, and by default, CPP_USE_IEEE_IS_NAN is set only for nvidia compilers.
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 lmdz_is_nan, ONLY : is_nan
   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 (is_nan(zq(i,k))) THEN
            jbad = jbad + 1
            jadrs(jbad) = i