calculate_water_content Subroutine

private pure elemental subroutine calculate_water_content(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_water_content~~CallsGraph proc~calculate_water_content type_properties_manager%calculate_water_content calc calc proc~calculate_water_content->calc

Called by

proc~~calculate_water_content~~CalledByGraph proc~calculate_water_content type_properties_manager%calculate_water_content none~calc_water_content type_properties_manager%calc_water_content none~calc_water_content->proc~calculate_water_content proc~calculate_water_content_array type_properties_manager%calculate_water_content_array none~calc_water_content->proc~calculate_water_content_array proc~calc_thermal_properties_impl_scalar type_properties_manager%calc_thermal_properties_impl_scalar proc~calc_thermal_properties_impl_scalar->proc~calculate_water_content proc~calculate_thc_impl_scalar type_properties_manager%calculate_thc_impl_scalar proc~calculate_thc_impl_scalar->proc~calculate_water_content proc~calculate_vhc_impl_scalar type_properties_manager%calculate_vhc_impl_scalar proc~calculate_vhc_impl_scalar->proc~calculate_water_content proc~calculate_water_content_array->proc~calculate_water_content proc~calc_thermal_properties_impl_array type_properties_manager%calc_thermal_properties_impl_array proc~calc_thermal_properties_impl_array->none~calc_water_content proc~calc_thermal_properties_impl_array->proc~calculate_thc_impl_scalar 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_hcf_impl_array type_properties_manager%calculate_hcf_impl_array proc~calculate_hcf_impl_array->none~calc_water_content proc~calculate_hcf_impl_scalar type_properties_manager%calculate_hcf_impl_scalar proc~calculate_hcf_impl_array->proc~calculate_hcf_impl_scalar proc~calculate_hcf_impl_scalar->none~calc_water_content proc~calculate_qw_array type_properties_manager%calculate_qw_array proc~calculate_qw_array->none~calc_water_content proc~calculate_qw_scalar type_properties_manager%calculate_qw_scalar proc~calculate_qw_scalar->none~calc_water_content proc~calculate_thc_impl_array type_properties_manager%calculate_thc_impl_array proc~calculate_thc_impl_array->none~calc_water_content proc~calculate_thc_impl_array->proc~calculate_thc_impl_scalar proc~calculate_thc_scalar type_properties_manager%calculate_thc_scalar proc~calculate_thc_scalar->proc~calculate_thc_impl_scalar proc~calculate_vhc_impl_array type_properties_manager%calculate_vhc_impl_array proc~calculate_vhc_impl_array->none~calc_water_content 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_qw type_properties_manager%calc_qw none~calc_qw->proc~calculate_qw_array none~calc_qw->proc~calculate_qw_scalar none~calc_thc type_properties_manager%calc_thc none~calc_thc->proc~calculate_thc_scalar proc~calculate_thc_array type_properties_manager%calculate_thc_array none~calc_thc->proc~calculate_thc_array 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_hcf_array type_properties_manager%calculate_hcf_array proc~calculate_hcf_array->proc~calculate_hcf_impl_array proc~calculate_hcf_scalar type_properties_manager%calculate_hcf_scalar proc~calculate_hcf_scalar->proc~calculate_hcf_impl_scalar proc~calculate_thc_array->proc~calculate_thc_impl_array proc~calculate_vhc_array->proc~calculate_vhc_impl_array proc~get_observations_si get_observations_si proc~get_observations_si->none~calc_qw proc~get_observations_thc get_observations_thc proc~get_observations_thc->none~calc_qw proc~get_observations_thc->none~calc_thc proc~get_observations_vhc get_observations_vhc proc~get_observations_vhc->none~calc_qw proc~get_observations_vhc->none~calc_vhc proc~interpolate_observations_si interpolate_observations_si proc~interpolate_observations_si->none~calc_qw proc~interpolate_observations_thc interpolate_observations_thc proc~interpolate_observations_thc->none~calc_qw proc~interpolate_observations_thc->none~calc_thc proc~interpolate_observations_vhc interpolate_observations_vhc proc~interpolate_observations_vhc->none~calc_qw proc~interpolate_observations_vhc->none~calc_vhc proc~update_type_thermal_crs update_type_thermal_crs proc~update_type_thermal_crs->none~calc_qw interface~update_type_thermal_crs type_thermal_crs%update_type_thermal_crs interface~update_type_thermal_crs->proc~update_type_thermal_crs

Source Code

    pure elemental subroutine calculate_water_content(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%water_content = ptrs%wrf%calc(-ptrs%gcc%calc(state))
    end subroutine calculate_water_content