CONVERT_GVEC_TO_JOREK Program

Uses

  • program~~convert_gvec_to_jorek~~UsesGraph program~convert_gvec_to_jorek CONVERT_GVEC_TO_JOREK module~modgvec_globals MODgvec_Globals program~convert_gvec_to_jorek->module~modgvec_globals module~modgvec_gvec_to_jorek MODgvec_gvec_to_jorek program~convert_gvec_to_jorek->module~modgvec_gvec_to_jorek iso_fortran_env iso_fortran_env module~modgvec_globals->iso_fortran_env module~modgvec_gvec_to_jorek->module~modgvec_globals

GVEC_TO_JOREK converter program


Calls

program~~convert_gvec_to_jorek~~CallsGraph program~convert_gvec_to_jorek CONVERT_GVEC_TO_JOREK finalize_gvec_to_jorek finalize_gvec_to_jorek program~convert_gvec_to_jorek->finalize_gvec_to_jorek get_cla_gvec_to_jorek get_cla_gvec_to_jorek program~convert_gvec_to_jorek->get_cla_gvec_to_jorek init_gvec_to_jorek init_gvec_to_jorek program~convert_gvec_to_jorek->init_gvec_to_jorek interface~gvec_to_jorek_writetofile gvec_to_jorek_writeToFile program~convert_gvec_to_jorek->interface~gvec_to_jorek_writetofile proc~gvec_to_jorek_writetofile_ascii gvec_to_jorek_writeToFile_ASCII interface~gvec_to_jorek_writetofile->proc~gvec_to_jorek_writetofile_ascii interface~getfreeunit GETFREEUNIT proc~gvec_to_jorek_writetofile_ascii->interface~getfreeunit interface~getfreeunit->interface~getfreeunit

Variables

Type Attributes Name Initial
real(kind=wp) :: StartTime
real(kind=wp) :: EndTime

Source Code

PROGRAM CONVERT_GVEC_TO_JOREK
USE MODgvec_Globals
USE MODgvec_gvec_to_jorek
!$ USE omp_lib
IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
!local variables
REAL(wp)                :: StartTime,EndTime
!===================================================================================================================================
  __PERFINIT
  __PERFON('main')

  CALL CPU_TIME(StartTime)
!$ StartTime=OMP_GET_WTIME()

  !header
  WRITE(Unit_stdOut,'(132("="))')
  WRITE(Unit_stdOut,'(5(("*",A128,2X,"*",:,"\n")))')&
 '  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - '&
,' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  '&
,'  - - - - - - - - - - CONVERT GVEC => JOREK  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - '&
,' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  '&
,'  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - '
  WRITE(Unit_stdOut,'(132("="))')
!$ WRITE(UNIT_stdOut,'(A,I6)')'   Number of OpenMP threads : ',OMP_GET_MAX_THREADS()
!$ WRITE(Unit_stdOut,'(132("="))')
  CALL GET_CLA_gvec_to_jorek()

  !initialization phase
  CALL Init_gvec_to_jorek()

  CALL gvec_to_jorek_writeToFile()
  CALL Finalize_gvec_to_jorek()

  CALL CPU_TIME(EndTime)
!$ EndTime=OMP_GET_WTIME()
  WRITE(Unit_stdOut,fmt_sep)
  WRITE(Unit_stdOut,'(A,F8.2,A)') ' CONVERT GVEC TO JOREK FINISHED! [',EndTime-StartTime,' sec ]'
  WRITE(Unit_stdOut,fmt_sep)

  __PERFOFF('main')
  __PERFOUT('main')
END PROGRAM CONVERT_GVEC_TO_JOREK