Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/phylmd/icefrac_lsc_mod.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/icefrac_lsc_mod.F90 (modified) (2 diffs)

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

@@ -33 +33 @@
 
   DO ip=1,np
-     IF (iflag_t_glace.EQ.1) THEN
+     IF (iflag_t_glace==1) THEN
        ! Transition to ice close to surface for T<Tmax
        ! w=1 at the surface and 0 for sig < sig0
        www=(max(sig(ip)-sig0,0.))/(1.-sig0) 
-     ELSEIF (iflag_t_glace.GE.2) THEN
+     ELSEIF (iflag_t_glace>=2) THEN
        ! No convertion to ice close to surface
        www = 0.
@@ -44 +44 @@
      liqfrac_tmp=  (temp(ip)-tmin_tmp) / (t_glace_max-tmin_tmp)
      liqfrac_tmp = MIN(MAX(liqfrac_tmp,0.0),1.0)
-     IF (iflag_t_glace.GE.3) THEN
+     IF (iflag_t_glace>=3) THEN
        icefrac(ip) = 1.0-liqfrac_tmp**exposant_glace
      ELSE