fc2k_gausian_sources.f90

Go to the documentation of this file.

!-------------------------------------------------------!
!-------------------------------------------------------!

  SUBROUTINE fc2k_gausian_sources    (COREPROF, EQUILIBRIUM, CORESOURCE, code_parameters) 

!-------------------------------------------------------!
!     This routine provides dummy source for the        !
!     ETS workflow.                                     !
!-------------------------------------------------------!
!     Source:       ---                                 !
!     Developers:   D.Kalupin                           !
!     Kontacts:     Denis.Kalupin@efda.org              !
!                                                       !
!     Comments:     input parameter list is specified   !
!                   in "source_dummy.xml" file.         !
!                                                       !
!                   output CORESOURCE CPO is            !
!                   allocated inside the module         !
!                                                       !
!-------------------------------------------------------!


      USE  itm_types
      USE  euitm_schemas
      USE  gausian_src


      IMPLICIT NONE


      INTEGER                           :: ifail
 

! +++ CPO derived types:
      TYPE (type_equilibrium), POINTER  :: equilibrium(:)      !input CPO with geometry quantities from previous time
      TYPE (type_coreprof),    POINTER  :: coreprof(:)         !input CPO with internal ETS parameters profiles from previous time
      TYPE (type_coresource),  POINTER  :: coresource(:)       !output CPO with sources
      TYPE (type_param)                 :: code_parameters


      CALL gausian_sources(coreprof, equilibrium, coresource, code_parameters)
      

      RETURN


      END SUBROUTINE fc2k_gausian_sources  

!-------------------------------------------------------!
!-------------------------------------------------------!