Write the particle flux contribution to toroidal momentum flux to netCDF
Type | Intent | Optional | 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 |
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