Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd

Timestamp:

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

Author:

abarral

Message:

(lint) Fix obsolete boolean operators

Location:

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd

Files:

• callphysiq_mod.F90 (modified) (1 diff)
• iniphysiq_mod.F90 (modified) (1 diff)
• init_ssrf_m.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/callphysiq_mod.F90

@@ -62 +62 @@
 ! Sanity check on physics package type
   IF (firstcall) THEN
-    IF (planet_type.ne."earth") THEN
+    IF (planet_type/="earth") THEN
       CALL abort_gcm(modname,"wrong planet_type for this physics package",1)
     ENDIF

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

@@ -129 +129 @@
   slab_ekman=0
   CALL getin_p('slab_ekman',slab_ekman)
-  IF ((type_ocean=='slab').AND.(slab_hdiff.OR.(slab_ekman.GT.0))) THEN
+  IF ((type_ocean=='slab').AND.(slab_hdiff.OR.(slab_ekman>0))) THEN
      CALL ini_slab_transp_geom(ip1jm,ip1jmp1,unsairez,fext,unsaire,&
                                   cu,cuvsurcv,cv,cvusurcu, &

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/init_ssrf_m.F90

@@ -59 +59 @@
 ! Sub-surfaces initialization
 !*******************************************************************************
-  IF (landice_opt .LT. 2) THEN
+  IF (landice_opt < 2) THEN
      ! Continue with reading landice.nc file
      WRITE(lunout,*)"Read landice.nc file to attribute is_lic fraction"