Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/readchlorophyll.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/readchlorophyll.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/readchlorophyll.F90

@@ -102 +102 @@
       WRITE(lunout, *)"chrolophyll current month", mth_cur
       DO i = 1, klon_glo
-        !      if(isnan(chlorocon_mois_glo(i)))then ! isnan() is not in the Fortran standard...
+        !      IF(isnan(chlorocon_mois_glo(i)))then ! isnan() is not in the Fortran standard...
         !      Another way to check for NaN:
         IF (chlorocon_mois_glo(i)/=chlorocon_mois_glo(i)) chlorocon_mois_glo(i) = 0.