Index

Rundeck: E6TomaF40

Created: Sat May 18 03:30:40 EDT 2024

grains

Module:

File: TRACERS_AEROSOLS_Koch_e4.f

Summary: Estimates snow grain size (microns) based on air temperature and snow age. From Susan Marshall's PhD thesis
Author : Dorothy Koch
Version:

---

Declaration:

subroutine grains(i, j, rads)

Variables:

pi : used from constant

gasc : used from constant

tf : used from constant

atmsrf : used from fluxes

days_per_year : used from timeconstants_mod

snoage : used from rad_com

snosiz : used from aerosol_sources

e : real*8

a : real*8

age : real*8

r0 : real*8

radmm : real*8

ert : real*8

tfac : real*8

area : real*8

delrad : real*8

i : integer, intent(in)

j : integer, intent(in)

rads : real*8, intent(out)