fc2k_fusion_sources.f90

Go to the documentation of this file.

SUBROUTINE fc2k_fusion_sources    (COREPROF, CORESOURCE) 

!-------------------------------------------------------!
!     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_sources_module

  implicit none

  type (type_coreprof),    pointer  :: coreprof(:)         ! input CPO with i ETS profiles
  type (type_coresource),  pointer  :: coresource(:)       ! output CPO with fusion sources

  call fusion_sources(coreprof, coresource)

  return

END SUBROUTINE fc2k_fusion_sources