Write the physical normalisations to the output netCDF file Write the physical normalisations to the output netCDF file
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | file_id |
NetCDF ID of the file to write to |
subroutine nc_norms(file_id)
#ifdef NETCDF
use neasyf, only: neasyf_write
use normalisations, only: norms
#endif
!> NetCDF ID of the file to write to
integer, intent(in) :: file_id
#ifdef NETCDF
call neasyf_write(file_id, "mref", norms%get_value("mref"), &
long_name="Reference mass in atomic mass units ", units="a.m.u.")
call neasyf_write(file_id, "zref", norms%get_value("zref"), &
long_name="Reference charge", units="proton charge")
call neasyf_write(file_id, "nref", norms%get_value("nref"), &
long_name="The reference density ", units="m^-3")
call neasyf_write(file_id, "tref", norms%get_value("tref"), &
long_name="The reference temperature ", units="eV")
call neasyf_write(file_id, "aref", norms%get_value("aref"), &
long_name="The reference length ", units="m")
call neasyf_write(file_id, "vref", norms%get_value("vref"), &
long_name="The reference (thermal) velocity ", units="m/s")
call neasyf_write(file_id, "bref", norms%get_value("bref"), &
long_name="The reference magnetic field ", units="Tesla")
call neasyf_write(file_id, "rhoref", norms%get_value("rhoref"), &
long_name="The reference larmour radius ", units="m")
#endif
end subroutine nc_norms