Changeset 5282 for LMDZ6/trunk/libf/phylmd/phytrac_mod.f90

Timestamp:

Oct 28, 2024, 1:11:48 PM (6 hours ago)

Author:

abarral

Message:

Turn iniprint.h clesphys.h into modules
Remove unused description.h

File:

• LMDZ6/trunk/libf/phylmd/phytrac_mod.f90 (modified) (5 diffs)

LMDZ6/trunk/libf/phylmd/phytrac_mod.f90

@@ -58 +58 @@
     USE infotrac_phy, ONLY: nbtr, type_trac
     USE tracco2i_mod, ONLY: tracco2i_init
-    
+
     IMPLICIT NONE
 
@@ -75 +75 @@
     !===============================================================================
     !    -- Do specific treatment according to chemestry model or local LMDZ tracers
-    !      
+    !
     !===============================================================================
     !   -- CO2 interactif --
     IF (ANY(type_trac == ['co2i','inco'])) CALL tracco2i_init()
 
-       !   -- type_trac == 'co2i' ! PC 
+       !   -- type_trac == 'co2i' ! PC
        !   -- CO2 interactif --
-       !   -- source is updated with FF and BB emissions 
-       !   -- and net fluxes from ocean and orchidee 
+       !   -- source is updated with FF and BB emissions
+       !   -- and net fluxes from ocean and orchidee
        !   -- sign convention : positive into the atmosphere
 
@@ -105 +105 @@
        da,        phi,      mp,       upwd,           &
        phi2,      d1a,      dam,      sij, wght_cvfd, &   ! RomP +RL
-       wdtrainA,  wdtrainM, sigd,     clw, elij,      &   ! RomP 
+       wdtrainA,  wdtrainM, sigd,     clw, elij,      &   ! RomP
        evap,      ep,       epmlmMm,  eplaMm,         &   ! RomP
        dnwd,      aerosol_couple,     flxmass_w,      &
@@ -111 +111 @@
        rfname,                                        &
        d_tr_dyn,                                      &   ! RomP
-       tr_seri, init_source)         
+       tr_seri, init_source)
     !
     !======================================================================
@@ -163 +163 @@
           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
           , RALPD, RBETD, RGAMD
+    USE clesphys_mod_h
 IMPLICIT NONE
 
 
-    INCLUDE "clesphys.h"
     !==========================================================================
     !                   -- ARGUMENT DESCRIPTION --