Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_ts2.F

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/inlandsis/sisvat_ts2.F (modified) (6 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_ts2.F

@@ -207 +207 @@
 
       DO ig=1,knonv    
-        IF (isnoSV(ig).GT.0) THEN
-          IF (isnoSV(ig).GT.1) THEN
+        IF (isnoSV(ig)>0) THEN
+          IF (isnoSV(ig)>1) THEN
            mug(ig)=1./(1.+dzsnSV(ig,isnoSV(ig)-1)/dzsnSV(ig,isnoSV(ig))) !mu
           ELSE
@@ -217 +217 @@
         ENDIF
 
-        IF (mug(ig)  .LE. 0.05) THEN
+        IF (mug(ig)  <= 0.05) THEN
          write(*,*)'Attention mu low', mug(ig)
         ENDIF
-        IF (mug(ig)  .GE. 0.98) THEN
+        IF (mug(ig)  >= 0.98) THEN
          write(*,*)'Attention mu high', mug(ig)
         ENDIF
@@ -331 +331 @@
 
       DO ig = 1,knonv
-        IF (ps__SV(ig).LT.1.) THEN
+        IF (ps__SV(ig)<1.) THEN
 !          write(*,*)'ig',ig,'ps',ps__SV(ig)
           ps__SV(ig)=max(ps__SV(ig),1.e-8)
         ENDIF
-        IF (p1l_SV(ig).LT.1.) THEN
+        IF (p1l_SV(ig)<1.) THEN
 !          write(*,*)'ig',ig,'p1l',p1l_SV(ig)
           p1l_SV(ig)=max(p1l_SV(ig),1.e-8)
         ENDIF
-        IF (TaT_SV(ig).LT.180.) THEN
+        IF (TaT_SV(ig)<180.) THEN
 !          write(*,*)'ig',ig,'TaT',TaT_SV(ig)
           TaT_SV(ig)=max(TaT_SV(ig),180.)
         ENDIF
-        IF (QaT_SV(ig).LT.1.e-8) THEN
+        IF (QaT_SV(ig)<1.e-8) THEN
 !          write(*,*)'ig',ig,'QaT',QaT_SV(ig)
           QaT_SV(ig)=max(QaT_SV(ig),1.e-8)
         ENDIF
-        IF (Tsf_SV(ig).LT.100.) THEN
+        IF (Tsf_SV(ig)<100.) THEN
 !          write(*,*)'ig',ig,'Tsf',Tsf_SV(ig)
           Tsf_SV(ig)=max(Tsf_SV(ig),180.)
         ENDIF
-        IF (Tsf_SV(ig).GT.500.) THEN
+        IF (Tsf_SV(ig)>500.) THEN
 !          write(*,*)'ig',ig,'Tsf',Tsf_SV(ig)
           Tsf_SV(ig)=min(Tsf_SV(ig),400.)
@@ -359 +359 @@
 !           Tsrf(ig)=max(Tsrf(ig),TaT_SV(ig)-20.)
 !         ENDIF
-         IF (cdH_SV(ig).LT.1.e-10) THEN
+         IF (cdH_SV(ig)<1.e-10) THEN
 !           IF (ig.le.3)   write(*,*)'ig',ig,'cdH',cdH_SV(ig)
            cdH_SV(ig)=.5
@@ -380 +380 @@
      &          /LhvH2O / zx_pkh(ig)
         ELSE
-          IF (Tsf_SV(ig).LT.t_coup) THEN
+          IF (Tsf_SV(ig)<t_coup) THEN
              zx_qs = qsats(Tsf_SV(ig)) / ps__SV(ig)
              zx_dq_s_dh = dqsats(Tsf_SV(ig),zx_qs)/LhvH2O               &
@@ -408 +408 @@
       DO ig = 1,knonv
         zx_sl(ig) = LhvH2O
-        IF (Tsf_SV(ig) .LT. RTT) zx_sl(ig) = LhsH2O
+        IF (Tsf_SV(ig) < RTT) zx_sl(ig) = LhsH2O
         zx_k1(ig) = zx_coef(ig)
       ENDDO