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

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 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/lmdz_thermcell_env.F90 (modified) (1 diff)

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

@@ -85 +85 @@
    do ig=1,ngrid
       do ll=1,nlay-1
-         if ((zh(ig,ll)>273.15).and.(zh(ig,ll+1)<=273.15)) then
+         if ((zh(ig,ll)>273.15).and.(zh(ig,ll+1)<=273.15)) THEN
             lcong(ig)=ll+1
             lintercong(ig)=(ll*(zh(ig,ll+1)-zh(ig,ll))  &