25 integer(kind=4),
public :: nobs = 0
26 integer(I4B),
public :: nunit = 0
27 character(len=500),
public :: filename =
''
28 logical(LGP),
public :: empty_line = .true.
29 character(len=LENOBSNAME),
public :: header =
''
30 logical,
public :: formattedoutput = .true.
50 this%empty_line = .true.
67 write (this%nunit,
'(a)', advance=
'YES')
''
82 class(*),
pointer,
intent(inout) :: obj
86 if (.not.
associated(obj))
return
108 character(len=*),
intent(in) :: fname
109 integer(I4B),
intent(in) :: nunit
111 allocate (newobsoutput)
112 newobsoutput%filename = fname
113 newobsoutput%nunit = nunit
126 type(
listtype),
intent(inout) :: list
129 class(*),
pointer :: obj
146 type(
listtype),
intent(inout) :: list
147 integer(I4B),
intent(in) :: idx
150 class(*),
pointer :: obj
152 obj => list%GetItem(idx)
This module contains simulation constants.
integer(i4b), parameter lenbigline
maximum length of a big line
integer(i4b), parameter lenobsname
maximum length of a observation name
This module defines variable data types.
This module defines the derived type ObsOutputType.
subroutine, public addobsoutputtolist(list, obsOutput)
@ brief Add observation output to a list
subroutine writeobslinereturn(this)
@ brief Write line return for observation
subroutine resetobsemptyline(this)
@ brief Reset empty line logical
type(obsoutputtype) function, pointer, public getobsoutputfromlist(list, idx)
@ brief Get observation output from a list
subroutine, public constructobsoutput(newObsOutput, fname, nunit)
@ brief Construct and assign ObsOutputType object
type(obsoutputtype) function, pointer castasobsoutputtype(obj)
@ brief Cast as ObsOutputType
A generic heterogeneous doubly-linked list.