diffusion_diffusion_routines.f90

Go to the documentation of this file.

MODULE diffusion_diffusion_routines

  USE base_routines
  USE basis_routines
  USE boundary_conditions_routines
  USE constants
  USE control_loop_routines
  USE coordinate_routines  
  USE diffusion_equation_routines
  USE distributed_matrix_vector
  USE domain_mappings
  USE equations_routines
  USE equations_mapping_routines
  USE equations_matrices_routines
  USE equations_set_constants
  USE field_routines
!  USE FINITE_ELASTICITY_ROUTINES
  USE fluid_mechanics_io_routines
!   USE FITTING_ROUTINES !also in makefiles
  USE input_output
  USE iso_varying_string
  USE kinds
  USE maths  
  USE matrix_vector
  USE mesh_routines
  USE node_routines
  USE problem_constants
  USE strings
  USE solver_routines
  USE timer
  USE types

#include "macros.h"


  IMPLICIT NONE

  PUBLIC diffusion_diffusion_equations_set_setup
  PUBLIC diffusiondiffusion_equationssetspecificationset
  PUBLIC diffusiondiffusion_equationssetsolutionmethodset

  PUBLIC diffusion_diffusion_problem_setup
  PUBLIC diffusiondiffusion_problemspecificationset
  
  PUBLIC diffusiondiffusion_finiteelementcalculate

  PUBLIC diffusion_diffusion_pre_solve
  PUBLIC diffusion_diffusion_post_solve

  
CONTAINS

  !
  !================================================================================================================================
  !

  SUBROUTINE diffusiondiffusion_equationssetsolutionmethodset(EQUATIONS_SET,SOLUTION_METHOD,ERR,ERROR,*)

    !Argument variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    INTEGER(INTG), INTENT(IN) :: SOLUTION_METHOD
    INTEGER(INTG), INTENT(OUT) :: ERR
    TYPE(varying_string), INTENT(OUT) :: ERROR
    !Local Variables
    TYPE(varying_string) :: LOCAL_ERROR
    
    enters("DiffusionDiffusion_EquationsSetSolutionMethodSet",err,error,*999)
    
    IF(ASSOCIATED(equations_set)) THEN
      IF(.NOT.ALLOCATED(equations_set%SPECIFICATION)) THEN
        CALL flagerror("Equations set specification is not allocated.",err,error,*999)
      ELSE IF(SIZE(equations_set%SPECIFICATION,1)/=3) THEN
        CALL flagerror("Equations set specification must have three entries for a "// &
          & "diffusion-diffusion type equations set.",err,error,*999)
      END IF
      SELECT CASE(equations_set%SPECIFICATION(3))
      CASE(equations_set_coupled_source_diffusion_diffusion_subtype)
        SELECT CASE(solution_method)
        CASE(equations_set_fem_solution_method)
          equations_set%SOLUTION_METHOD=equations_set_fem_solution_method
        CASE(equations_set_bem_solution_method)
          CALL flagerror("Not implemented.",err,error,*999)
        CASE(equations_set_fd_solution_method)
          CALL flagerror("Not implemented.",err,error,*999)
        CASE(equations_set_fv_solution_method)
          CALL flagerror("Not implemented.",err,error,*999)
        CASE(equations_set_gfem_solution_method)
          CALL flagerror("Not implemented.",err,error,*999)
        CASE(equations_set_gfv_solution_method)
          CALL flagerror("Not implemented.",err,error,*999)
        CASE DEFAULT
          local_error="The specified solution method of "//trim(number_to_vstring(solution_method,"*",err,error))//" is invalid."
          CALL flagerror(local_error,err,error,*999)
        END SELECT
      CASE DEFAULT
        local_error="Equations set subtype of "//trim(number_to_vstring(equations_set%SPECIFICATION(3),"*",err,error))// &
          & " is not valid for a diffusion-diffusion equation type of a multi physics equations set class."
        CALL flagerror(local_error,err,error,*999)
      END SELECT
    ELSE
      CALL flagerror("Equations set is not associated.",err,error,*999)
    ENDIF
       
    exits("DiffusionDiffusion_EquationsSetSolutionMethodSet")
    RETURN
