fc2k_fillcpos.f90

Go to the documentation of this file.

! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +   
SUBROUTINE fc2k_fillcoreprof (COREPROF_DB,  COREPROF_GRID, COREFAST_IN,  COREPROF_OUT, INTERPOL) 

!--------------------------------------------------------
! This is FC2K wrapper for FILLCOREPROF                 !
!--------------------------------------------------------

  USE itm_types
  USE euitm_schemas
  USE fill_cpos

  IMPLICIT NONE

  INTEGER                          :: interpol           !interpolation index "0"-based on RHO_TOR; all other - based on RHO_TOR_NORM  

  TYPE (type_coreprof), POINTER    :: coreprof_grid(:)   !input CPO with internal ETS parameters 
  TYPE (type_coreprof), POINTER    :: coreprof_out(:)    !output CPO with profiles uploaded from the data base 
  TYPE (type_coreprof), POINTER    :: coreprof_db(:)     !time independent CPO slice 
  TYPE (type_corefast), POINTER    :: corefast_in(:)     !time independent CPO slice 
    

  CALL fillcoreprof(coreprof_db,  coreprof_grid, corefast_in, coreprof_out, interpol)


  RETURN 

END SUBROUTINE fc2k_fillcoreprof
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  


! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +   
SUBROUTINE fc2k_fillcoreprof2 (COREPROF_DB,  COREPROF_GRID, COREFAST_IN,  COREPROF_OUT, INTERPOL, integer_params, real_params,&
     output_flag,diagnostic_info) 

!--------------------------------------------------------
! This is FC2K wrapper for FILLCOREPROF  
! with additional params to enable cut_and_stretch possibility               !
!--------------------------------------------------------

  USE itm_types
  USE euitm_schemas
  USE fill_cpos

  IMPLICIT NONE

  INTEGER                  :: interpol           !interpolation index "0"-based on RHO_TOR; all other - based on RHO_TOR_NORM  
  integer, dimension(1)    :: integer_params
  real(8), dimension(2)    :: real_params

  integer,                   intent(out) :: output_flag
  character(len=:), pointer, intent(out) :: diagnostic_info
  character(len=1024)                    :: internal_diagnostic_info = ''
  integer                                :: lenstring
     
  TYPE (type_coreprof), POINTER    :: coreprof_grid(:)   !input CPO with internal ETS parameters 
  TYPE (type_coreprof), POINTER    :: coreprof_out(:)    !output CPO with profiles uploaded from the data base 
  TYPE (type_coreprof), POINTER    :: coreprof_db(:)     !time independent CPO slice 
  TYPE (type_corefast), POINTER    :: corefast_in(:)     !time independent CPO slice 

  nullify( diagnostic_info )
  internal_diagnostic_info = ''

  CALL fillcoreprof2(coreprof_db,  coreprof_grid, corefast_in, coreprof_out, interpol,integer_params,real_params,&
       output_flag,internal_diagnostic_info)


  lenstring = len(trim(adjustl(internal_diagnostic_info)))
  IF (lenstring > 0) THEN
     ALLOCATE (CHARACTER(LEN=LENSTRING) :: diagnostic_info)
     diagnostic_info = trim(adjustl(internal_diagnostic_info))
  END IF

  RETURN

END SUBROUTINE fc2k_fillcoreprof2
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +




! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +   
SUBROUTINE fc2k_fillcoretransp (CORETRANSP_DB, CORETRANSP_GRID, CORETRANSP_OUT, INTERPOL) 

