Index

Rundeck: E6TomaF40

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

TRACERS_DRYDEP

File: TRDRYDEP.f

Summary: tracers_DRYDEP tracer dry deposition from Harvard CTM. Current version only calculates the "bulk surface resistance to deposition" component of the deposition velocity.
Author : D.J. Jacob and Y.H. Wang, modularized by G.M. Gardner, adapted for GISS GCM by D. Koch, modelEified by G. Faluvegi Harvard version 3.1: 12/17/97)
Version:

---

Subroutines:

---

Global Variables:

ntm : used from tracer_com

npoly : integer, parameter

?
Initial Value = 20
Used by: | :biofit | :get_dep_vel | :rddrycf |

nvegtype : integer, parameter

number of Olson vegetation types
Initial Value = 74
Used by: | :alloc_trdrydep | :rdland | :readlai |

ntype : integer, parameter

number of surface types
Initial Value = 16
Used by: | :alloc_trdrydep | :get_dep_vel | :rdland | :readlai |

ijreg : integer, allocatable, dimension(:, :)

# of landtypes in grid square
Used by: | :alloc_trdrydep | :get_dep_vel | :isoprene_emission | :rdisobase | :rdlai | :rdland |

ijland : integer, allocatable, dimension(:, :, :)

Land type ID for element LDT =1, IJREG(I,J) (could be
Used by: | :alloc_trdrydep | :get_dep_vel | :rdisobase | :rdland |

ijuse : integer, allocatable, dimension(:, :, :)

Fraction ((per mil) of gridbox area occupied by land type
Used by: | :alloc_trdrydep | :get_dep_vel | :isoprene_emission | :rdland |

ireg : integer, allocatable, dimension(:, :)

?
Used by: | :alloc_trdrydep | :rdlai | :rdland | :readlai |

idep : integer, dimension(nvegtype)

?
Used by: | :get_dep_vel | :rdland |

iri : integer, dimension(ntype)

read in ___ resistance
Used by: | :get_dep_vel | :rdland |

irlu : integer, dimension(ntype)

Cuticular resistances per unit area of leaf
Used by: | :get_dep_vel | :rdland |

irac : integer, dimension(ntype)

read in ___ resistance
Used by: | :get_dep_vel | :rdland |

irgss : integer, dimension(ntype)

read in ___ resistance
Used by: | :get_dep_vel | :rdland |

irgso : integer, dimension(ntype)

read in ___ resistance
Used by: | :get_dep_vel | :rdland |

ircls : integer, dimension(ntype)

read in ___ resistance
Used by: | :get_dep_vel | :rdland |

irclo : integer, dimension(ntype)

read in ___ resistance
Used by: | :get_dep_vel | :rdland |

ivsmax : integer, dimension(ntype)

maximum deposition velocity for aerosol from file
Used by: | :get_dep_vel | :rdland |

xylai : real*8, allocatable, dimension(:, :, :)

Leaf Area Index of land type element LDT
Used by: | :alloc_trdrydep | :get_dep_vel | :isoprene_emission | :rdlai |

xlai : real*8, allocatable, dimension(:, :, :)

leaf area index variable
Used by: | :alloc_trdrydep | :rdlai | :readlai |

xlai2 : real*8, allocatable, dimension(:, :, :)

leaf area index variable
Used by: | :alloc_trdrydep | :rdlai | :readlai |

drycoeff : real*8, dimension(npoly)

polynomial fittings coeffcients
Used by: | :get_dep_vel | :rddrycf |

cz :

Altitude (m) at which deposition velocity would be computed

iland : integer, allocatable, dimension(:, :, :)

Land type ID for element LDT=1,IREG(I,J)
Used by: | :alloc_trdrydep | :rdland |

iuse : integer, allocatable, dimension(:, :, :)

per mil fraction of grid area with by land type element LDT
Used by: | :alloc_trdrydep | :rdland |

frclnd : real*8, allocatable, dimension(:, :)

land fraction
Used by: | :alloc_trdrydep | :rdland |

ireg_loc : real*8, allocatable, dimension(:, :)

Used by: | :alloc_trdrydep | :rdland |