999 errors("DiffusionDiffusion_EquationsSetSolutionMethodSet",err,error)
    exits("DiffusionDiffusion_EquationsSetSolutionMethodSet")
    RETURN 1
    
  END SUBROUTINE diffusiondiffusion_equationssetsolutionmethodset

  !
  !================================================================================================================================
  !

  SUBROUTINE diffusion_diffusion_equations_set_setup(EQUATIONS_SET,EQUATIONS_SET_SETUP,ERR,ERROR,*)

    !Argument variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(equations_set_setup_type), INTENT(INOUT) :: EQUATIONS_SET_SETUP
    INTEGER(INTG), INTENT(OUT) :: ERR
    TYPE(varying_string), INTENT(OUT) :: ERROR
    !Local Variables

    enters("DIFFUSION_DIFFUSION_EQUATIONS_SET_SETUP",err,error,*999)

    CALL flagerror("Not implemented.",err,error,*999)
             
    exits("DIFFUSION_DIFFUSION_EQUATIONS_SET_SETUP")
    RETURN
999 errorsexits("DIFFUSION_DIFFUSION_EQUATIONS_SET_SETUP",err,error)
    RETURN 1

  END SUBROUTINE diffusion_diffusion_equations_set_setup

  !
  !================================================================================================================================
  !

  SUBROUTINE diffusiondiffusion_finiteelementcalculate(EQUATIONS_SET,ELEMENT_NUMBER,ERR,ERROR,*)

    !Argument variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    INTEGER(INTG), INTENT(IN) :: ELEMENT_NUMBER
    INTEGER(INTG), INTENT(OUT) :: ERR
    TYPE(varying_string), INTENT(OUT) :: ERROR
    !Local Variables

    enters("DiffusionDiffusion_FiniteElementCalculate",err,error,*999)

    CALL flagerror("Not implemented.",err,error,*999)
      
    exits("DiffusionDiffusion_FiniteElementCalculate")
    RETURN
