finalize_fio Subroutine

  1. korc_fio_interface.f90
  2. korc_fio
  3. finalize_fio

public subroutine finalize_fio(params, F, P)

Arguments

Type IntentOptional AttributesName
type(KORC_PARAMS), intent(in) :: params
type(FIELDS), intent(in) :: F
type(PROFILES), intent(inout) :: P

Calls

proc~~finalize_fio~~CallsGraph proc~finalize_fio finalize_fio interface~fio_close_field fio_close_field proc~finalize_fio->interface~fio_close_field interface~fio_close_source fio_close_source proc~finalize_fio->interface~fio_close_source

Called by

proc~~finalize_fio~~CalledByGraph proc~finalize_fio finalize_fio program~main main program~main->proc~finalize_fio

Contents

Source Code

finalize_fio

Source Code

  SUBROUTINE finalize_fio(params, F, P)
    TYPE(KORC_PARAMS), INTENT(IN)           :: params
    TYPE(FIELDS), INTENT(IN)                :: F
    TYPE(PROFILES), INTENT(INOUT)              :: P
    INTEGER                                    :: status
    INTEGER                                    :: ii

    status = fio_close_field(F%FIO_B)
    status = fio_close_field(F%FIO_B+1)
    if (F%FIO_A.gt.0) then
       status = fio_close_field(F%FIO_A)
    endif
       
    status = fio_close_field(P%FIO_ne)
    if (P%FIO_te.gt.0) then
       status = fio_close_field(P%FIO_te)
    endif
    if (P%FIO_ni.gt.0) then
       status = fio_close_field(P%FIO_ni)
    endif
       
    if (params%collisions) then
       do ii=1,params%num_impurity_species
          status = fio_close_field(P%FIO_nimp(ii))
       end do
    end if

    status=fio_close_source(F%isrc)
    
  end SUBROUTINE FINALIZE_FIO