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

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

@@ -3082 +3082 @@
 
   ! fraction deau condensee dans les melanges convertie en precip : epm
-  ! et eau condensée précipitée dans masse d'air saturé : l_m*dM_m/dzdz.dzdz
+  ! et eau condens�e pr�cipit�e dans masse d'air satur� : l_m*dM_m/dzdz.dzdz
   DO j = 1, nam1
     DO k = 1, j - 1
@@ -3277 +3277 @@
 
         ! On fait varier epmax en fn de la cape
-        ! Il faut donc recalculer ep, et hp qui a déjà été calculé et
-        ! qui en dépend
-        ! Toutes les autres variables fn de ep sont calculées plus bas.
+        ! Il faut donc recalculer ep, et hp qui a d�j� �t� calcul� et
+        ! qui en d�pend
+        ! Toutes les autres variables fn de ep sont calcul�es plus bas.
 
         INCLUDE "cvthermo.h"
@@ -3304 +3304 @@
         ! on recalcule ep et hp
         
-        if (coef_epmax_cape.gt.1e-12) then
+        if (coef_epmax_cape>1e-12) then
         do i=1,ncum
            epmax_diag(i)=epmax-coef_epmax_cape*sqrt(cape(i))
@@ -3327 +3327 @@
       do k=minorig+1,nl
        do i=1,ncum
-        if((k.ge.icb(i)).and.(k.le.inb(i)))then
+        if((k>=icb(i)).and.(k<=inb(i)))then
           hp(i,k)=h(i,nk(i))+(lv(i,k)+(cpd-cpv)*t(i,k))*ep(i,k)*clw(i,k)
         endif
@@ -3335 +3335 @@
       do i=1,ncum  
        do k=1,nl
-        if (abs(hp_bak(i,k)-hp(i,k)).gt.0.01) then
+        if (abs(hp_bak(i,k)-hp(i,k))>0.01) then
            write(*,*) 'i,k=',i,k
            write(*,*) 'coef_epmax_cape=',coef_epmax_cape