module cloud_rad_props 1,4
! a shell for cloud radiative properties. Implement on rrtmg side but not for cam radiative transfer
use ppgrid
, only: pcols, pver, pverp
use physics_types
, only: physics_state
use phys_buffer
, only: pbuf_size_max, pbuf_fld, pbuf_get_fld_idx, pbuf_old_tim_idx
use radconstants
, only: nswbands, nlwbands
implicit none
private
save
public :: &
cloud_rad_props_init !, &
! cloud_rad_props_get_sw, & ! return SW optical props of total bulk aerosols
! cloud_rad_props_get_lw ! return LW optical props of total bulk aerosols
!==============================================================================
contains
!==============================================================================
subroutine cloud_rad_props_init() 1
return
end subroutine cloud_rad_props_init
!==============================================================================
!subroutine cloud_rad_props_get_sw(state, pbuf, &
!! tau, tau_w, tau_w_g, tau_w_f,&
! diagnosticindex, oldliq, oldice)
! ! Arguments
! type(physics_state), intent(in) :: state
! type(pbuf_fld), intent(in) :: pbuf(pbuf_size_max)
! integer, optional, intent(in) :: diagnosticindex ! index (if present) to radiation diagnostic information
!
! real(r8), intent(out) :: tau (nswbands,pcols,pver) ! aerosol extinction optical depth
! real(r8), intent(out) :: tau_w (nswbands,pcols,pver) ! aerosol single scattering albedo * tau
! real(r8), intent(out) :: tau_w_g(nswbands,pcols,pver) ! aerosol assymetry parameter * tau * w
! real(r8), intent(out) :: tau_w_f(nswbands,pcols,pver) ! aerosol forward scattered fraction * tau * w
!
! logical, optional, intent(in) :: oldliq,oldice
!
!
! return
!end subroutine cloud_rad_props_get_sw
!!==============================================================================
!
!subroutine cloud_rad_props_get_lw(state, pbuf, cld_abs_od, diagnosticindex, oldliq, oldice, oldcloud)
! ! Arguments
! type(physics_state), intent(in) :: state
! type(pbuf_fld), intent(in) :: pbuf(pbuf_size_max)
! real(r8), intent(out) :: cld_abs_od(nlwbands,pcols,pver) ! [fraction] absorption optical depth, per layer
! integer, optional, intent(in) :: diagnosticindex
! logical, optional, intent(in) :: oldliq ! use old liquid optics
! logical, optional, intent(in) :: oldice ! use old ice optics
! logical, optional, intent(in) :: oldcloud ! use old optics for both (b4b)
!
!
! return
!end subroutine cloud_rad_props_get_lw
!
end module cloud_rad_props