Index

Rundeck: E6TomaF40

Created: Fri May 17 03:30:39 EDT 2024

rdisobase

Module:

File: BIOGENIC_EMISSIONS.f

Summary: These baseline emissions factors normally should be read in from the file 'isopemis.table'. I am hardcoding them here, as the quickest way to make sure this is ESMF- compliant, as I do not suspect we will commit this code. Units are atoms C cm^-2 leaf s^-1 Construct the base emission for each grid box Output is baseisop in kg C cm^-2 * surface area of cell (cm^2) emitted in 1 hour time step
Author :
Version:

---

Declaration:

subroutine rdisobase

Variables:

ijreg : used from tracers_drydep

ijland : used from tracers_drydep

byavog : used from constant

axyp : used from geom

imaxj : used from geom

getdomainbounds : used from domain_decomp_atm

grid : used from domain_decomp_atm

i : integer

j : integer

k : integer

j_0 : integer

j_1 : integer

i_0 : integer

i_1 : integer

convert : real*8, dimension(0:nvegtype-1), parameter

Initial Value = (/ 0.00E+00, 2.79E+12, 8.71E+11, 2.79E+12, 2.79E+12, 2.79E+12, 2.79E+12, 2.79E+12, 3.34E+12, 2.79E+12, 2.79E+12, 2.79E+12, 2.79E+12, 2.79E+12, 2.79E+12, 2.79E+12, 2.79E+12, 2.79E+12, 2.79E+12, 2.79E+12, 1.67E+12, 1.67E+12, 1.67E+12, 1.39E+12, 3.34E+12, 6.27E+12, 6.27E+12, 3.34E+12, 0.93E+12, 0.93E+12, 8.71E+11, 8.71E+11, 2.49E+12, 1.39E+12, 2.79E+12, 2.79E+12, 8.71E+11, 8.71E+11, 8.71E+11, 8.71E+11, 0.93E+12, 1.39E+12, 8.71E+11, 2.79E+12, 1.67E+12, 1.67E+12, 3.34E+12, 2.79E+12, 9.41E+12, 2.79E+12, 3.34E+12, 3.34E+12, 2.79E+12, 2.79E+12, 3.34E+12, 2.79E+12, 4.18E+12, 4.18E+12, 1.39E+12, 3.34E+12, 3.14E+12, 3.34E+12, 1.39E+12, 3.34E+12, 8.71E+11, 2.79E+12, 2.79E+12, 2.79E+12, 2.79E+12, 3.34E+12, 2.79E+12, 3.34E+12, 8.71E+11, 2.79E+12 /)

factor : real*8