fc2k_emeq.F90

Go to the documentation of this file.

! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +   

  SUBROUTINE fc2k_emeq  (EQUILIBRIUM_IN, EQUILIBRIUM_OUT, code_parameters)

    !-------------------------------------------------------!
    !     This routine provides interface between ETS       !
    !     and three moment equilibrium solver.              !
    !-------------------------------------------------------!
    !     Source:       ---                                 !
    !     Developers:   D.Kalupin, G.Pereverzev             !
    !     Kontacts:     D.Kalupin@fz-juelich.de             !
    !                                                       !
    !     Comments:     created for V&V between ETS and     !
    !                   ASTRA                               !
    !                                                       !
    !-------------------------------------------------------!


    USE itm_types
    USE itm_constants
    USE euitm_schemas
    USE emeq


    !-------------------------------------------------------!
    IMPLICIT NONE

! +++ CPO derived types:
    TYPE (type_equilibrium), POINTER  :: equilibrium_in(:)   !input CPO with geometry quantities from previous time
    TYPE (type_equilibrium), POINTER  :: equilibrium_out(:)  !output CPO with geometry quantities from previous iteration
    TYPE (type_param)                 :: code_parameters




    CALL emeq_e3m(equilibrium_in, equilibrium_out, code_parameters)


    RETURN



  END SUBROUTINE fc2k_emeq
  ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
  ! + + + + + + + + + + + + + + + + + + + + + + + + + + + +