fc2k_coronal.F90

Go to the documentation of this file.

! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +   
  SUBROUTINE  fc2k_coronal(COREIMPUR_IN, COREPROF_IN, COREIMPUR_OUT, INTERPOL, ICORONAL) 


! +++ Declaration of variables: 
    USE euitm_schemas
    USE coronal


    IMPLICIT NONE

    INTEGER                          :: interpol           !interpolation index "0"-based on RHO_TOR; all other - based on RHO_TOR_NORM 
    INTEGER                          :: icoronal           !coronal index: "0"-OFF; "1" - replace boundary conditions by coronal; "2" - replace boundary conditions and profiles by coronal 

! +++ CPO derived types:
    TYPE (type_coreimpur), POINTER   :: coreimpur_in(:)    !input CPO with impurity 
    TYPE (type_coreprof),  POINTER   :: coreprof_in(:)     !input CPO with plasma profiles
    TYPE (type_coreimpur), POINTER   :: coreimpur_out(:)   !output CPO with sources uploaded from the data base 

    CALL set_coronal(coreimpur_in, coreprof_in, coreimpur_out, interpol, icoronal)


 10 RETURN


    END SUBROUTINE  fc2k_coronal 
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +