init_profiles_overrides Subroutine

public subroutine init_profiles_overrides(self, nspec)

Type Bound

profiles_overrides_type

Arguments

Type IntentOptional Attributes Name
class(profiles_overrides_type), intent(inout) :: self
integer, intent(in) :: nspec

Contents


Source Code

subroutine init_profiles_overrides(self, nspec)
  class(profiles_overrides_type), intent(in out) :: self
  integer, intent(in) :: nspec
  if (self%init) return
  self%init = .true.
allocate(self%override_dens(nspec), self%dens(nspec))
self%override_dens = .false.
allocate(self%override_temp(nspec), self%temp(nspec))
self%override_temp = .false.
allocate(self%override_tprim(nspec), self%tprim(nspec))
self%override_tprim = .false.
allocate(self%override_fprim(nspec), self%fprim(nspec))
self%override_fprim = .false.
allocate(self%override_vnewk(nspec), self%vnewk(nspec))
self%override_vnewk = .false.
end subroutine init_profiles_overrides