fc2k_eqinput.f90

Go to the documentation of this file.

SUBROUTINE fc2k_eqinput(COREPROF_IN, TOROIDFIELD_IN, EQUILIBRIUM_IN, &
                        equilibrium_out, code_parameters)
!--------------------------------------------------------
! This is FC2K wrapper for FILLCORETRANSP               !
!--------------------------------------------------------

  USE itm_types
  USE euitm_schemas
  USE equilibrium_input
  
  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_toroidfield), POINTER  :: toroidfield_in(:)   !toroidal field, major radius, total current
  TYPE (type_coreprof),    POINTER  :: coreprof_in(:)      !input CPO with plasma profiles   
 
  TYPE(type_param)                  :: code_parameters


  CALL equil_input(coreprof_in, toroidfield_in, equilibrium_in, equilibrium_out)

  RETURN

END SUBROUTINE fc2k_eqinput