| Index | Rundeck: P1SoM40 | Created: Mon May 20 03:30:14 EDT 2024 |
solve_band_k_eqv_scl | Module: | File: solve_band_k_eqv_scl.F90 |
Author :
Version:
Declaration:
subroutine solve_band_k_eqv_scl(ierr &- realk : used from realtype_rd
- strctrl : used from def_control
- strdim : used from def_dimen
- strcld : used from def_cld
- strbound : used from def_bound
- diffusivity_factor_minor : used from rad_ccf
- exp_v : used from vectlib_mod
- lhook : used from yomhook
- dr_hook : used from yomhook
- jprb : used from parkind1
- jpim : used from parkind1
- control :
type(strctrl), intent(in)
- dimen :
type(strdim), intent(in)
- cld :
type(strcld), intent(in)
- bound :
type(strbound), intent(in)
- ss_prop :
type(str_ss_prop), intent(inout)
- temp :
real(realk), dimension(nd_profile)
- temp_exp :
real(realk), dimension(nd_profile)
- temp_max :
real(realk)
- Initial Value
= LOG(1.0_RealK/EPSILON(temp_max))
- 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
= 'SOLVE_BAND_K_EQV_SCL'