Index | Rundeck: P1SoM40 | Created: Mon May 20 03:30:14 EDT 2024 |
mcica_sample | Module: | File: mcica_sample.F90 |
Author :
Version:
Declaration:
subroutine mcica_sample(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
- ip_solar : used from rad_pcf
- ip_cloud_homogen : used from rad_pcf
- ip_cloud_ice_water : used from rad_pcf
- 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)
- i :
integer
- j :
integer
- l :
integer
- ll :
integer
- ls :
integer
- k :
integer
- m :
integer
- index_subcol :
integer
- eps :
real(realk), parameter
- Initial Value
= EPSILON(ss_prop%k_ext_scat)
- 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
= 'MCICA_SAMPLE'