Index | Rundeck: P1SoM40 | Created: Mon May 20 03:30:14 EDT 2024 |
inter_k | Module: | File: inter_k.F90 |
Author :
Version:
Declaration:
subroutine inter_k(n_profile, n_layer, n_band_absorb &
- realk : used from realtype_rd
- ip_cont_h2o : used from rad_pcf
- ip_cont_o2n2_2 : used from rad_pcf
- lhook : used from yomhook
- dr_hook : used from yomhook
- jprb : used from parkind1
- jpim : used from parkind1
- oneminus :
real(realk), parameter
- Initial Value
= .999999_RealK
- zhook_in :
integer(kind=jpim), parameter
- Initial Value
= 0
- zhook_out :
integer(kind=jpim), parameter
- Initial Value
= 1
- zhook_handle :
real(kind=jprb)
- routinename :
character(len=*), parameter
- Initial Value
= 'INTER_K'