module cloud_diagnostics 2
!---------------------------------------------------------------------------------
! Purpose:
!
! Put cloud physical specifications on the history tape
! Modified from code that computed cloud optics
! This is a stub so that new radiation package can work
!
! Author: Byron Boville Sept 06, 2002
! Modified Oct 15, 2008
!
!
!---------------------------------------------------------------------------------
implicit none
private
save
public :: cloud_diagnostics_init, put_cloud_diagnostics
contains
subroutine cloud_diagnostics_init() 1
return
end subroutine cloud_diagnostics_init
subroutine put_cloud_diagnostics(state, pbuf) 1,2
use physics_types
, only: physics_state
use phys_buffer
, only: pbuf_size_max, pbuf_fld
type(physics_state), intent(in) :: state ! state variables
type(pbuf_fld), intent(in), dimension(pbuf_size_max) :: pbuf
return
end subroutine put_cloud_diagnostics
end module cloud_diagnostics