nc_loop_partsym_tormom Subroutine

public subroutine nc_loop_partsym_tormom(file_id, nout, partflx_sym)

Write the particle flux contribution to toroidal momentum flux to netCDF

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: file_id

NetCDF ID of the file to write to

integer, intent(in) :: nout

Current timestep

real, intent(in), dimension (-ntgrid:,:,:) :: partflx_sym

Contents


Source Code

  subroutine nc_loop_partsym_tormom (file_id, nout, partflx_sym)
    use theta_grid, only: ntgrid
# ifdef NETCDF
    use run_parameters, only: has_phi
    use neasyf, only: neasyf_write
# endif
    implicit none
    !> NetCDF ID of the file to write to
    integer, intent(in) :: file_id
    !> Current timestep
    integer, intent (in) :: nout
    real, dimension (-ntgrid:,:,:), intent (in) :: partflx_sym
# ifdef NETCDF

    if (has_phi) then
       call neasyf_write(file_id, "es_part_tormom_sym", partflx_sym, &
            dim_names=sym_dims, start=starts(4, nout), &
            long_name="Particle flux density as a function theta and vspace, used for looking at the effect of asymmetry, &
            & see Parra et al POP 18 062501 2011 and ask Jung-Pyo Lee")
    end if

# endif
  end subroutine nc_loop_partsym_tormom