fc2k_fusion_distsources.f90

Go to the documentation of this file.

SUBROUTINE fc2k_fusion_distsources    (COREPROF, EQUILIBRIUM, DISTSOURCE) 

!-------------------------------------------------------!
!     This routine provides fusion sources for the      !
!     ETS workflow.                                     !
!-------------------------------------------------------!
!     Source:       ---                                 !
!     Developers:   D. Coster                           !
!     Kontacts:     David.Coster@ipp.mpg.de             !
!                                                       !
!     Comments:     output CORESOURCE CPO is            !
!                   allocated inside the module         !
!                                                       !
!-------------------------------------------------------!

  use euitm_schemas
  use fusion_dist_sources_module

  implicit none

  type (type_coreprof),    pointer  :: coreprof(:)         ! input CPO with ETS profiles
  type (type_equilibrium), pointer  :: equilibrium(:)      ! input CPO with ETS equilibrium
  type (type_distsource),  pointer  :: distsource(:)       ! output CPO with fusion sources

  call fusion_dist_sources(coreprof, equilibrium, distsource)

  return

END SUBROUTINE fc2k_fusion_distsources