historyvarinfoclear.f90 File Reference

Destructor of GT_HISTORY_VARINFO . More...

Go to the source code of this file.

Functions/Subroutines
subroutine	historyvarinfoclear0 (varinfo, err)

Detailed Description

Destructor of GT_HISTORY_VARINFO

.

Author

Yasuhiro MORIKAWA

Copyright

Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. See COPYRIGHT in detail

Definition in file historyvarinfoclear.f90.

Function/Subroutine Documentation

historyvarinfoclear0()

subroutine historyvarinfoclear0	(	type(gt_history_varinfo), intent(inout)	varinfo,
		logical, intent(out), optional	err
	)

Clear GT_HISTORY_VARINFO variable

Initializes the variable varinfo to the state before HistoryVarinfoCreate initialization.

Parameters

[in,out]	varinfo	Variable information
[out]	err	Error flag (optional)

Definition at line 34 of file historyvarinfoclear.f90.

    use dc_error, only: storeerror, dc_noerr, dc_enotinit
    use gtool_history_types, only: gt_history_varinfo
    use dc_trace, only: beginsub, endsub
    use dc_types, only: string
    implicit none
    type(GT_HISTORY_VARINFO),intent(inout) :: varinfo
    logical, intent(out), optional:: err
                              ! 例外処理用フラグ. 
                              ! デフォルトでは, この手続き内でエラーが
                              ! 生じた場合, プログラムは強制終了します. 
                              ! 引数 *err* が与えられる場合, 
                              ! プログラムは強制終了せず, 代わりに
                              ! *err* に .true. が代入されます. 
                              !
                              ! Exception handling flag. 
                              ! By default, when error occur in 
                              ! this procedure, the program aborts. 
                              ! If this *err* argument is given, 
                              ! .true. is substituted to *err* and 
                              ! the program does not abort. 
 
    integer:: stat
    character(STRING):: cause_c
    character(len = *), parameter:: subname = "HistoryVarinfoClear1"
  continue
    call beginsub(subname)
    stat = dc_noerr
    cause_c = ''
 
    if ( .not. varinfo % initialized ) then
      stat = dc_enotinit
      cause_c = 'GT_HISTORY_VARINFO'
      goto 999
    end if
 
    varinfo % name     = ""
    varinfo % longname = ""
    varinfo % units    = ""
    varinfo % xtype    = ""
    if (associated(varinfo % attrs)) then
      deallocate(varinfo % attrs)
    end if
 
    varinfo % initialized = .false.
999 continue
    call storeerror( stat, subname, err, cause_c )
    call endsub(subname)

References dc_trace::beginsub(), dc_error::dc_enotinit, dc_error::dc_noerr, dc_trace::endsub(), dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function: