Changeset 5221 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/physiq_mod.F90

Timestamp:

Sep 23, 2024, 4:12:29 PM (4 weeks ago)

Author:

abarral

Message:

Merge r5196, r5199
Nb: skipping r5197 r5198 as they revert one-another

Location:

LMDZ6/branches/Amaury_dev

Files:

• . (modified) (1 prop)
• libf/phylmdiso/physiq_mod.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/physiq_mod.F90

@@ -39 +39 @@
     USE lmdz_ioipsl_getin_p, ONLY: getin_p
     USE indice_sol_mod
-    USE infotrac_phy, ONLY: nqtot, nbtr, nqo, tracers, type_trac,ivap,iliq,isol
-    USE lmdz_readTracFiles, ONLY: addPhase
+    USE infotrac_phy, ONLY: nqtot, nbtr, nqo, tracers, type_trac, addPhase, ivap,iliq,isol
     USE lmdz_strings,  ONLY: strIdx
     USE iophy
@@ -2585 +2584 @@
        ENDDO
     ENDDO
-    
+
     ! Lea Raillard qs_ini for cloud phase param.
     qs_ini(:,:)=qs_seri(:,:)
@@ -5890 +5889 @@
        ENDIF
 
-       IF (aerosol_couple.AND.config_inca=='aero') THEN 
+       IF (aerosol_couple.AND.config_inca=='aero') THEN
           CALL radlwsw_inca  &
                (chemistry_couple, kdlon,kflev,dist, rmu0, fract, solaire, &