999 errorsexits("DiffusionDiffusion_FiniteElementCalculate",err,error)
    RETURN 1
    
  END SUBROUTINE diffusiondiffusion_finiteelementcalculate

  !
  !================================================================================================================================
  !

  SUBROUTINE diffusiondiffusion_equationssetspecificationset(equationsSet,specification,err,error,*)

    !Argument variables
    TYPE(equations_set_type), POINTER :: equationsSet
    INTEGER(INTG), INTENT(IN) :: specification(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error

    enters("DiffusionDiffusion_EquationsSetSpecificationSet",err,error,*999)

    CALL flagerror("Not implemented.",err,error,*999)

    exits("DiffusionDiffusion_EquationsSetSpecificationSet")
    RETURN
999 errors("DiffusionDiffusion_EquationsSetSpecificationSet",err,error)
    exits("DiffusionDiffusion_EquationsSetSpecificationSet")
    RETURN 1
    
  END SUBROUTINE diffusiondiffusion_equationssetspecificationset

  !
  !================================================================================================================================
  !

  SUBROUTINE diffusiondiffusion_problemspecificationset(problem,problemSpecification,err,error,*)

    !Argument variables
    TYPE(problem_type), POINTER :: problem
    INTEGER(INTG), INTENT(IN) :: problemSpecification(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: problemSubtype

    enters("DiffusionDiffusion_ProblemSpecificationSet",err,error,*999)

    IF(ASSOCIATED(problem)) THEN
      IF(SIZE(problemspecification,1)==3) THEN
        problemsubtype=problemspecification(3)
        SELECT CASE(problemsubtype)
        CASE(problem_coupled_source_diffusion_diffusion_subtype)
          !ok
        CASE DEFAULT
          localerror="The third problem specification of "//trim(numbertovstring(problemsubtype,"*",err,error))// &
            & " is not valid for a coupled diffusion-diffusion type of a multi physics problem."
          CALL flagerror(localerror,err,error,*999)
        END SELECT
        IF(ALLOCATED(problem%specification)) THEN
          CALL flagerror("Problem specification is already allocated.",err,error,*999)
        ELSE
          ALLOCATE(problem%specification(3),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate problem specification.",err,error,*999)
        END IF
        problem%specification(1:3)=[problem_multi_physics_class,problem_diffusion_diffusion_type, &
          & problemsubtype]
      ELSE
        CALL flagerror("Diffusion-diffusion problem specification must have three elements.",err,error,*999)
      END IF
    ELSE
      CALL flagerror("Problem is not associated.",err,error,*999)
    END IF

    exits("DiffusionDiffusion_ProblemSpecificationSet")
    RETURN
999 errors("DiffusionDiffusion_ProblemSpecificationSet",err,error)
    exits("DiffusionDiffusion_ProblemSpecificationSet")
    RETURN 1
    
  END SUBROUTINE diffusiondiffusion_problemspecificationset

  !
  !================================================================================================================================
  !

  SUBROUTINE diffusion_diffusion_problem_setup(PROBLEM,PROBLEM_SETUP,ERR,ERROR,*)

    !Argument variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(problem_setup_type), INTENT(INOUT) :: PROBLEM_SETUP
    INTEGER(INTG), INTENT(OUT) :: ERR
    TYPE(varying_string), INTENT(OUT) :: ERROR
    !Local Variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP,CONTROL_LOOP_ROOT
    TYPE(solver_type), POINTER :: SOLVER_DIFFUSION_ONE, SOLVER_DIFFUSION_TWO
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS_DIFFUSION_ONE, SOLVER_EQUATIONS_DIFFUSION_TWO
    TYPE(solvers_type), POINTER :: SOLVERS
    TYPE(varying_string) :: LOCAL_ERROR
    
    enters("DIFFUSION_DIFFUSION_PROBLEM_SETUP",err,error,*999)

    NULLIFY(control_loop)
    NULLIFY(solvers)
    NULLIFY(solver_diffusion_one)
    NULLIFY(solver_diffusion_two)
    NULLIFY(solver_equations_diffusion_one)
    NULLIFY(solver_equations_diffusion_two)
    IF(ASSOCIATED(problem)) THEN
      IF(.NOT.ALLOCATED(problem%specification)) THEN
        CALL flagerror("Problem specification is not allocated.",err,error,*999)
      ELSE IF(SIZE(problem%specification,1)<3) THEN
        CALL flagerror("Problem specification must have three entries for a diffusion-diffusion problem.", &
          & err,error,*999)
      END IF
      SELECT CASE(problem%SPECIFICATION(3))

      !--------------------------------------------------------------------
      !   coupled source diffusion-diffusion
      !--------------------------------------------------------------------
      CASE(problem_coupled_source_diffusion_diffusion_subtype)
        SELECT CASE(problem_setup%SETUP_TYPE)
        CASE(problem_setup_initial_type)
          SELECT CASE(problem_setup%ACTION_TYPE)
          CASE(problem_setup_start_action)
            !Do nothing????
          CASE(problem_setup_finish_action)
            !Do nothing???
          CASE DEFAULT
            local_error="The action type of "//trim(number_to_vstring(problem_setup%ACTION_TYPE,"*",err,error))// &
              & " for a setup type of "//trim(number_to_vstring(problem_setup%SETUP_TYPE,"*",err,error))// &
              & " is invalid for a diffusion-diffusion  equation."
            CALL flagerror(local_error,err,error,*999)
          END SELECT
        CASE(problem_setup_control_type)
          SELECT CASE(problem_setup%ACTION_TYPE)
          CASE(problem_setup_start_action)
            !Set up a time control loop
            CALL control_loop_create_start(problem,control_loop,err,error,*999)
            CALL control_loop_type_set(control_loop,problem_control_time_loop_type,err,error,*999)
          CASE(problem_setup_finish_action)
            !Finish the control loops
            control_loop_root=>problem%CONTROL_LOOP
            CALL control_loop_get(control_loop_root,control_loop_node,control_loop,err,error,*999)
            CALL control_loop_create_finish(control_loop,err,error,*999)            
          CASE DEFAULT
            local_error="The action type of "//trim(number_to_vstring(problem_setup%ACTION_TYPE,"*",err,error))// &
              & " for a setup type of "//trim(number_to_vstring(problem_setup%SETUP_TYPE,"*",err,error))// &
              & " is invalid for a coupled diffusion-diffusion equation."
            CALL flagerror(local_error,err,error,*999)
          END SELECT
        CASE(problem_setup_solvers_type)
          !Get the control loop
          control_loop_root=>problem%CONTROL_LOOP
          CALL control_loop_get(control_loop_root,control_loop_node,control_loop,err,error,*999)
          SELECT CASE(problem_setup%ACTION_TYPE)
          CASE(problem_setup_start_action)
            !Start the solvers creation
            CALL solvers_create_start(control_loop,solvers,err,error,*999)
            CALL solvers_number_set(solvers,2,err,error,*999)
            !
            !Set the first solver to be a linear solver for the diffusion_one problem
            CALL solvers_solver_get(solvers,1,solver_diffusion_one,err,error,*999)
            CALL solver_type_set(solver_diffusion_one,solver_dynamic_type,err,error,*999)
            CALL solver_dynamic_order_set(solver_diffusion_one,solver_dynamic_first_order,err,error,*999)
            !Set solver defaults
            CALL solver_dynamic_degree_set(solver_diffusion_one,solver_dynamic_first_degree,err,error,*999)
            CALL solver_dynamic_scheme_set(solver_diffusion_one,solver_dynamic_crank_nicolson_scheme,err,error,*999)
            CALL solver_library_type_set(solver_diffusion_one,solver_cmiss_library,err,error,*999)
            !
            !Set the second solver to be a linear solver for the diffusion_one problem
            CALL solvers_solver_get(solvers,2,solver_diffusion_two,err,error,*999)
            CALL solver_type_set(solver_diffusion_two,solver_dynamic_type,err,error,*999)
            CALL solver_dynamic_order_set(solver_diffusion_two,solver_dynamic_first_order,err,error,*999)
            !Set solver defaults
            CALL solver_dynamic_degree_set(solver_diffusion_two,solver_dynamic_first_degree,err,error,*999)
            CALL solver_dynamic_scheme_set(solver_diffusion_two,solver_dynamic_crank_nicolson_scheme,err,error,*999)
            CALL solver_library_type_set(solver_diffusion_two,solver_cmiss_library,err,error,*999)
            !
          CASE(problem_setup_finish_action)
            !Get the solvers
            CALL control_loop_solvers_get(control_loop,solvers,err,error,*999)
            !Finish the solvers creation
            CALL solvers_create_finish(solvers,err,error,*999)
          CASE DEFAULT
            local_error="The action type of "//trim(number_to_vstring(problem_setup%ACTION_TYPE,"*",err,error))// &
              & " for a setup type of "//trim(number_to_vstring(problem_setup%SETUP_TYPE,"*",err,error))// &
                & " is invalid for a couple diffusion-diffusion equation."
            CALL flagerror(local_error,err,error,*999)
          END SELECT
        CASE(problem_setup_solver_equations_type)
          SELECT CASE(problem_setup%ACTION_TYPE)
          CASE(problem_setup_start_action)
            !Get the control loop and solvers
            control_loop_root=>problem%CONTROL_LOOP
            CALL control_loop_get(control_loop_root,control_loop_node,control_loop,err,error,*999)
            CALL control_loop_solvers_get(control_loop,solvers,err,error,*999)
            !
            !Get the diffusion_one solver and create the diffusion_one solver equations
            CALL solvers_solver_get(solvers,1,solver_diffusion_one,err,error,*999)
            CALL solver_equations_create_start(solver_diffusion_one,solver_equations_diffusion_one,err,error,*999)
            CALL solver_equations_linearity_type_set(solver_equations_diffusion_one,solver_equations_linear,err,error,*999)
            CALL solver_equations_time_dependence_type_set(solver_equations_diffusion_one, & 
              & solver_equations_first_order_dynamic,err,error,*999)
            CALL solver_equations_sparsity_type_set(solver_equations_diffusion_one,solver_sparse_matrices,err,error,*999)
            !
            !Get the diffusion_two solver and create the diffusion_two solver equations
            CALL solvers_solver_get(solvers,2,solver_diffusion_two,err,error,*999)
            CALL solver_equations_create_start(solver_diffusion_two,solver_equations_diffusion_two,err,error,*999)
            CALL solver_equations_linearity_type_set(solver_equations_diffusion_two,solver_equations_linear,err,error,*999)
            CALL solver_equations_time_dependence_type_set(solver_equations_diffusion_two, & 
              & solver_equations_first_order_dynamic,err,error,*999)
            CALL solver_equations_sparsity_type_set(solver_equations_diffusion_two,solver_sparse_matrices,err,error,*999)
            !

          CASE(problem_setup_finish_action)
            !Get the control loop
            control_loop_root=>problem%CONTROL_LOOP
            CALL control_loop_get(control_loop_root,control_loop_node,control_loop,err,error,*999)
            CALL control_loop_solvers_get(control_loop,solvers,err,error,*999)
            !
            !Finish the creation of the diffusion_one solver equations
            CALL solvers_solver_get(solvers,1,solver_diffusion_one,err,error,*999)
            CALL solver_solver_equations_get(solver_diffusion_one,solver_equations_diffusion_one,err,error,*999)
            CALL solver_equations_create_finish(solver_equations_diffusion_one,err,error,*999)             
            !
            !Finish the creation of the diffusion_two solver equations
            CALL solvers_solver_get(solvers,2,solver_diffusion_two,err,error,*999)
            CALL solver_solver_equations_get(solver_diffusion_two,solver_equations_diffusion_two,err,error,*999)
            CALL solver_equations_create_finish(solver_equations_diffusion_two,err,error,*999)             
            !
          
          CASE DEFAULT
            local_error="The action type of "//trim(number_to_vstring(problem_setup%ACTION_TYPE,"*",err,error))// &
              & " for a setup type of "//trim(number_to_vstring(problem_setup%SETUP_TYPE,"*",err,error))// &
              & " is invalid for a coupled diffusion-diffusion equation."
            CALL flagerror(local_error,err,error,*999)
          END SELECT
        CASE DEFAULT
          local_error="The setup type of "//trim(number_to_vstring(problem_setup%SETUP_TYPE,"*",err,error))// &
            & " is invalid for a coupled diffusion-diffusion equation."
          CALL flagerror(local_error,err,error,*999)
        END SELECT

      !-----------------------------------------------------------------
      !   c a s e   d e f a u l t
      !-----------------------------------------------------------------
      CASE DEFAULT
        local_error="The problem subtype of "//trim(number_to_vstring(problem%SPECIFICATION(3),"*",err,error))// &
          & " does not equal a coupled source diffusion-diffusion equation subtype."
        CALL flagerror(local_error,err,error,*999)

      END SELECT
    ELSE
      CALL flagerror("Problem is not associated.",err,error,*999)
    ENDIF
       
    exits("DIFFUSION_DIFFUSION_PROBLEM_SETUP")
    RETURN
999 errorsexits("DIFFUSION_DIFFUSION_PROBLEM_SETUP",err,error)
    RETURN 1
  END SUBROUTINE diffusion_diffusion_problem_setup

  !
  !================================================================================================================================
  !
 
  SUBROUTINE diffusion_diffusion_pre_solve(CONTROL_LOOP,SOLVER,ERR,ERROR,*)

    !Argument variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(solver_type), POINTER :: SOLVER
    INTEGER(INTG), INTENT(OUT) :: ERR
    TYPE(varying_string), INTENT(OUT) :: ERROR

    !Local Variables
    TYPE(varying_string) :: LOCAL_ERROR


    enters("DIFFUSION_DIFFUSION_PRE_SOLVE",err,error,*999)

    IF(ASSOCIATED(control_loop)) THEN
      IF(ASSOCIATED(solver)) THEN
        IF(ASSOCIATED(control_loop%PROBLEM)) THEN
          IF(.NOT.ALLOCATED(control_loop%problem%specification)) THEN
            CALL flagerror("Problem specification is not allocated.",err,error,*999)
          ELSE IF(SIZE(control_loop%problem%specification,1)<3) THEN
            CALL flagerror("Problem specification must have three entries for a diffusion-diffusion problem.", &
              & err,error,*999)
          END IF
          SELECT CASE(control_loop%PROBLEM%SPECIFICATION(3))
            CASE(problem_coupled_source_diffusion_diffusion_subtype)

              IF(solver%GLOBAL_NUMBER==1) THEN
                !copy current value of concentration_one to another variable
                CALL diffusion_presolvestorecurrentsolution(control_loop,solver,err,error,*999)
                !Set source term to be updated value of concentration_two
                CALL diffusion_presolvegetsourcevalue(control_loop,solver,err,error,*999)
              ELSE IF(solver%GLOBAL_NUMBER==2) THEN
                !compute value of constant source term - evaluated from lamdba*(0.5*(c_1^{t+1}+c_1^{t}) - c_2^{t})
                !CALL Diffusion_PreSolveGetSourceValue(CONTROL_LOOP,SOLVER,ERR,ERROR,*999)
              ENDIF
            CASE DEFAULT
              local_error="Problem subtype "//trim(number_to_vstring(control_loop%PROBLEM%SPECIFICATION(3),"*",err,error))// &
                & " is not valid for a diffusion type of a multi physics problem class."
              CALL flagerror(local_error,err,error,*999)
          END SELECT
        ELSE
          CALL flagerror("Problem is not associated.",err,error,*999)
        ENDIF
      ELSE
        CALL flagerror("Solver is not associated.",err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Control loop is not associated.",err,error,*999)
    ENDIF

    exits("DIFFUSION_DIFFUSION_PRE_SOLVE")
    RETURN
999 errorsexits("DIFFUSION_DIFFUSION_PRE_SOLVE",err,error)
    RETURN 1
  END SUBROUTINE diffusion_diffusion_pre_solve
      
  !   
  !================================================================================================================================
  !

  SUBROUTINE diffusion_diffusion_post_solve(CONTROL_LOOP,SOLVER,ERR,ERROR,*)

    !Argument variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(solver_type), POINTER :: SOLVER
    INTEGER(INTG), INTENT(OUT) :: ERR
    TYPE(varying_string), INTENT(OUT) :: ERROR

    !Local Variables
    TYPE(varying_string) :: LOCAL_ERROR

    enters("DIFFUSION_DIFFUSION_POST_SOLVE",err,error,*999)

    IF(ASSOCIATED(control_loop)) THEN
      IF(ASSOCIATED(solver)) THEN
        IF(ASSOCIATED(control_loop%PROBLEM)) THEN 
          IF(.NOT.ALLOCATED(control_loop%problem%specification)) THEN
            CALL flagerror("Problem specification is not allocated.",err,error,*999)
          ELSE IF(SIZE(control_loop%problem%specification,1)<3) THEN
            CALL flagerror("Problem specification must have three entries for a diffusion-diffusion problem.", &
              & err,error,*999)
          END IF
          SELECT CASE(control_loop%PROBLEM%SPECIFICATION(3))
            CASE(problem_coupled_source_diffusion_diffusion_subtype)
              IF(solver%GLOBAL_NUMBER==1) THEN
!              CALL DIFFUSION_EQUATION_POST_SOLVE_EVALUATE_SOURCE(CONTROL_LOOP,SOLVER,ERR,ERROR,*999)
!              CALL DIFFUSION_EQUATION_POST_SOLVE_COPY_SOURCE(CONTROL_LOOP,SOLVER,ERR,ERROR,*999)
              ELSE IF(solver%GLOBAL_NUMBER==2) THEN
              !do nothing?!
              ENDIF
            CASE DEFAULT
              local_error="Problem subtype "//trim(number_to_vstring(control_loop%PROBLEM%SPECIFICATION(3),"*",err,error))// &
                & " is not valid for a diffusion-diffusion type of a multi physics problem class."
              CALL flagerror(local_error,err,error,*999)
          END SELECT
        ELSE
          CALL flagerror("Problem is not associated.",err,error,*999)
        ENDIF
      ELSE
        CALL flagerror("Solver is not associated.",err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Control loop is not associated.",err,error,*999)
    ENDIF

    exits("DIFFUSION_DIFFUSION_POST_SOLVE")
    RETURN
999 errorsexits("DIFFUSION_DIFFUSION_POST_SOLVE",err,error)
    RETURN 1
  END SUBROUTINE diffusion_diffusion_post_solve

  !
  !================================================================================================================================
  !

  SUBROUTINE diffusion_diffusion_post_solve_output_data(CONTROL_LOOP,SOLVER,ERR,ERROR,*)

    !Argument variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(solver_type), POINTER :: SOLVER
    INTEGER(INTG), INTENT(OUT) :: ERR
    TYPE(varying_string), INTENT(OUT) :: ERROR

    !Local Variables
    TYPE(varying_string) :: LOCAL_ERROR

    enters("DIFFUSION_DIFFUSION_POST_SOLVE_OUTPUT_DATA",err,error,*999)

    IF(ASSOCIATED(control_loop)) THEN
      IF(ASSOCIATED(solver)) THEN
        IF(ASSOCIATED(control_loop%PROBLEM)) THEN
          IF(.NOT.ALLOCATED(control_loop%problem%specification)) THEN
            CALL flagerror("Problem specification is not allocated.",err,error,*999)
          ELSE IF(SIZE(control_loop%problem%specification,1)<3) THEN
            CALL flagerror("Problem specification must have three entries for a diffusion-diffusion problem.", &
              & err,error,*999)
          END IF
          SELECT CASE(control_loop%PROBLEM%SPECIFICATION(3))
            CASE(problem_coupled_source_diffusion_diffusion_subtype)
                !CALL DIFFUSION_EQUATION_POST_SOLVE_OUTPUT_DATA(CONTROL_LOOP,SOLVER,ERR,ERROR,*999)
            CASE DEFAULT
              local_error="Problem subtype "//trim(number_to_vstring(control_loop%PROBLEM%SPECIFICATION(3),"*",err,error))// &
                & " is not valid for a diffusion type of a multi physics problem class."
              CALL flagerror(local_error,err,error,*999)
          END SELECT
        ELSE
          CALL flagerror("Problem is not associated.",err,error,*999)
        ENDIF
      ELSE
        CALL flagerror("Solver is not associated.",err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Control loop is not associated.",err,error,*999)
    ENDIF
      
    exits("DIFFUSION_DIFFUSION_POST_SOLVE_OUTPUT_DATA")
    RETURN
999 errorsexits("DIFFUSION_DIFFUSION_POST_SOLVE_OUTPUT_DATA",err,error)
    RETURN 1
  END SUBROUTINE diffusion_diffusion_post_solve_output_data
      
  !   
  !================================================================================================================================
  !


END MODULE diffusion_diffusion_routines