Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/hbtm2l.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/hbtm2l.F90 (modified) (1 diff)

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

@@ -524 +524 @@
     DO i = 1, knon
       IF (check(i) .OR. omegafl(i)) THEN
-        ! CC         if (pplay(i,k) .le. plcl(i)) then
+        ! CC         if (pplay(i,k) .le. plcl(i)) THEN
         zm(i) = z(i, k-1)
         zp(i) = z(i, k)