calculate_dQw_dT Subroutine

private pure elemental subroutine calculate_dQw_dT(ptrs, state)

Type Bound

type_properties_manager

Arguments

Type IntentOptional Attributes Name
type(type_material_pointers), intent(in) :: ptrs
type(type_state), intent(inout) :: state

Calls

proc~~calculate_dqw_dt~~CallsGraph proc~calculate_dqw_dt type_properties_manager%calculate_dQw_dT calc calc proc~calculate_dqw_dt->calc deriv deriv proc~calculate_dqw_dt->deriv

Called by

proc~~calculate_dqw_dt~~CalledByGraph proc~calculate_dqw_dt type_properties_manager%calculate_dQw_dT none~calc_dqw_dt type_properties_manager%calc_dQw_dT none~calc_dqw_dt->proc~calculate_dqw_dt proc~calculate_dqw_dt_array type_properties_manager%calculate_dQw_dT_array none~calc_dqw_dt->proc~calculate_dqw_dt_array proc~calc_thermal_properties_impl_scalar type_properties_manager%calc_thermal_properties_impl_scalar proc~calc_thermal_properties_impl_scalar->proc~calculate_dqw_dt proc~calculate_dqw_dt_array->proc~calculate_dqw_dt proc~calculate_vhc_impl_scalar type_properties_manager%calculate_vhc_impl_scalar proc~calculate_vhc_impl_scalar->proc~calculate_dqw_dt proc~calc_thermal_properties_impl_array type_properties_manager%calc_thermal_properties_impl_array proc~calc_thermal_properties_impl_array->none~calc_dqw_dt proc~calc_thermal_properties_impl_array->proc~calculate_vhc_impl_scalar proc~calc_thermal_properties_scalar type_properties_manager%calc_thermal_properties_scalar proc~calc_thermal_properties_scalar->proc~calc_thermal_properties_impl_scalar proc~calculate_vhc_impl_array type_properties_manager%calculate_vhc_impl_array proc~calculate_vhc_impl_array->none~calc_dqw_dt proc~calculate_vhc_impl_array->proc~calculate_vhc_impl_scalar proc~calculate_vhc_scalar type_properties_manager%calculate_vhc_scalar proc~calculate_vhc_scalar->proc~calculate_vhc_impl_scalar none~calc_vhc type_properties_manager%calc_vhc none~calc_vhc->proc~calculate_vhc_scalar proc~calculate_vhc_array type_properties_manager%calculate_vhc_array none~calc_vhc->proc~calculate_vhc_array proc~calc_thermal_properties_array type_properties_manager%calc_thermal_properties_array proc~calc_thermal_properties_array->proc~calc_thermal_properties_impl_array proc~calculate_vhc_array->proc~calculate_vhc_impl_array proc~get_observations_vhc get_observations_vhc proc~get_observations_vhc->none~calc_vhc proc~interpolate_observations_vhc interpolate_observations_vhc proc~interpolate_observations_vhc->none~calc_vhc

Source Code

    pure elemental subroutine calculate_dQw_dT(ptrs, state)
        implicit none
        type(type_material_pointers), intent(in) :: ptrs
        type(type_state), intent(inout) :: state

        state%density_water = ptrs%den%material2
        state%density_ice = ptrs%den%material3
        state%dQw_dT = ptrs%wrf%deriv(-ptrs%gcc%calc(state)) * ptrs%gcc%deriv(state)

    end subroutine calculate_dQw_dT