file_op Module


Uses


Subroutines

public subroutine fl_open(nfl, nsts)

opens file pclfil and assigns to nsts and opens file anfil and assigns to nfl pclfil and anfil is set in readparam

Arguments

Type IntentOptional Attributes Name
integer, intent(out) :: nfl
integer, intent(out) :: nsts

public subroutine open_file_from_environment(env_var_name, fileunit, file_form, file_status)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: env_var_name
integer, intent(out) :: fileunit
character(len=*), intent(in) :: file_form
character(len=*), intent(in), optional :: file_status

public subroutine read_b1rs(b1rsgrid)

Read the magnetic field as a grid in spherical coordinates.

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(out) :: b1rsgrid(0:N_R,0:N_THETA,0:N_PHI)

public subroutine read_maggrid(magfieldgrid, gbgrid)

Read B and grad B from a magnetic grid file

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(out) :: magfieldgrid(0:N_R,0:N_THETA,0:N_PHI,3)
real(kind=real64), intent(out) :: gbgrid(0:N_R,0:N_THETA,0:N_PHI,3)

public subroutine read_param(nodes, nseeds)

Arguments

Type IntentOptional Attributes Name
integer, intent(out) :: nodes
integer, intent(out), allocatable :: nseeds(:)

public subroutine read_seeds(n, nseeds)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
integer, intent(out), allocatable :: nseeds(:)

public subroutine read_shtc(g, h, n)

populate g(:,:), h(:,:)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(out) :: g(0:n,0:n)
real(kind=real64), intent(out) :: h(0:n,0:n)
integer, intent(in) :: n

size of g and h

public subroutine record_nodes(nodes)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nodes

public subroutine write_b1rs(b1rs, map)

writes mapping of magnetic field at a point to the solar surface

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(inout) :: b1rs(0:N_R,0:N_THETA,0:N_PHI,2)
integer, intent(in) :: map(0:N_R,0:N_THETA,0:N_PHI)

public subroutine write_head(nfl, nf)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nfl
integer, intent(in) :: nf

public subroutine write_maggrid(bgrid, gbgrid)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: bgrid(0:N_R,0:N_THETA,0:N_PHI,3)
real(kind=real64), intent(in) :: gbgrid(0:N_R,0:N_THETA,0:N_PHI,3)