!--------------------------------------------------------
! This is FC2K wrapper for FILLCORETRANSP               !
!--------------------------------------------------------

  USE itm_types
  USE euitm_schemas
  USE fill_cpos
  
  IMPLICIT NONE

  INTEGER                          :: interpol           !interpolation index "0"-based on RHO_TOR; all other - based on RHO_TOR_NORM  

  TYPE (type_coretransp), POINTER  :: coretransp_grid(:) !input CPO with internal parameters 
  TYPE (type_coretransp), POINTER  :: coretransp_out(:)  !output CPO with profiles uploaded from the data base 
  TYPE (type_coretransp), POINTER  :: coretransp_db(:)   !time independent CPO slice 


  CALL fillcoretransp(coretransp_db, coretransp_grid, coretransp_out, interpol)


  RETURN 

END SUBROUTINE fc2k_fillcoretransp
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  







! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +   
SUBROUTINE fc2k_fillcoresource (CORESOURCE_DB, CORESOURCE_GRID, CORESOURCE_OUT, INTERPOL) 

!--------------------------------------------------------
! This is FC2K wrapper for FILLCORESOURCE               !
!--------------------------------------------------------

  USE itm_types
  USE euitm_schemas
  USE fill_cpos

  IMPLICIT NONE

  INTEGER                          :: interpol           !interpolation index "0"-based on RHO_TOR; all other - based on RHO_TOR_NORM  

  TYPE (type_coresource), POINTER  :: coresource_grid(:) !input CPO with internal parameters 
  TYPE (type_coresource), POINTER  :: coresource_out(:)  !output CPO with profiles uploaded from the data base 
  TYPE (type_coresource), POINTER  :: coresource_db(:)   !time independent CPO slice 


  CALL fillcoresource(coresource_db, coresource_grid, coresource_out, interpol)


  RETURN 

END SUBROUTINE fc2k_fillcoresource
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  







! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +   
SUBROUTINE fc2k_fillcoreimpur (COREIMPUR_DB, COREIMPUR_GRID, COREIMPUR_OUT, INTERPOL) 

!--------------------------------------------------------
! This is FC2K wrapper for FILLCOREIMPUR                !
!--------------------------------------------------------

  USE itm_types
  USE euitm_schemas
  USE fill_cpos

  IMPLICIT NONE

  INTEGER                          :: interpol              !interpolation index "0"-based on RHO_TOR; all other - based on RHO_TOR_NORM  

  TYPE (type_coreimpur), POINTER   :: coreimpur_grid(:)     !input CPO with internal parameters 
  TYPE (type_coreimpur), POINTER   :: coreimpur_out(:)      !output CPO with sources uploaded from the data base 
  TYPE (type_coreimpur), POINTER   :: coreimpur_db(:)       !time independent CPO slice 


  CALL fillcoreimpur(coreimpur_db, coreimpur_grid, coreimpur_out, interpol)


  RETURN 

END SUBROUTINE fc2k_fillcoreimpur
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  


SUBROUTINE fc2k_fillcorefast (COREFAST_DB,  COREFAST_GRID,  COREFAST_OUT, INTERPOL) 

!--------------------------------------------------------
! This is FC2K wrapper for FILLCOREFAST                 !
!--------------------------------------------------------

  USE itm_types
  USE euitm_schemas
  USE fill_cpos

  IMPLICIT NONE

  INTEGER                          :: interpol           !interpolation index "0"-based on RHO_TOR; all other - based on RHO_TOR_NORM  

  TYPE (type_corefast), POINTER    :: corefast_grid(:)   !input CPO with internal ETS parameters 
  TYPE (type_corefast), POINTER    :: corefast_out(:)    !output CPO with profiles uploaded from the data base 
  TYPE (type_corefast), POINTER    :: corefast_db(:)     !time independent CPO slice 
    

  CALL fillcorefast(corefast_db,  corefast_grid,  corefast_out, interpol)


  RETURN 

END SUBROUTINE fc2k_fillcorefast
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  






! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +   
SUBROUTINE fc2k_fillequilibrium (EQUILIBRIUM_DB, EQUILIBRIUM_GRID, EQUILIBRIUM_OUT, INTERPOL) 

