Ignore:
Timestamp:
Mar 21, 2026, 7:18:46 PM (3 weeks ago)
Author:
Laurent Fairhead
Message:
  1. SZ98 interpolation (Sheng and Zwiers, Climate Dynamics (1998)

Mean-preserving linear interpolation of monthly boundary conditions to daily values

  1. Concentration-Driven mode

Prescribed atmospheric CO2 concentrations without atmospheric CO2 transport

  1. CO2 Fossil fuel emissions

Reading of monthly or daily emissions with SZ98 interpolation when needed

  1. Flux corrections

Implementation of scalar (1D) ans spatially varying (2D) carbon flux corrections for piControl simulations.

PCadule

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/phys_output_ctrlout_mod.F90

    r6113 r6116  
    18531853!---CO2 fluxes for interactive CO2 configuration
    18541854!--Added PC
    1855   TYPE(ctrl_out), SAVE :: o_flx_co2_ff = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), &
    1856     'flx_co2_ff', 'CO2 flux from fossil fuel and cement', '1', (/ ('', i=1, 10) /))
    1857   TYPE(ctrl_out), SAVE :: o_flx_co2_bb = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), &
    1858     'flx_co2_bb', 'CO2 flux from biomass burning', '1', (/ ('', i=1, 10) /))
    1859   TYPE(ctrl_out), SAVE :: o_flx_co2_ocean = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), &
    1860     'flx_co2_ocean', 'CO2 flux from the ocean', '1', (/ ('', i=1, 10) /))
    1861   TYPE(ctrl_out), SAVE :: o_flx_co2_land = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), &
    1862     'flx_co2_land', 'CO2 flux from the land', '1', (/ ('', i=1, 10) /))
    1863   TYPE(ctrl_out), SAVE :: o_flx_co2_ocean_cor = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), &
     1855  TYPE(ctrl_out), SAVE :: o_flx_co2_ff = ctrl_out((/ 1, 5, 10, 11, 11, 11, 11, 11, 11, 11/), &
     1856    'flx_co2_ff', 'CO2 flux from fossil fuel and cement', 'kg CO2 m-2 s-1', (/ ('', i=1, 10) /))
     1857  TYPE(ctrl_out), SAVE :: o_flx_co2_bb = ctrl_out((/ 1, 5, 10, 11, 11, 11, 11, 11, 11, 11/), &
     1858    'flx_co2_bb', 'CO2 flux from biomass burning', 'kg CO2 m-2 s-1', (/ ('', i=1, 10) /))
     1859  TYPE(ctrl_out), SAVE :: o_flx_co2_ocean = ctrl_out((/ 1, 5, 10, 11, 11, 11, 11, 11, 11, 11/), &
     1860    'flx_co2_ocean', 'CO2 flux from the ocean', 'kg CO2 m-2 s-1', (/ ('', i=1, 10) /))
     1861  TYPE(ctrl_out), SAVE :: o_flx_co2_land = ctrl_out((/ 1, 5, 10, 11, 11, 11, 11, 11, 11, 11/), &
     1862    'flx_co2_land', 'CO2 flux from the land', 'kg CO2 m-2 s-1', (/ ('', i=1, 10) /))
     1863  TYPE(ctrl_out), SAVE :: o_flx_co2_ocean_cor = ctrl_out((/ 1, 5, 10, 11, 11, 11, 11, 11, 11, 11/), &
    18641864    'flx_co2_ocean_cor', 'correction of the CO2 flux from the ocean', 'kg CO2 m-2 s-1', (/ ('', i=1, 10) /))
    1865   TYPE(ctrl_out), SAVE :: o_flx_co2_land_cor = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), &
     1865  TYPE(ctrl_out), SAVE :: o_flx_co2_land_cor = ctrl_out((/ 1, 5, 10, 11, 11, 11, 11, 11, 11, 11/), &
    18661866    'flx_co2_land_cor', 'correction of the CO2 flux from the land', 'kg CO2 m-2 s-1', (/ ('', i=1, 10) /))
     1867!---CO2 concentration sent to coupled models (ORCHIDEE, PISCES)
     1868!   Written when carbon_cycle_cpl is active (emission-driven or concentration-driven)
     1869  TYPE(ctrl_out), SAVE :: o_co2_send = ctrl_out((/ 1, 5, 10, 1, 11, 11, 11, 11, 11, 11/), &
     1870    'co2_send', 'atmospheric CO2 sent to coupled land and ocean models', 'ppm', (/ ('', i=1, 10) /))
    18671871!--end add PC
    18681872
Note: See TracChangeset for help on using the changeset viewer.