evaluate_surface_closure Subroutine

public subroutine evaluate_surface_closure(app, contract)

モデル固有の診断値をシミュレータへ漏らさず、境界契約だけを返す。

Arguments

Type IntentOptional Attributes Name
type(app_config), intent(in) :: app
type(surface_closure_contract_type), intent(out) :: contract

Calls

proc~~evaluate_surface_closure~~CallsGraph proc~evaluate_surface_closure evaluate_surface_closure proc~evaluate_surface_current_model evaluate_surface_current_model proc~evaluate_surface_closure->proc~evaluate_surface_current_model proc~build_zhao_params build_zhao_params proc~evaluate_surface_current_model->proc~build_zhao_params proc~lower_ascii lower_ascii proc~evaluate_surface_current_model->proc~lower_ascii proc~species_number_density_m3~2 species_number_density_m3 proc~evaluate_surface_current_model->proc~species_number_density_m3~2 proc~species_temperature_k~2 species_temperature_k proc~evaluate_surface_current_model->proc~species_temperature_k~2 proc~swe_free_current_term swe_free_current_term proc~evaluate_surface_current_model->proc~swe_free_current_term proc~try_solve_zhao_unknowns try_solve_zhao_unknowns proc~evaluate_surface_current_model->proc~try_solve_zhao_unknowns proc~try_solve_zhao_branch_a try_solve_zhao_branch_a proc~try_solve_zhao_unknowns->proc~try_solve_zhao_branch_a proc~try_solve_zhao_branch_b try_solve_zhao_branch_b proc~try_solve_zhao_unknowns->proc~try_solve_zhao_branch_b proc~try_solve_zhao_branch_c try_solve_zhao_branch_c proc~try_solve_zhao_unknowns->proc~try_solve_zhao_branch_c proc~solve_nonlinear_system solve_nonlinear_system proc~try_solve_zhao_branch_a->proc~solve_nonlinear_system proc~try_solve_zhao_branch_b->proc~solve_nonlinear_system proc~try_solve_zhao_monotonic_scalar try_solve_zhao_monotonic_scalar proc~try_solve_zhao_branch_b->proc~try_solve_zhao_monotonic_scalar proc~try_solve_zhao_branch_c->proc~solve_nonlinear_system proc~try_solve_zhao_branch_c->proc~try_solve_zhao_monotonic_scalar proc~try_newton_solve try_newton_solve proc~solve_nonlinear_system->proc~try_newton_solve proc~evaluate_monotonic_stationary_phi evaluate_monotonic_stationary_phi proc~try_solve_zhao_monotonic_scalar->proc~evaluate_monotonic_stationary_phi proc~residual_norm residual_norm proc~try_solve_zhao_monotonic_scalar->proc~residual_norm proc~zhao_residuals_type_b zhao_residuals_type_b proc~try_solve_zhao_monotonic_scalar->proc~zhao_residuals_type_b proc~zhao_residuals_type_c zhao_residuals_type_c proc~try_solve_zhao_monotonic_scalar->proc~zhao_residuals_type_c proc~evaluate_monotonic_stationary_phi->proc~swe_free_current_term proc~evaluate_monotonic_stationary_phi->proc~zhao_residuals_type_b proc~evaluate_monotonic_stationary_phi->proc~zhao_residuals_type_c proc~try_newton_solve->proc~residual_norm proc~numerical_jacobian numerical_jacobian proc~try_newton_solve->proc~numerical_jacobian proc~solve_small_linear_system solve_small_linear_system proc~try_newton_solve->proc~solve_small_linear_system proc~zhao_residuals_type_b->proc~swe_free_current_term proc~zhao_residuals_type_c->proc~swe_free_current_term

Source Code

  subroutine evaluate_surface_closure(app, contract)
    type(app_config), intent(in) :: app
    type(surface_closure_contract_type), intent(out) :: contract
    type(surface_current_model_result_type) :: detailed_result

    call evaluate_surface_current_model(app, detailed_result)
    contract = detailed_result%surface_closure_contract_type
  end subroutine evaluate_surface_closure