HumanIndexMod Module


Uses


Variables

Type Visibility Attributes Name Initial
character(len=*), public, parameter :: calc_human_stress_indices_all = 'ALL'
character(len=*), public, parameter :: calc_human_stress_indices_fast = 'FAST'
character(len=*), public, parameter :: calc_human_stress_indices_none = 'NONE'
character(len=16), public :: calc_human_stress_indices = calc_human_stress_indices_fast
logical, public :: all_human_stress_indices = .false.
logical, public :: fast_human_stress_indices = .true.

Derived Types

type, public ::  humanindex_type

Components

Type Visibility Attributes Name Initial
real(kind=r8), public, pointer :: tc_ref2m_patch(:)
real(kind=r8), public, pointer :: vap_ref2m_patch(:)
real(kind=r8), public, pointer :: appar_temp_ref2m_patch(:)
real(kind=r8), public, pointer :: appar_temp_ref2m_r_patch(:)
real(kind=r8), public, pointer :: swbgt_ref2m_patch(:)
real(kind=r8), public, pointer :: swbgt_ref2m_r_patch(:)
real(kind=r8), public, pointer :: humidex_ref2m_patch(:)
real(kind=r8), public, pointer :: humidex_ref2m_r_patch(:)
real(kind=r8), public, pointer :: wbt_ref2m_patch(:)
real(kind=r8), public, pointer :: wbt_ref2m_r_patch(:)
real(kind=r8), public, pointer :: wb_ref2m_patch(:)
real(kind=r8), public, pointer :: wb_ref2m_r_patch(:)
real(kind=r8), public, pointer :: teq_ref2m_patch(:)
real(kind=r8), public, pointer :: teq_ref2m_r_patch(:)
real(kind=r8), public, pointer :: ept_ref2m_patch(:)
real(kind=r8), public, pointer :: ept_ref2m_r_patch(:)
real(kind=r8), public, pointer :: discomf_index_ref2m_patch(:)
real(kind=r8), public, pointer :: discomf_index_ref2m_r_patch(:)
real(kind=r8), public, pointer :: discomf_index_ref2mS_patch(:)
real(kind=r8), public, pointer :: discomf_index_ref2mS_r_patch(:)
real(kind=r8), public, pointer :: nws_hi_ref2m_patch(:)
real(kind=r8), public, pointer :: nws_hi_ref2m_r_patch(:)
real(kind=r8), public, pointer :: thip_ref2m_patch(:)
real(kind=r8), public, pointer :: thip_ref2m_r_patch(:)
real(kind=r8), public, pointer :: thic_ref2m_patch(:)
real(kind=r8), public, pointer :: thic_ref2m_r_patch(:)
real(kind=r8), public, pointer :: swmp65_ref2m_patch(:)
real(kind=r8), public, pointer :: swmp65_ref2m_r_patch(:)
real(kind=r8), public, pointer :: swmp80_ref2m_patch(:)
real(kind=r8), public, pointer :: swmp80_ref2m_r_patch(:)
real(kind=r8), public, pointer :: appar_temp_ref2m_u_patch(:)
real(kind=r8), public, pointer :: swbgt_ref2m_u_patch(:)
real(kind=r8), public, pointer :: humidex_ref2m_u_patch(:)
real(kind=r8), public, pointer :: wbt_ref2m_u_patch(:)
real(kind=r8), public, pointer :: wb_ref2m_u_patch(:)
real(kind=r8), public, pointer :: teq_ref2m_u_patch(:)
real(kind=r8), public, pointer :: ept_ref2m_u_patch(:)
real(kind=r8), public, pointer :: discomf_index_ref2m_u_patch(:)
real(kind=r8), public, pointer :: discomf_index_ref2mS_u_patch(:)
real(kind=r8), public, pointer :: nws_hi_ref2m_u_patch(:)
real(kind=r8), public, pointer :: thip_ref2m_u_patch(:)
real(kind=r8), public, pointer :: thic_ref2m_u_patch(:)
real(kind=r8), public, pointer :: swmp65_ref2m_u_patch(:)
real(kind=r8), public, pointer :: swmp80_ref2m_u_patch(:)

Type-Bound Procedures

procedure, public :: Init

Subroutines

public subroutine HumanIndexReadNML(NLFilename)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: NLFilename

