Changeset 5282 for LMDZ6/trunk/libf/phylmd/phytrac_mod.f90
- Timestamp:
- Oct 28, 2024, 1:11:48 PM (6 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phytrac_mod.f90
r5274 r5282 58 58 USE infotrac_phy, ONLY: nbtr, type_trac 59 59 USE tracco2i_mod, ONLY: tracco2i_init 60 60 61 61 IMPLICIT NONE 62 62 … … 75 75 !=============================================================================== 76 76 ! -- Do specific treatment according to chemestry model or local LMDZ tracers 77 ! 77 ! 78 78 !=============================================================================== 79 79 ! -- CO2 interactif -- 80 80 IF (ANY(type_trac == ['co2i','inco'])) CALL tracco2i_init() 81 81 82 ! -- type_trac == 'co2i' ! PC 82 ! -- type_trac == 'co2i' ! PC 83 83 ! -- CO2 interactif -- 84 ! -- source is updated with FF and BB emissions 85 ! -- and net fluxes from ocean and orchidee 84 ! -- source is updated with FF and BB emissions 85 ! -- and net fluxes from ocean and orchidee 86 86 ! -- sign convention : positive into the atmosphere 87 87 … … 105 105 da, phi, mp, upwd, & 106 106 phi2, d1a, dam, sij, wght_cvfd, & ! RomP +RL 107 wdtrainA, wdtrainM, sigd, clw, elij, & ! RomP 107 wdtrainA, wdtrainM, sigd, clw, elij, & ! RomP 108 108 evap, ep, epmlmMm, eplaMm, & ! RomP 109 109 dnwd, aerosol_couple, flxmass_w, & … … 111 111 rfname, & 112 112 d_tr_dyn, & ! RomP 113 tr_seri, init_source) 113 tr_seri, init_source) 114 114 ! 115 115 !====================================================================== … … 163 163 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 164 164 , RALPD, RBETD, RGAMD 165 USE clesphys_mod_h 165 166 IMPLICIT NONE 166 167 167 168 168 INCLUDE "clesphys.h"169 169 !========================================================================== 170 170 ! -- ARGUMENT DESCRIPTION --
Note: See TracChangeset
for help on using the changeset viewer.