do_write_movie Subroutine

private subroutine do_write_movie(time)

Uses

Transform to real space, then write to netCDF

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: time

Current simulation time

Contents

Source Code

do_write_movie

Source Code

  subroutine do_write_movie(time)
    use gs2_io, only: nc_loop_movie, get_netcdf_movie_file_id
    use mp, only: proc0
    implicit none
    !> Current simulation time
    real, intent(in) :: time

    if (proc0) then
       call nc_loop_movie(get_netcdf_movie_file_id(), nout_movie, time)
    end if
    nout_movie = nout_movie + 1
  end subroutine do_write_movie