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

Timestamp:

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

Author:

abarral

Message:

(lint) Fix obsolete boolean operators

Location:

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat

Files:

• calfis.F (modified) (1 diff)
• gr_dyn_fi.F (modified) (1 diff)
• inigeomphy_mod.F90 (modified) (1 diff)
• phylmd/callphysiq_mod.F90 (modified) (1 diff)
• phylmd/iniphysiq_mod.F90 (modified) (1 diff)
• phylmd/init_ssrf_m.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/calfis.F

@@ -180 +180 @@
       IF ( firstcal )  THEN
         debut = .TRUE.
-        IF (ngridmx.NE.2+(jjm-1)*iim) THEN
+        IF (ngridmx/=2+(jjm-1)*iim) THEN
          write(lunout,*) 'STOP dans calfis'
          write(lunout,*)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/gr_dyn_fi.F

@@ -22 +22 @@
 c   -------
 
-      IF (ngrid.NE.2+(jm-2)*(im-1)) then
+      IF (ngrid/=2+(jm-2)*(im-1)) then
          call abort_gcm("gr_dyn_fi", 'probleme de dim', 1)
       end if

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/inigeomphy_mod.F90

@@ -144 +144 @@
         boundslonfi_glo(k,north_east)=rlonu(i)
         boundslatfi_glo(k,north_east)=rlatv(j-1)
-        if (i.eq.1) then
+        if (i==1) then
           ! special case for the first longitude's west bound
           boundslonfi_glo(k,north_west)=rlonu(iim)-2*PI

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"