character(len=128) function mo_heating_rates::compute_heating_rate_general |
( |
real(wp), dimension(:,:), intent(in) | flux_up, |
|
|
real(wp), dimension(:,:), intent(in) | flux_dn, |
|
|
real(wp), dimension(:,:), intent(in) | p_lev, |
|
|
real(wp), dimension(:,:), intent(out) | heating_rate ) |
|
private |