Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/phy_common

Timestamp:

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

Author:

abarral

Message:

(lint) Fix obsolete boolean operators

Location:

LMDZ6/branches/Amaury_dev/libf/phy_common

Files:

• abort_physic.F90 (modified) (1 diff)
• mod_phys_lmdz_mpi_data.F90 (modified) (1 diff)
• print_control_mod.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phy_common/abort_physic.F90

@@ -36 +36 @@
       write(lunout,*) 'Stopping in ', modname
       write(lunout,*) 'Reason = ',message
-      if (ierr .eq. 0) then
+      if (ierr == 0) then
         write(lunout,*) 'Everything is cool'
         if (using_mpi) then

LMDZ6/branches/Amaury_dev/libf/phy_common/mod_phys_lmdz_mpi_data.F90

@@ -65 +65 @@
     is_using_mpi = using_mpi
     
-    if ((nbp_lon.eq.1).and.(nbp_lat.eq.1)) then ! running 1D column model
+    if ((nbp_lon==1).and.(nbp_lat==1)) then ! running 1D column model
        klon_glo=1
     else

LMDZ6/branches/Amaury_dev/libf/phy_common/print_control_mod.F90

@@ -44 +44 @@
 
     IF ( alert_first_call) then
-       IF ( alarm_file .ne. lunout ) THEN
+       IF ( alarm_file /= lunout ) THEN
           OPEN(unit = alarm_file, file = "ALERTES.txt")
        ENDIF