Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/friction_loc.F

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/dyn3dmem/friction_loc.F (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/friction_loc.F

@@ -56 +56 @@
         ! 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
@@ -65 +65 @@
 !$OMP END SINGLE COPYPRIVATE(friction_type,firstcall)
 
-      if (friction_type.eq.0) then ! friction on first layer only
+      if (friction_type==0) then ! friction on first layer only
 !$OMP SINGLE
 c   calcul des composantes au carre du vent naturel
@@ -172 +172 @@
       endif ! of if (friction_type.eq.0)
 
-      if (friction_type.eq.1) then
+      if (friction_type==1) then
        ! for ucov() 
         jjb=jj_begin