fc2k_workaround_eqinput.f90

Go to the documentation of this file.

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

     SUBROUTINE eqinput(COREPROF_IN, TOROIDFIELD_IN, EQUILIBRIUM_IN, EQUILIBRIUM_OUT)

     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   


     CALL equil_input(coreprof_in, toroidfield_in, equilibrium_in, equilibrium_out)

     RETURN

     END SUBROUTINE eqinput