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

Timestamp:

Jul 19, 2024, 5:41:58 PM (2 months ago)

Author:

abarral

Message:

(lint) Fix obsolete boolean operators

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_env.F90 (modified) (2 diffs)

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

@@ -61 +61 @@
 
 !-----------------------------------------------------------------------
-   if (prt_level.ge.1) print*,'0 OK convect8'
+   if (prt_level>=1) print*,'0 OK convect8'
 
    do ll=1,nlay
@@ -86 +86 @@
    do ig=1,ngrid
       do ll=1,nlay-1
-         if ((zh(ig,ll).gt.273.15).and.(zh(ig,ll+1).le.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))  &