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

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

@@ -640 +640 @@
              zmzp = 0.5*(zm(i)+zp(i))
              ! debug
-             ! if (i.EQ.1864) then
+             ! if (i.EQ.1864) THEN
              ! PRINT*,'i,pblh(1864),obklen(1864)',i,pblh(i),obklen(i)
              ! endif