var_set_bfield Function

public function var_set_bfield(ndir) result(iw)

Set magnetic field variables

Arguments

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

Return Value integer, (ndir)


Calls

proc~~var_set_bfield~~CallsGraph proc~var_set_bfield var_set_bfield proc~errormsg errormsg proc~var_set_bfield->proc~errormsg

Called by

proc~~var_set_bfield~~CalledByGraph proc~var_set_bfield var_set_bfield proc~phys_init~2 phys_init proc~phys_init~2->proc~var_set_bfield proc~phys_activate~2 phys_activate proc~phys_activate~2->proc~phys_init~2

Source Code

  function var_set_bfield(ndir) result(iw)
    integer, intent(in) :: ndir
    integer             :: iw(ndir), idir

    if (allocated(iw_mag)) call errormsg("Error: set_mag was already called")
    allocate(iw_mag(ndir))

    do idir = 1, ndir
      nwflux       = nwflux + 1
      nwfluxbc     = nwfluxbc + 1
      nw           = nw + 1
      iw_mag(idir) = nwflux
      iw(idir)     = nwflux
      write(cons_wnames(nwflux),"(A1,I1)") "b", idir
      write(prim_wnames(nwflux),"(A1,I1)") "b", idir
   end do
   
  end function var_set_bfield