From 2ea7abfb8a7454e430fde8ee799871a30eeb119e Mon Sep 17 00:00:00 2001 From: Peter Hill Date: Wed, 24 Nov 2021 14:41:10 +0000 Subject: [PATCH] Add description of `rpts`, `zpts` in netCDF file --- src/outcdf.f90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/outcdf.f90 b/src/outcdf.f90 index 98c0ba6..f1a8418 100644 --- a/src/outcdf.f90 +++ b/src/outcdf.f90 @@ -327,8 +327,10 @@ subroutine write_netcdf(header) if (debug) print *, 'Defined TGLF variables' - call neasyf_write(ncid, "rpts", rpts, dim_ids=dimids2d, units='m') - call neasyf_write(ncid, "zpts", zpts, dim_ids=dimids2d, units='m') + call neasyf_write(ncid, "rpts", rpts, dim_ids=dimids2d, units='m', & + long_name="Flux surface R points") + call neasyf_write(ncid, "zpts", zpts, dim_ids=dimids2d, units='m', & + long_name="Flux surface Z points") call neasyf_write(ncid, "bppts", bppts, dim_ids=dimids2d, units='T') call write_input_parameters(ncid)