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

Timestamp:

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

Author:

abarral

Message:

(lint) Fix obsolete boolean operators

File:

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

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

@@ -89 +89 @@
 !----------------------
 
-IF (iflag_sedim_bs .GT. 0) THEN
+IF (iflag_sedim_bs > 0) THEN
 ! begin of top-down loop
 DO k = nlay, 1, -1
@@ -103 +103 @@
 
     ! thermalization of blowing snow precip coming from above     
-    IF (k.LE.nlay-1) THEN
+    IF (k<=nlay-1) THEN
 
         DO i = 1, ngrid
@@ -164 +164 @@
 ! Sublimation and melting
 !++++++++++++++++++++++++++++++++++++++++++++++
-IF (iflag_sublim_bs .GT. 0) THEN
+IF (iflag_sublim_bs > 0) THEN
 
 DO k = 1, nlay
@@ -189 +189 @@
 
 
-          IF (ztemp(i) .GT. RTT) THEN
+          IF (ztemp(i) > RTT) THEN
 
              ! if temperature is positive, we assume that part of the blowing snow 
@@ -226 +226 @@
  
               ! we do not consider deposition, only sublimation
-              IF (zqv(i) .LT. qsi(i)) THEN
+              IF (zqv(i) < qsi(i)) THEN
                  rhoair=zpres(i)/ztemp(i)/RD
                  Dv=0.0001*0.211*(p0/zpres(i))*((ztemp(i)/RTT)**1.94) ! water vapor diffusivity in air, SI
@@ -256 +256 @@
           ! see Gerber et al. 2023, JGR Atmos for the choice of qbmin
 
-          IF (zqb(i) .LT. qbmin) THEN
+          IF (zqb(i) < qbmin) THEN
               zqv(i) = zqv(i)+zqb(i)
-              IF (ztemp(i) .LT. RTT) THEN
+              IF (ztemp(i) < RTT) THEN
                  ztemp(i) = ztemp(i) - zqb(i) * RLSTT/RCPD/(1.0+RVTMP2*(zqv(i)))
               ELSE