nc_finish Subroutine

public subroutine nc_finish()

Uses

    • neasyf
    • mp

Close the output netCDF files

Arguments

None

Contents

Source Code

nc_finish

Source Code

  subroutine nc_finish
# ifdef NETCDF
    use mp, only: proc0
    use neasyf, only: neasyf_close
    implicit none

    if (proc0) then
       call neasyf_close(ncid)
       if (ncid_movie >= 0) then
          call neasyf_close(ncid_movie)
        endif
    end if
# endif
  end subroutine nc_finish