Go to the source code of this file.
|
| module | ufo_aod_mod |
| | Fortran module to handle aod observations.
|
| |
|
| integer, parameter | ufo_aod_mod::max_string =800 |
| |
| logical, parameter | ufo_aod_mod::ice4qsat =.TRUE. |
| |
| real(fp), parameter | ufo_aod_mod::ttp = 2.7316e+2_fp |
| |
| real(fp), parameter | ufo_aod_mod::psat = 6.1078e+2_fp |
| |
| real(fp), parameter | ufo_aod_mod::rd = 2.8705e+2_fp |
| |
| real(fp), parameter | ufo_aod_mod::rv = 4.6150e+2_fp |
| |
| real(fp), parameter | ufo_aod_mod::cv = 7.1760e+2_fp |
| |
| real(fp), parameter | ufo_aod_mod::cliq = 4.1855e+3_fp |
| |
| real(fp), parameter | ufo_aod_mod::csol = 2.1060e+3_fp |
| |
| real(fp), parameter | ufo_aod_mod::cvap = 1.8460e+3_fp |
| |
| real(fp), parameter | ufo_aod_mod::hvap = 2.5000e+6_fp |
| |
| real(fp), parameter | ufo_aod_mod::hfus = 3.3358e+5_fp |
| |
| real(fp), parameter | ufo_aod_mod::grav = 9.81_fp |
| |
| real(fp), parameter | ufo_aod_mod::tmix = ttp-20._fp |
| |
| real(fp), parameter | ufo_aod_mod::hsub = hvap+hfus |
| |
| real(fp), parameter | ufo_aod_mod::eps = rd/rv |
| |
| real(fp), parameter | ufo_aod_mod::omeps =one-eps |
| |
| real(fp), parameter | ufo_aod_mod::dldt =cvap-cliq |
| |
| real(fp), parameter | ufo_aod_mod::dldti = cvap-csol |
| |
| real(fp), parameter | ufo_aod_mod::xa = -(dldt/rv) |
| |
| real(fp), parameter | ufo_aod_mod::xai = -(dldti/rv) |
| |
| real(fp), parameter | ufo_aod_mod::xb = xa+hvap/(rv*ttp) |
| |
| real(fp), parameter | ufo_aod_mod::xbi = xai+hsub/(rv*ttp) |
| |
| logical | ufo_aod_mod::flip_vertical |
| |
◆ genqsat()
| subroutine ufo_aod_simobs::genqsat |
( |
real(fp), dimension(nsig), intent(out) |
qsat, |
|
|
real(fp), dimension(nsig), intent(in) |
tsen, |
|
|
real(fp), dimension(nsig), intent(in) |
prsl, |
|
|
integer, intent(in) |
nsig, |
|
|
logical, intent(in) |
ice |
|
) |
| |
◆ gocart_aerosol_size()
| real(fp) function ufo_aod_simobs::gocart_aerosol_size |
( |
integer, intent(in) |
itype, |
|
|
real(fp), intent(in) |
eh |
|
) |
| |
◆ load_aerosol_data()
| subroutine ufo_aod_simobs::load_aerosol_data |
( |
| ) |
|
|
private |
◆ load_atm_data()
| subroutine ufo_aod_simobs::load_atm_data |
( |
| ) |
|
|
private |