fc2k_scaleprof.f90

Go to the documentation of this file.

! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +   
  SUBROUTINE scaleprof (S_psi, S_jpar, S_ne, S_te, S_ni, S_ti, S_vtor, &
                         coreprof_in,    coreprof_out) 
  !-------------------------------------------------------!
  !     This routine rescales profiles from               !
  !     the COREPROF CPO                                  !
  !                                                       !
  !     multipliers are expected from the workflow as     !
  !     parameters                                        !
  !-------------------------------------------------------!
  !     Source:       ---                                 !
  !     Developers:   D.Kalupin                           !
  !     Kontacts:     Denis.Kalupin@efda.org              !
  !                                                       !
  !     Comments:     created for V&V between ETS and     !
  !                   ASTRA                               !
  !                                                       !
  !-------------------------------------------------------!

! +++ Declaration of variables: 
    USE euitm_schemas
    USE copy_structures
    USE itm_constants

    IMPLICIT NONE

! +++ CPO derived types:
    TYPE (type_coreprof),    POINTER :: coreprof_in(:)        !input CPO  
    TYPE (type_coreprof),    POINTER :: coreprof_out(:)       !output CPO  
 
    REAL (R8)                        ::  s_psi  
    REAL (R8)                        ::  s_jpar 
    REAL (R8)                        ::  s_ne   
    REAL (R8)                        ::  s_te   
    REAL (R8)                        ::  s_ni   
    REAL (R8)                        ::  s_ti   
    REAL (R8)                        ::  s_vtor 



! +++ Allocate output CPOs:
    ALLOCATE(coreprof_out(1))


! +++ Copy input CPOs to output CPOs:
    CALL copy_cpo(coreprof_in(1),    coreprof_out(1))


! +++ Rescale profiles in output CPOs:
    coreprof_out(1)%psi%value              = coreprof_in(1)%psi%value * s_psi
    coreprof_out(1)%profiles1d%jtot%value  = coreprof_in(1)%profiles1d%jtot%value * s_jpar

    coreprof_out(1)%ne%value               = coreprof_in(1)%ne%value * s_ne
    coreprof_out(1)%te%value               = coreprof_in(1)%te%value * s_te

    coreprof_out(1)%ni%value               = coreprof_in(1)%ni%value * s_ni
    coreprof_out(1)%ti%value               = coreprof_in(1)%ti%value * s_ti

    coreprof_out(1)%vtor%value             = coreprof_in(1)%vtor%value * s_vtor


 
    RETURN 


    END SUBROUTINE scaleprof
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +