Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/tracco2i_mod.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (4 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/tracco2i_mod.F90 (modified) (3 diffs)

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

@@ -1 +1 @@
 MODULE tracco2i_mod
-!
+
 ! This module does the work for the interactive CO2 tracers
 ! Authors: Patricia Cadule and Olivier Boucher
-!
+
 ! Purpose and description:
 !  -----------------------
@@ -11 +11 @@
 ! Compute global CO2 mixing ratio for radiation scheme if option is activated
 ! Redistribute CO2 evenly over the atmosphere if transport is desactivated
-!
+
 CONTAINS
 
@@ -292 +292 @@
 !    PRINT *, 'tracco2i_mod.F90 --- MAXVAL(source(:,id_CO2)) ',MAXVAL(source(:,id_CO2))
 !    PRINT *, 'tracco2i_mod.F90 --- MINVAL(source(:,id_CO2)) ',MINVAL(source(:,id_CO2))
-!
+
 !--build final source term for CO2
     source(:,id_CO2)=fco2_ff(:)+fco2_bb(:)+fco2_land(:)+fco2_ocean(:)-fco2_ocean_cor(:)-fco2_land_cor(:)