phys_check Subroutine

public subroutine phys_check()

Uses

  • proc~~phys_check~2~~UsesGraph proc~phys_check~2 phys_check module~mod_comm_lib mod_comm_lib proc~phys_check~2->module~mod_comm_lib

Arguments

None

Calls

proc~~phys_check~2~~CallsGraph proc~phys_check~2 phys_check proc~mpistop mpistop proc~phys_check~2->proc~mpistop mpi_abort mpi_abort proc~mpistop->mpi_abort

Source Code

  subroutine phys_check()

    use mod_comm_lib, only: mpistop

    if (physics_type == "") call mpistop("Error: no physics module loaded")

    ! Checks whether the required physics methods have been defined
    if (.not. associated(phys_check_params)) phys_check_params => &
       dummy_check_params
    
    if (.not. associated(phys_boundary_adjust)) phys_boundary_adjust => &
       dummy_boundary_adjust

    if (.not. associated(phys_evaluate_implicit)) phys_evaluate_implicit => &
       dummy_evaluate_implicit

    if (.not. associated(phys_implicit_update)) phys_implicit_update => &
       dummy_implicit_update

    if (.not. associated(phys_face_to_center)) phys_face_to_center => &
       dummy_face_to_center

    if (.not. associated(phys_write_info)) phys_write_info => dummy_write_info

  end subroutine phys_check