public subroutine AppTemp(Tc_1, vap_pres, u10_m, app_temp)

Arguments

Type IntentOptional Attributes Name
real(kind=r8), intent(in) :: Tc_1
real(kind=r8), intent(in) :: vap_pres
real(kind=r8), intent(in) :: u10_m
real(kind=r8), intent(out) :: app_temp

public subroutine swbgt(Tc_2, vap_pres, s_wbgt)

Arguments

Type IntentOptional Attributes Name
real(kind=r8), intent(in) :: Tc_2
real(kind=r8), intent(in) :: vap_pres
real(kind=r8), intent(out) :: s_wbgt

public subroutine hmdex(Tc_3, vap_pres, humidex)

Arguments

Type IntentOptional Attributes Name
real(kind=r8), intent(in) :: Tc_3
real(kind=r8), intent(in) :: vap_pres
real(kind=r8), intent(out) :: humidex

public subroutine dis_coi(Tc_4, wb_t, discoi)

Arguments

Type IntentOptional Attributes Name
real(kind=r8), intent(in) :: Tc_4
real(kind=r8), intent(in) :: wb_t
real(kind=r8), intent(out) :: discoi

public subroutine dis_coiS(Tc_5, relhum, wbt_s, discois)

Arguments

Type IntentOptional Attributes Name
real(kind=r8), intent(in) :: Tc_5
real(kind=r8), intent(in) :: relhum
real(kind=r8), intent(in) :: wbt_s
real(kind=r8), intent(out) :: discois

public subroutine Wet_Bulb(Tin_1, vape, pin, relhum, qin, Teq, epott, wb_it)

Arguments

Type IntentOptional Attributes Name
real(kind=r8), intent(in) :: Tin_1
real(kind=r8), intent(in) :: vape
real(kind=r8), intent(in) :: pin
real(kind=r8), intent(in) :: relhum
real(kind=r8), intent(in) :: qin
real(kind=r8), intent(out) :: Teq
real(kind=r8), intent(out) :: epott
real(kind=r8), intent(out) :: wb_it

public subroutine Wet_BulbS(Tc_6, rh, wbt)

Arguments

Type IntentOptional Attributes Name
real(kind=r8), intent(in) :: Tc_6
real(kind=r8), intent(in) :: rh
real(kind=r8), intent(out) :: wbt

public subroutine HeatIndex(Tc_7, rh, hi)

Arguments

Type IntentOptional Attributes Name
real(kind=r8), intent(in) :: Tc_7
real(kind=r8), intent(in) :: rh
real(kind=r8), intent(out) :: hi

public subroutine THIndex(Tc_8, wb_t, thic, thip)

Arguments

Type IntentOptional Attributes Name
real(kind=r8), intent(in) :: Tc_8
real(kind=r8), intent(in) :: wb_t
real(kind=r8), intent(out) :: thic
real(kind=r8), intent(out) :: thip

public subroutine SwampCoolEff(Tc_9, wb_t, tswmp80, tswmp65)

Arguments

Type IntentOptional Attributes Name
real(kind=r8), intent(in) :: Tc_9
real(kind=r8), intent(in) :: wb_t
real(kind=r8), intent(out) :: tswmp80
real(kind=r8), intent(out) :: tswmp65

public subroutine KtoC(T_k, T_c)

Arguments

Type IntentOptional Attributes Name
real(kind=r8), intent(in) :: T_k
real(kind=r8), intent(out) :: T_c

public subroutine VaporPres(rh, e, erh)

Arguments

Type IntentOptional Attributes Name
real(kind=r8), intent(in) :: rh
real(kind=r8), intent(in) :: e
real(kind=r8), intent(out) :: erh

public subroutine QSat_2(T_k, p_t, es_mb, de_mbdT, dlnes_mbdT, rs, rsdT, foftk, fdT)

Arguments

Type IntentOptional Attributes Name
real(kind=r8), intent(in) :: T_k
real(kind=r8), intent(in) :: p_t
real(kind=r8), intent(out) :: es_mb
real(kind=r8), intent(out) :: de_mbdT
real(kind=r8), intent(out) :: dlnes_mbdT
real(kind=r8), intent(out) :: rs
real(kind=r8), intent(out) :: rsdT
real(kind=r8), intent(out) :: foftk
real(kind=r8), intent(out) :: fdT