fc2k_reajust_profiles.f90

Go to the documentation of this file.

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

  SUBROUTINE fc2k_readjust_profiles            &
       (prof_flag, q0_flag, coreprof_in, equilibrium_in, coreprof_out) 

!-------------------------------------------------------!
!     This routine readjusts consistently               !
!     profiles of psi, q and jparallel                  !
!                                                       !
!     information received in: COREPROF                 !
!                              EQUILIBRIUM.             !
!                                                       !
!     information saved in:    COREPROF                 !
!                                                       !
!     controling parameter:    PROF_FLAG                !
!                                                       !
!-------------------------------------------------------!
!     Source:       ---                                 !
!     Developers:   D.Kalupin                           !
!     Kontacts:     Denis.Kalupin@efda.org              !
!                                                       !
!     Comments:     created for V&V between ETS, JETTO  !
!                   and ASTRA                           !
!                                                       !
!-------------------------------------------------------!


    USE euitm_schemas
    USE itm_constants
    USE equilibrium_work

    IMPLICIT NONE

    INTEGER                           :: ifail

! +++ CPO derived types:
    TYPE (type_equilibrium), POINTER  :: equilibrium_in(:)   !input CPO with geometry quantities from previous time
    TYPE (type_coreprof),    POINTER  :: coreprof_in(:)      !input/output CPO with plasma profiles   
    TYPE (type_coreprof),    POINTER  :: coreprof_out(:)     !input/output CPO with plasma profiles   


! +++ Dimensions:
    INTEGER                           :: prof_flag           !determines primary profile
    INTEGER                           :: q0_flag             !Flag for positive dq/drho: 0-allowed, >0-cut off



    CALL readjust_profiles            &
       (prof_flag, q0_flag, coreprof_in, equilibrium_in, coreprof_out)



    RETURN

  END SUBROUTINE fc2k_readjust_profiles

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