DEALLOCATE_PROFILES_ARRAYS Subroutine

  1. korc_profiles.f90
  2. korc_profiles
  3. DEALLOCATE_PROFILES_ARRAYS

public subroutine DEALLOCATE_PROFILES_ARRAYS(P)

Arguments

Type IntentOptional AttributesName
type(PROFILES), intent(inout) :: P

Called by

proc~~deallocate_profiles_arrays~~CalledByGraph proc~deallocate_profiles_arrays DEALLOCATE_PROFILES_ARRAYS proc~deallocate_variables deallocate_variables proc~deallocate_variables->proc~deallocate_profiles_arrays program~main main program~main->proc~deallocate_variables

Contents

Source Code

DEALLOCATE_PROFILES_ARRAYS

Source Code

  subroutine DEALLOCATE_PROFILES_ARRAYS(P)
    TYPE(PROFILES), INTENT(INOUT)              :: P

    if (ALLOCATED(P%X%R)) DEALLOCATE(P%X%R)
    if (ALLOCATED(P%X%PHI)) DEALLOCATE(P%X%PHI)
    if (ALLOCATED(P%X%Z)) DEALLOCATE(P%X%Z)

    if (ALLOCATED(P%FLAG2D)) DEALLOCATE(P%FLAG2D)
    if (ALLOCATED(P%FLAG3D)) DEALLOCATE(P%FLAG3D)

    if (ALLOCATED(P%ne_2D)) DEALLOCATE(P%ne_2D)
    if (ALLOCATED(P%Te_2D)) DEALLOCATE(P%Te_2D)
    if (ALLOCATED(P%Zeff_2D)) DEALLOCATE(P%Zeff_2D)
    if (ALLOCATED(P%ne_3D)) DEALLOCATE(P%ne_3D)
    if (ALLOCATED(P%Te_3D)) DEALLOCATE(P%Te_3D)
    if (ALLOCATED(P%Zeff_3D)) DEALLOCATE(P%Zeff_3D)

    if (ALLOCATED(P%RHON)) DEALLOCATE(P%RHON)
    if (ALLOCATED(P%nRE_2D)) DEALLOCATE(P%nRE_2D)
    if (ALLOCATED(P%nAr0_2D)) DEALLOCATE(P%nAr0_2D)
    if (ALLOCATED(P%nAr1_2D)) DEALLOCATE(P%nAr1_2D)
    if (ALLOCATED(P%nAr2_2D)) DEALLOCATE(P%nAr2_2D)
    if (ALLOCATED(P%nAr3_2D)) DEALLOCATE(P%nAr3_2D)
    if (ALLOCATED(P%nD_2D)) DEALLOCATE(P%nD_2D)
    if (ALLOCATED(P%nD1_2D)) DEALLOCATE(P%nD1_2D)
    
#ifdef FIO
    if (ALLOCATED(P%FIO_nimp)) DEALLOCATE(P%FIO_nimp)
#endif
    
  end subroutine DEALLOCATE_PROFILES_ARRAYS