Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/minmaxqfi.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

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

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

@@ -26 +26 @@
      IF (jbad>0) THEN
         WRITE(*,*)comment, "  k = ", k, "jbad > 0"
-        if (prt_level >= 1) THEN
+        IF (prt_level >= 1) THEN
            DO i = 1, jbad
               WRITE(*,*) "i,q=", jadrs(i), zq(jadrs(i),k)