fc2k_workaround_analytics.f90

Go to the documentation of this file.

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

subroutine analyticalplasma(TIME,COREPROF_in,EQUILIBRIUM,COREPROF,CORETRANSP,CORESOURCE,COREIMPUR,code_parameters)

  use itm_types
  USE euitm_schemas
  use analytics1

  implicit none

!input arguments
  REAL (R8)                              :: time
  TYPE (type_coreprof),   POINTER        :: coreprof_in(:)
!output arguments
  TYPE (type_equilibrium),POINTER        :: equilibrium(:)
  TYPE (type_coreprof),   POINTER        :: coreprof(:)
  TYPE (type_coretransp), POINTER        :: coretransp(:)
  TYPE (type_coresource), POINTER        :: coresource(:)
  TYPE (type_coreimpur),  POINTER        :: coreimpur(:)         !CPO with impurities
  type (type_param) :: code_parameters

  call analytical_plasma(time,coreprof_in,equilibrium,coreprof,coretransp,coresource,coreimpur,code_parameters)

  return

end subroutine analyticalplasma