Changeset 5081 for LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer

Timestamp:

Jul 19, 2024, 4:15:44 PM (7 months ago)

Author:

abarral

Message:

Commit linked to correcting relevant warnings during gfortran compilation

[minor]
Correct remnants of fixed-form "+" in massbarxy.F90
Correct COMMON alignment in clesphys.h, flux_arp.h, cv*param.h, YOECUMF.h, alpale.h
Correct obsolete logical operators
Restrict use of iso_fortran_env in nf95_abort.f90
Remove redundant save in module declarations
Remove <continue> without labels
Fix nonstandard kind selectors

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/cond_evap_tstep_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/cond_evap_tstep_mod.F90

@@ -227 +227 @@
 !     H2SO4 mass fraction in aerosol
       WH2=R2SO4*1.0E-2
-      IF(WH2.EQ.0.0) RETURN
+      IF(WH2==0.0) RETURN
 !                               ACTIVITY COEFFICIENT(SEE GIAUQUE,1951)
 !                               AYERS ET AL (1980)
@@ -324 +324 @@
         ff(IK,:)=0.0 
         DO k=1, nbtr_bin 
-          IF (k.LE.(nbtr_bin-1)) THEN 
-            IF (Vbin_wet(k).LE.Vnew.AND.Vnew.LT.Vbin_wet(k+1)) THEN
+          IF (k<=(nbtr_bin-1)) THEN
+            IF (Vbin_wet(k)<=Vnew.AND.Vnew<Vbin_wet(k+1)) THEN
               ff(IK,k)= Vbin_wet(k)/Vnew*(Vbin_wet(k+1)-Vnew)/(Vbin_wet(k+1)-Vbin_wet(k))
             ENDIF
           ENDIF
-          IF (k.EQ.1.AND.Vnew.LE.Vbin_wet(k)) THEN
+          IF (k==1.AND.Vnew<=Vbin_wet(k)) THEN
             ff(IK,k)= 1.
           ENDIF
-          IF (k.GT.1) THEN 
-            IF (Vbin_wet(k-1).LT.Vnew.AND.Vnew.LT.Vbin_wet(k)) THEN
+          IF (k>1) THEN
+            IF (Vbin_wet(k-1)<Vnew.AND.Vnew<Vbin_wet(k)) THEN
               ff(IK,k)= 1.-ff(IK,k-1)
             ENDIF
           ENDIF
-          IF (k.EQ.nbtr_bin.AND.Vnew.GE.Vbin_wet(k)) THEN
+          IF (k==nbtr_bin.AND.Vnew>=Vbin_wet(k)) THEN
             ff(IK,k)= 1.
           ENDIF