Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_plume.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_plume.F90 (modified) (7 diffs)

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

@@ -255 +255 @@
         zdz2=zlev(ig,lt)-zlev(ig,l)
 
-        do while (lmel.gt.zdz2)
+        do while (lmel>zdz2)
            lt=lt+1
            zlt=zlev(ig,lt)
@@ -321 +321 @@
 ! En dessous de lalim, on prend le max de alim_star et entr_star pour
 ! alim_star et 0 sinon
-        if (l.lt.lalim(ig)) then
+        if (l<lalim(ig)) then
           alim_star(ig,l)=max(alim_star(ig,l),entr_star(ig,l))
           entr_star(ig,l)=0.
@@ -375 +375 @@
    enddo
 
-   if (prt_level.ge.20) print*,'coucou calcul detr 460: ig, l',ig, l
+   if (prt_level>=20) print*,'coucou calcul detr 460: ig, l',ig, l
 !
 !===========================================================================
@@ -383 +383 @@
    nbpb=0
    do ig=1,ngrid
-            if (zw2(ig,l+1)>0. .and. zw2(ig,l+1).lt.1.e-10) then
+            if (zw2(ig,l+1)>0. .and. zw2(ig,l+1)<1.e-10) then
 !               stop'On tombe sur le cas particulier de thermcell_dry'
 !               print*,'On tombe sur le cas particulier de thermcell_plume'
@@ -391 +391 @@
             endif
 
-        if (zw2(ig,l+1).lt.0.) then 
+        if (zw2(ig,l+1)<0.) then
            linter(ig)=(l*(zw2(ig,l+1)-zw2(ig,l))  &
      &               -zw2(ig,l))/(zw2(ig,l+1)-zw2(ig,l))
            zw2(ig,l+1)=0.
 !+CR:04/05/12:correction calcul linter pour calcul de zmax continu
-        elseif (f_star(ig,l+1).lt.0.) then
+        elseif (f_star(ig,l+1)<0.) then
            linter(ig)=(l*(f_star(ig,l+1)-f_star(ig,l))  &
      &               -f_star(ig,l))/(f_star(ig,l+1)-f_star(ig,l))
@@ -405 +405 @@
            wa_moy(ig,l+1)=sqrt(zw2(ig,l+1)) 
 
-        if (wa_moy(ig,l+1).gt.wmaxa(ig)) then
+        if (wa_moy(ig,l+1)>wmaxa(ig)) then
 !   lmix est le niveau de la couche ou w (wa_moy) est maximum
 !on rajoute le calcul de lmix_bis
-            if (zqla(ig,l).lt.1.e-10) then
+            if (zqla(ig,l)<1.e-10) then
                lmix_bis(ig)=l+1
             endif
@@ -436 +436 @@
        
 
-        if (prt_level.ge.20) print*,'coucou calcul detr 470: ig, l', ig, l
+        if (prt_level>=20) print*,'coucou calcul detr 470: ig, l', ig, l
 
 #undef wrgrads_thermcell