gdncfiledatamode.f90

Go to the documentation of this file.

!>
!> @file gdncfiledatamode.f90
!>
!> @author Yasuhiro MORIKAWA, Eizi TOYODA
!> @copyright Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved. <br/>
!>            License is BSD-2-Clause. See [COPYRIGHT](@ref COPYRIGHT) in detail
!>
!> @en
!> @brief Switch netCDF file to data mode
!> @enden
!>
!> @ja
!> @brief netCDF ファイルをデータモードに切り替え
!> @endja
!>
 
!>
!> @en
!> @brief Switch netCDF file to data mode
!>
!> Calls nf90_enddef to exit define mode. If the file is already in
!> data mode, returns NF90_NOERR instead of an error.
!> @enden
!>
!> @ja
!> @brief netCDF ファイルをデータモードに切り替え
!>
!> nf90_enddef を呼び出して定義モードを終了します。
!> 既にデータモードの場合はエラーではなく NF90_NOERR を返します。
!> @endja
!>
!> @param[in] fileid @en netCDF file ID @enden @ja netCDF ファイル ID @endja
!> @return           @en Status code (NF90_NOERR on success) @enden @ja ステータスコード (成功時は NF90_NOERR) @endja
!>
integer function gdncfiledatamode(fileid) result(result)
  use netcdf, only: nf90_enddef, nf90_enotindefine, nf90_noerr
  use dc_trace, only: dbgmessage
  implicit none
  integer, intent(in):: fileid
  character(*), parameter:: subname = "GDNcFileDataMode"
continue
  call dbgmessage(subname)
  result = nf90_enddef(fileid)
  if (result == nf90_enotindefine) result = nf90_noerr
end function gdncfiledatamode