Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/lmdz_cosp_interface.F90

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/cospv2/lmdz_cosp_interface.F90 (modified) (6 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/lmdz_cosp_interface.F90

@@ -275 +275 @@
         cfg%Lisccp, cfg%Lmisr, cfg%Lmodis, cfg%Lrttov
 
-    if (overlaplmdz.ne.overlap) then
+    if (overlaplmdz/=overlap) then
        print*,'Attention overlaplmdz different de overlap lu dans namelist '
     endif
@@ -282 +282 @@
    print*,'On passe par using_xios'
  ELSE
-   if (cosp_init_flag .eq. 0) then
+   if (cosp_init_flag == 0) then
 
       ! Initialize the distributional parameters for hydrometeors in radar simulator.
@@ -311 +311 @@
 
 !!! Ici on modifie les cles logiques pour les outputs selon les champs actives dans les .xml
-  if ((itap.ge.1).and.(first_write))then
+  if ((itap>=1).and.(first_write))then
     IF (using_xios) call read_xiosfieldactive(cfg)
     first_write=.false.
 
-if (cosp_init_flag .eq. 0) then
+if (cosp_init_flag == 0) then
 
     ! Initialize the distributional parameters for hydrometeors in radar simulator.
@@ -384 +384 @@
 ! 3) Masque terre/mer a partir de la variable fracTerLic
         do ip = 1, Npoints
-          if (fracTerLic(ip).ge.0.5) then
+          if (fracTerLic(ip)>=0.5) then
              land(ip) = 1.
           else
@@ -424 +424 @@
 
 
-if (cosp_init_flag .eq. 1) then      ! cosp_init_flag = 1
+if (cosp_init_flag == 1) then      ! cosp_init_flag = 1
 
 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -538 +538 @@
       endif ! debut_cosp
 
-if (cosp_init_flag .eq. 1) then
+if (cosp_init_flag == 1) then
 
 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%