Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/phylmd/phyredem.F90

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/phylmd/phyredem.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/phyredem.F90

@@ -99 +99 @@
   tab_cntrl(6) = nbapp_rad
 
-  IF( iflag_cycle_diurne.GE.1 ) tab_cntrl( 7 ) = iflag_cycle_diurne
+  IF( iflag_cycle_diurne>=1 ) tab_cntrl( 7 ) = iflag_cycle_diurne
   IF(   soil_model ) tab_cntrl( 8 ) = 1.
   IF(     new_oliq ) tab_cntrl( 9 ) = 1.
@@ -134 +134 @@
     ! Get last fractions from slab ocean
     IF (type_ocean == 'slab' .AND. version_ocean == "sicINT") THEN
-        WHERE (1.-zmasq(:).GT.EPSFRA)
+        WHERE (1.-zmasq(:)>EPSFRA)
             pctsrf(:,is_oce)=(1.-fsic(:))*(1.-zmasq(:))
             pctsrf(:,is_sic)=fsic(:)*(1.-zmasq(:))
@@ -362 +362 @@
     ! Restart variables for Slab ocean
     IF (type_ocean == 'slab') THEN
-        IF (nslay.EQ.1) THEN
+        IF (nslay==1) THEN
           CALL put_field(pass,"tslab", "Slab ocean temperature", tslab)
         ELSE