!--------------------------------------------------------
! This is FC2K wrapper for FILLEQUILIBRIUM               !
!--------------------------------------------------------

  USE itm_types
  USE euitm_schemas
  USE fill_cpos

  IMPLICIT NONE

  INTEGER                          :: interpol             !interpolation index "0"-based on RHO_TOR; all other - based on RHO_TOR_NORM  

  TYPE (type_equilibrium), POINTER :: equilibrium_grid(:)  !input CPO with internal parameters 
  TYPE (type_equilibrium), POINTER :: equilibrium_out(:)   !output CPO with sources uploaded from the data base 
  TYPE (type_equilibrium), POINTER :: equilibrium_db(:)    !time independent CPO slice 


  CALL fillequilibrium(equilibrium_db, equilibrium_grid, equilibrium_out, interpol)


  RETURN 


END SUBROUTINE fc2k_fillequilibrium
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  






! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +   
SUBROUTINE fc2k_filltoroidfield (TOROIDFIELD, TOROIDFIELD_GRID, TOROIDFIELD_OUT)

!--------------------------------------------------------
! This is FC2K wrapper for FILLTOROIDFIELD              !
!--------------------------------------------------------

  USE itm_types
  USE euitm_schemas
  USE fill_cpos

  IMPLICIT NONE

  TYPE (type_toroidfield), POINTER :: toroidfield_out(:)  
  TYPE (type_toroidfield), POINTER :: toroidfield(:)  
  TYPE (type_toroidfield), POINTER :: toroidfield_grid(:)
    

  CALL filltoroidfield(toroidfield, toroidfield_grid, toroidfield_out)


  RETURN 

END SUBROUTINE fc2k_filltoroidfield
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  





! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +   
SUBROUTINE fc2k_fillcoreneutrals (CORENEUTRALS_DB,  CORENEUTRALS_GRID,  CORENEUTRALS_OUT, INTERPOL) 

!--------------------------------------------------------
! This is FC2K wrapper for FILLCORENEUTRALS             !
!--------------------------------------------------------

  USE itm_types
  USE euitm_schemas
  USE fill_cpos

  IMPLICIT NONE

  INTEGER                            :: interpol                       !interpolation index "0"-based on RHO_TOR; all other - based on RHO_TOR_NORM  

  TYPE (type_coreneutrals), POINTER  :: coreneutrals_grid(:)           !input CPO with internal ETS parameters 
  TYPE (type_coreneutrals), POINTER  :: coreneutrals_out(:)            !output CPO with profiles uploaded from the data base 
  TYPE (type_coreneutrals), POINTER  :: coreneutrals_db(:)             !time independent CPO slice 


  CALL fillcoreneutrals(coreneutrals_db,  coreneutrals_grid,  coreneutrals_out, interpol)


  RETURN 
 
END SUBROUTINE fc2k_fillcoreneutrals
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  


! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +   
SUBROUTINE fc2k_fillneoclassic (NEOCLASSIC_DB, NEOCLASSIC_GRID, NEOCLASSIC_OUT, INTERPOL) 

!--------------------------------------------------------
! This is FC2K wrapper for FILLNEOCLASSIC               !
!--------------------------------------------------------

  USE itm_types
  USE euitm_schemas
  USE fill_cpos

  IMPLICIT NONE

  INTEGER                          :: interpol           !interpolation index "0"-based on RHO_TOR; all other - based on RHO_TOR_NORM  

  TYPE (type_neoclassic), POINTER  :: neoclassic_grid(:) !input CPO with internal parameters 
  TYPE (type_neoclassic), POINTER  :: neoclassic_out(:)  !output CPO with profiles uploaded from the data base 
  TYPE (type_neoclassic), POINTER  :: neoclassic_db(:)   !time independent CPO slice 
  

  CALL fillneoclassic(neoclassic_db, neoclassic_grid, neoclassic_out, interpol)


  RETURN 

END SUBROUTINE fc2k_fillneoclassic
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +