Index | Rundeck: P1SoM40 | Created: Mon May 20 03:30:14 EDT 2024 |
scale_absorb | Module: | File: scale_absorb.F90 |
Author :
Version:
Declaration:
subroutine scale_absorb(ierr, n_profile, n_layer &
- realk : used from realtype_rd
- rtor_v : used from vectlib_mod
- plg : used from scale_wenyi
- ttb : used from scale_wenyi
- tto : used from scale_wenyi
- gk250b : used from scale_wenyi
- gk4 : used from scale_wenyi
- gk6 : used from scale_wenyi
- lhook : used from yomhook
- dr_hook : used from yomhook
- jprb : used from parkind1
- jpim : used from parkind1
- ereport : used from ereport_mod
- errormessagelength : used from errormessagelength_mod
- cgp :
real(realk)
- gkpb :
real(realk)
- gkpc :
real(realk)
- pwk_in :
real(realk), dimension(n_profile, n_layer-i_top+1)
- pwk :
real(realk), dimension(n_profile, n_layer-i_top+1)
- twk_in :
real(realk), dimension(n_profile, n_layer-i_top+1)
- twk :
real(realk), dimension(n_profile, n_layer-i_top+1)
- sp1 :
real(realk), dimension(n_profile, n_layer-i_top+1)
- sp2 :
real(realk), dimension(n_profile, n_layer-i_top+1)
- n_input :
integer
- tmp :
real(realk)
- t_inv :
real(realk)
- p_ref_off_inv :
real(realk)
- zhook_in :
integer(kind=jpim), parameter
- Initial Value
= 0
- zhook_out :
integer(kind=jpim), parameter
- Initial Value
= 1
- zhook_handle :
real(kind=jprb)
- cmessage :
character(len=errormessagelength)
- routinename :
character(len=*), parameter
- Initial Value
= 'SCALE_ABSORB'