mod_nctools::nc_make_runtime_att_chr Interface Reference

Public Member Functions
type(ncatt) function, pointer	nc_make_runtime_att_chr_scl (NAME, VALUES)
type(ncatt) function, pointer	nc_make_runtime_att_chr_vec (NAME, VALUES)

Detailed Description

Definition at line 64 of file mod_nctools.f90.

Member Function/Subroutine Documentation

nc_make_runtime_att_chr_scl()

type(ncatt) function, pointer mod_nctools::nc_make_runtime_att_chr::nc_make_runtime_att_chr_scl	(	character(len=*), intent(in)	NAME,
		character(len=*), intent(in)	VALUES
	)

Definition at line 662 of file mod_nctools.f90.

  ! NAME IS FIXED, BUT VALUES ARE SENT BY MPI IF NEEDED
  USE control
  IMPLICIT NONE
  TYPE(NCATT), POINTER :: ATT
  character(len=*), intent(in) :: name
  character(len=*), intent(in) :: VALUES
  integer :: ierr, len, DEST,SOURCE
  integer, parameter :: tag = 40004

  att => new_att()

  att%attid   = -1
  att%ATTname = trim(name)
  att%xtype   = nf90_char

  IF (.NOT. ioproc) THEN
     ALLOCATE(att%CHR(1))
     att%CHR = trim(values)
     att%LEN     = len_trim(values)
  END IF

  IF (use_mpi_io_mode) THEN
  END IF

  IF(att%len==0) CALL kill_att(att)

  

nc_make_runtime_att_chr_vec()

type(ncatt) function, pointer mod_nctools::nc_make_runtime_att_chr::nc_make_runtime_att_chr_vec	(	character(len=*), intent(in)	NAME,
		character(len=*), dimension(:), intent(in), allocatable	VALUES
	)

Definition at line 693 of file mod_nctools.f90.

  ! NAME IS FIXED, BUT VALUES ARE SENT BY MPI IF NEEDED
  USE control
  IMPLICIT NONE
  TYPE(NCATT), POINTER :: ATT
  character(len=*), intent(in) :: name
  character(len=*),ALLOCATABLE, intent(in) :: VALUES(:)
  integer :: ierr, len, DEST,SOURCE,I,csize
  integer, parameter :: tag = 40004

!  if(len_trim(VALUES) .GT. Char_max_attlen) & 
!       & Call fatal_error("Can not make attribute: "//trim(NAME),&
!       &"attribute string is too long. Increase 'char_max_attlen' in mod_ncll.F")
  att => new_att()

  att%attid   = -1
  att%ATTname = trim(name)
  att%xtype   = nf90_char

  IF (.NOT. ioproc .and. allocated(values)) THEN
     ALLOCATE(att%CHR(SIZE(values)))
     att%CHR = values
     att%LEN     = -1
  END IF

  IF (use_mpi_io_mode) THEN
  END IF

  IF(.not.allocated(att%chr)) call kill_att(att)

  

---

The documentation for this interface was generated from the following file:

• FVCOMg01/mod_nctools.f90