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

Timestamp:

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

Author:

abarral

Message:

(lint) Fix obsolete boolean operators

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_down.F90 (modified) (6 diffs)

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

@@ -74 +74 @@
       do ig=1,ngrid
          !if ( lmax(ig) > nlay - 2 ) stop "les thermiques montent trop haut"
-         if (ilay.le.lmax(ig) .and. lmax(ig)>1 ) then
+         if (ilay<=lmax(ig) .and. lmax(ig)>1 ) then
             fdn(ig,ilay)=fdn(ig,ilay+1)+edn(ig,ilay)-ddn(ig,ilay)
             if ( fdn(ig,ilay)+ddn(ig,ilay) > 0. ) then
@@ -90 +90 @@
    do ilay=1,nlay,1
       do ig=1,ngrid
-         if (ilay.lt.lmax(ig) .and. lmax(ig)>1) then
+         if (ilay<lmax(ig) .and. lmax(ig)>1) then
             fup(ig,ilay+1)=fup(ig,ilay)+eup(ig,ilay)-dup(ig,ilay)
             if (fup(ig,ilay+1)+dup(ig,ilay) > 0.) then
@@ -131 +131 @@
          !!!!ATTENTION HYPOTHESE de FLUX COMPENSATOIRE DESCENDANT ET DONC comme schema amont on va chercher trac au dessus!!!!!
          !!!! tentative de prise en compte d'un flux compensatoire montant  !!!!
-         if (fup(ig,ilay)-fdn(ig,ilay) .lt. 0.) then
+         if (fup(ig,ilay)-fdn(ig,ilay) < 0.) then
             call abort_physic("thermcell_updown_dq", 'flux compensatoire '&
                  // 'montant, cas non traite par thermcell_updown_dq', 1)
@@ -164 +164 @@
      do ilay=2,nlay,1
        do ig=1,ngrid
-         if (fup(ig,ilay)-fdn(ig,ilay) .lt. 0.) then
+         if (fup(ig,ilay)-fdn(ig,ilay) < 0.) then
             call abort_physic("thermcell_updown_dq", 'flux compensatoire ' &
                  // 'montant, cas non traite par thermcell_updown_dq', 1)
@@ -193 +193 @@
      do ilay=nlay-1,1,-1
        do ig=1,ngrid
-         if((fup(ig,ilay)-fdn(ig,ilay)) .lt. 0) then
+         if((fup(ig,ilay)-fdn(ig,ilay)) < 0) then
             write(*,*) 'flux compensatoire montant, cas non traite par thermcell_updown_dq dans le cas d une resolution implicite, ilay : ', ilay
             call abort_physic("thermcell_updown_dq", "", 1)
@@ -273 +273 @@
    do ilay=nlay,1,-1
       do ig=1,ngrid
-         if (ilay.le.lmax(ig).and.lmax(ig)>1) then
+         if (ilay<=lmax(ig).and.lmax(ig)>1) then
             edn(ig,ilay)=fact_thermals_down*dup(ig,ilay)
             ddn(ig,ilay)=fact_thermals_down*eup(ig,ilay)