gdncfiledefinemode.f90

Go to the documentation of this file.

!>
!> @file gdncfiledefinemode.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 define mode
!> @enden
!>
!> @ja
!> @brief netCDF ファイルを定義モードに切り替え
!> @endja
!>
 
!>
!> @en
!> @brief Switch netCDF file to define mode
!>
!> Calls nf90_redef to enter define mode. If the file is already in
!> define mode, returns NF90_NOERR instead of an error.
!> @enden
!>
!> @ja
!> @brief netCDF ファイルを定義モードに切り替え
!>
!> nf90_redef を呼び出して定義モードに入ります。
!> 既に定義モードの場合はエラーではなく 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 gdncfiledefinemode(fileid) result(result)
  use netcdf, only: nf90_redef, nf90_eindefine, nf90_noerr
  use dc_trace, only: beginsub, endsub, dbgmessage
  integer, intent(in):: fileid
  character(*), parameter:: subname = "GDNcFileDefineMode"
continue
  call dbgmessage(subname // ' %d', i=(/fileid/))
  result = nf90_redef(fileid)
  if (result == nf90_eindefine) result = nf90_noerr
end function gdncfiledefinemode