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

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

@@ -409 +409 @@
 
     ! check for precipitation sub-time steps
-    IF (ABS(dtime/REAL(niter_lscp)-360.0).GT.0.001) THEN
+    IF (ABS(dtime/REAL(niter_lscp)-360.0)>0.001) THEN
         WRITE(lunout,*) 'lscp: it is not expected, see Z.X.Li', dtime
         WRITE(lunout,*) 'I would prefer a 6 min sub-timestep'
@@ -417 +417 @@
     ! and other options
    
-    IF (iflag_autoconversion .EQ. 2) THEN
-        IF ((iflag_vice .NE. 0) .OR. (niter_lscp .GT. 1)) THEN
+    IF (iflag_autoconversion == 2) THEN
+        IF ((iflag_vice /= 0) .OR. (niter_lscp > 1)) THEN
            abort_message = 'in lscp, iflag_autoconversion=2 requires iflag_vice=0 and niter_lscp=1'
            CALL abort_physic (modname,abort_message,1)