istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

src/graycore.f90 -> src/gray_core.f90

Browse Source 
Rename for consistency with other modules.
This commit is contained in:
Michele Guerini Rocco 2021-12-15 02:31:14 +01:00
parent d18e05353a
commit 2bee7be103
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
4 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/graycore.f90 → src/gray_core.f90
View File

@ -1,4 +1,4 @@
module graycore module gray_core
use const_and_precisions, only : wp_ use const_and_precisions, only : wp_
implicit none implicit none
@ -2238,4 +2238,4 @@ bb: do
! write(usumm,*) '' ! write(usumm,*) ''
end subroutine print_finals end subroutine print_finals
end module graycore end module gray_core

2
src/gray_jetto1beam.f90
View File

@ -3,7 +3,7 @@ subroutine gray_jetto1beam(ijetto, mr, mz, r, z, psin, psia, rax, zax, &
p0mw, alphain, betain, dpdv, jcd, pabs, icd, error) p0mw, alphain, betain, dpdv, jcd, pabs, icd, error)
use const_and_precisions, only: wp_ use const_and_precisions, only: wp_
use gray_params, only: gray_parameters, gray_data, gray_results use gray_params, only: gray_parameters, gray_data, gray_results
use graycore, only: gray_main use gray_core, only: gray_main
implicit none implicit none

2
src/gray_params.f90
View File

@ -116,7 +116,7 @@ module gray_params
real(wp_), allocatable :: jcd(:) ! Driven current density real(wp_), allocatable :: jcd(:) ! Driven current density
end type end type
! Global variables exposed for graycore ! Global variables exposed for gray_core
integer, save :: iequil, iprof, ipol integer, save :: iequil, iprof, ipol
integer, save :: iwarm, ilarm, imx, ieccd integer, save :: iwarm, ilarm, imx, ieccd
integer, save :: igrad, idst, ipass integer, save :: igrad, idst, ipass

4
src/main.f90
View File

@ -1,6 +1,6 @@
program main program main
use const_and_precisions, only : wp_, one, zero use const_and_precisions, only : wp_, one, zero
use graycore, only : gray_main use gray_core, only : gray_main
use gray_params, only : gray_parameters, gray_data, gray_results, & use gray_params, only : gray_parameters, gray_data, gray_results, &
read_parameters, params_set_globals => set_globals read_parameters, params_set_globals => set_globals
implicit none implicit none
@ -343,7 +343,7 @@ contains
use beamdata, only : init_btr, dealloc_beam use beamdata, only : init_btr, dealloc_beam
use pec, only : pec_init, postproc_profiles, dealloc_pec, & use pec, only : pec_init, postproc_profiles, dealloc_pec, &
rhop_tab, rhot_tab rhop_tab, rhot_tab
use graycore, only : print_headers, print_finals, print_pec, & use gray_core, only : print_headers, print_finals, print_pec, &
print_bres, print_prof, print_maps, & print_bres, print_prof, print_maps, &
print_surfq print_surfq
implicit none implicit none