Changeset 3605 for LMDZ6/branches/Ocean_skin/libf/phylmd/traclmdz_mod.F90

Timestamp:

Nov 21, 2019, 4:43:45 PM (5 years ago)

Author:

lguez

Message:

Merge revisions 3427:3600 of trunk into branch Ocean_skin

Location:

LMDZ6/branches/Ocean_skin

Files:

• . (modified) (1 prop)
• libf/phylmd/traclmdz_mod.F90 (modified) (4 diffs)

LMDZ6/branches/Ocean_skin/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