gtvartmpnam.f90 File Reference

Auto-create variable name. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gtvartmpnam (file, base, result)

Detailed Description

Auto-create variable name.

Author

Eizi TOYODA, 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 gtvartmpnam.f90.

Function/Subroutine Documentation

gtvartmpnam()

subroutine gtvartmpnam	(	character(len = *), intent(in)	file,
		character(len = *), intent(in)	base,
		character(len = *), intent(out)	result
	)

Create unique variable name

Creates file@base from filename file and variable name base, returns in result. If file is empty, gtool.nc is used as the filename. If base is empty, tmp is used as the variable name.

Parameters

[in]	file	Filename
[in]	base	Base variable name
[out]	result	Generated unique variable URL

Definition at line 46 of file gtvartmpnam.f90.

  use dc_types, only: string
  use dc_url, only: urlmerge
  use gtdata_generic, only: open, close
  use gtdata_types, only: gt_variable
  implicit none
  character(len = *), intent(in):: file
  character(len = *), intent(in):: base
  character(len = *), intent(out):: result
  type(GT_VARIABLE):: var
  integer:: n
  logical:: failed
  character(len = STRING):: fnam, vnam, vnambase
continue
  if (file == "") then
    fnam = "gtool.nc"
  else
    fnam = file
  endif
  if (base == "") then
    vnambase = "tmp"
  else
    vnambase = base
  endif
  n = 0
  do
    n = n + 1
    ! compatibility note (2001-12-02, TOYODA Eizi)
    ! dc_string の toChar を使いたいのだが FQS Fortran が失敗する
    write(unit=vnam, fmt="(i32)") n
    vnam = trim(vnambase) // trim(adjustl(vnam))
    result = urlmerge(file=fnam, var=vnam)
    call open(var, result, writable=.false., err=failed)
    if (failed) return
    call close(var)
  enddo

References dc_types::string.