Changeset 3581 for LMDZ6/trunk/libf/phylmd/traclmdz_mod.F90

Timestamp:

Oct 10, 2019, 2:35:59 PM (5 years ago)

Author:

oboucher

Message:

Big update to the interactive carbon cycle
from Patricia's code

File:

• LMDZ6/trunk/libf/phylmd/traclmdz_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/traclmdz_mod.F90

@@ -92 +92 @@
     USE regr_pr_comb_coefoz_m, ONLY: alloc_coefoz
     USE press_coefoz_m, ONLY: press_coefoz
-    USE carbon_cycle_mod, ONLY : carbon_cycle_init, carbon_cycle_tr, carbon_cycle_cpl
     USE mod_grid_phy_lmdz
     USE mod_phys_lmdz_para
@@ -285 +284 @@
 
 !
-! Initialisation de module carbon_cycle_mod
-! ----------------------------------------------
-    IF (carbon_cycle_tr .OR. carbon_cycle_cpl) THEN
-       CALL carbon_cycle_init(tr_seri, pdtphys, aerosol, radio)
-    END IF
-
 ! Check if all tracers have restart values
 ! ----------------------------------------------
@@ -346 +339 @@
     USE regr_pr_comb_coefoz_m, ONLY: regr_pr_comb_coefoz
     USE o3_chem_m, ONLY: o3_chem
-    USE carbon_cycle_mod, ONLY : carbon_cycle, carbon_cycle_tr, carbon_cycle_cpl
     USE indice_sol_mod
 
@@ -612 +604 @@
     END IF
 
-!======================================================================
-!   Calcul de cycle de carbon
-!======================================================================
-    IF (carbon_cycle_tr .OR. carbon_cycle_cpl) THEN
-       CALL carbon_cycle(nstep, pdtphys, pctsrf, tr_seri, source)
-    END IF
-
   END SUBROUTINE traclmdz