Write omega, omega_average as functions of kx, ky and time to the new netcdf file
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(diagnostics_type), | intent(in) | :: | gnostics |
subroutine write_omega(gnostics)
use gs2_time, only: woutunits
use diagnostics_config, only: diagnostics_type
use gs2_io, only: nc_write_omega
implicit none
type(diagnostics_type), intent(in) :: gnostics
if (.not. gnostics%writing) return
call nc_write_omega(gnostics%file_id, gnostics%nout, &
omegahist(mod(gnostics%istep, gnostics%navg), :, :), omega_average, woutunits)
end subroutine write_omega