evaluate_implicit Subroutine

private subroutine evaluate_implicit(qtC, psa)

Uses

  • proc~~evaluate_implicit~~UsesGraph proc~evaluate_implicit evaluate_implicit mod_physics mod_physics proc~evaluate_implicit->mod_physics module~mod_global_parameters mod_global_parameters proc~evaluate_implicit->module~mod_global_parameters module~mod_basic_types mod_basic_types module~mod_global_parameters->module~mod_basic_types module~mod_connectivity mod_connectivity module~mod_global_parameters->module~mod_connectivity module~mod_constants mod_constants module~mod_global_parameters->module~mod_constants module~mod_physicaldata mod_physicaldata module~mod_global_parameters->module~mod_physicaldata module~mod_variables mod_variables module~mod_global_parameters->module~mod_variables mpi mpi module~mod_global_parameters->mpi module~mod_variables->module~mod_basic_types

Evaluate Implicit part in place, i.e. psa==>F_im(psa)

Arguments

Type IntentOptional Attributes Name
double precision, intent(in) :: qtC

psa at this time level
type(state), target :: psa(max_blocks)

Compute implicit part from this state and update it

Calls

proc~~evaluate_implicit~~CallsGraph proc~evaluate_implicit evaluate_implicit phys_evaluate_implicit phys_evaluate_implicit proc~evaluate_implicit->phys_evaluate_implicit

Source Code

  subroutine evaluate_implicit(qtC,psa)
    use mod_global_parameters
    use mod_physics, only: phys_evaluate_implicit

    type(state), target :: psa(max_blocks)
    !< Compute implicit part from this state and update it
    double precision, intent(in) :: qtC
    !< psa at this time level

    if (associated(phys_evaluate_implicit)) then
       call phys_evaluate_implicit(qtC,psa)
    end if

  end subroutine evaluate_implicit