Add description of rpts, zpts in netCDF file

PlasmaFAIR · Nov 24, 2021 · 2ea7abf · 2ea7abf
1 parent 71c2d26
commit 2ea7abf
Showing 1 changed file with 4 additions and 2 deletions.
diff --git 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)