ALLOCATE_V_FIELD_2D Subroutine

  1. korc_fields.f90
  2. korc_fields
  3. ALLOCATE_V_FIELD_2D

private subroutine ALLOCATE_V_FIELD_2D(F, dims)

@brief Subroutine that allocates the cylindrical components of an axisymmetric field.

@param[in,out] F Vector field to be allocated. @param[in] dims Dimension of the mesh containing the field data.

Arguments

Type IntentOptional AttributesName
type(V_FIELD_2D), intent(inout) :: F
integer, intent(in), DIMENSION(3):: dims

Contents

Source Code

ALLOCATE_V_FIELD_2D

Source Code

  subroutine ALLOCATE_V_FIELD_2D(F,dims)
    TYPE(V_FIELD_2D), INTENT(INOUT)    :: F
    INTEGER, DIMENSION(3), INTENT(IN)  :: dims

    ALLOCATE(F%R(dims(1),dims(3)))
    ALLOCATE(F%PHI(dims(1),dims(3)))
    ALLOCATE(F%Z(dims(1),dims(3)))
  end subroutine ALLOCATE_V_FIELD_2D