Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/dyn3d/friction.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/dyn3d/friction.F (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d/friction.F

@@ -53 +53 @@
         ! set friction type
         call getin("friction_type",friction_type)
-        if ((friction_type.lt.0).or.(friction_type.gt.1)) then
+        if ((friction_type<0).or.(friction_type>1)) then
           abort_message="wrong friction type"
           write(lunout,*)'Friction: wrong friction type',friction_type
@@ -61 +61 @@
       ENDIF
 
-      if (friction_type.eq.0) then
+      if (friction_type==0) then
 c   calcul des composantes au carre du vent naturel
       do j=1,jjp1
@@ -124 +124 @@
       endif ! of if (friction_type.eq.0)
 
-      if (friction_type.eq.1) then
+      if (friction_type==1) then
         do l=1,llm
           ucov(:,:,l)=ucov(:,:,l)*(1.-pdt*kfrict(l))