This module contains the ObsUtilityModule module. More...

Functions/Subroutines
subroutine, public	write_fmtd_obs (fmtc, obsrv, obsOutputList, value)
	@ brief Write formatted observation More...

subroutine, public	write_unfmtd_obs (obsrv, iprec, obsOutputList, value)
	@ brief Write unformatted observation More...

Detailed Description

This module contains subroutines for writing simulated values stored in objects of ObserveType to output files. The subroutines handle continuous observations, and can write values to either formatted or unformatted files.

Function/Subroutine Documentation

◆ write_fmtd_obs()

subroutine, public obsutilitymodule::write_fmtd_obs	(	character(len=*), intent(in)	fmtc,
		type(observetype), intent(inout)	obsrv,
		type(obsoutputlisttype), intent(inout), pointer	obsOutputList,
		real(dp), intent(in)	value
	)

Subroutine to write observation data for the end of a time step to a formatted file. If the simulation time has not been written to for the current time step, totim is written. The simulated value is written in the format specified in the fmtc argument.

Parameters

[in]	fmtc	observation format
[in,out]	obsrv	observation type
[in,out]	obsoutputlist	observation list
[in]	value	observation

Definition at line 33 of file ObsUtility.f90.

     ! -- dummy
     character(len=*), intent(in) :: fmtc !< observation format
     type(ObserveType), intent(inout) :: obsrv !< observation type
     type(ObsOutputListType), pointer, intent(inout) :: obsOutputList !< observation list
     real(DP), intent(in) :: value !< observation
     ! -- local
     integer(I4B) :: indx
     integer(I4B) :: nunit
     character(len=20) :: ctotim
     character(len=50) :: cval
     type(ObsOutputType), pointer :: ObsOutput => null()
     ! -- output unit
     nunit = obsrv%UnitNumber
     !
     indx = obsrv%indxObsOutput
     obsoutput => obsoutputlist%Get(indx)
     if (obsoutput%empty_line) then
       obsoutput%empty_line = .false.
       write (ctotim, '(G20.13)') totim
     else
       ctotim = ''
     end if
     ! -- append value to output line
     write (cval, fmtc) value
     write (nunit, '(3a)', advance='NO') &
       trim(adjustl(ctotim)), ',', trim(adjustl(cval))
     !
     ! -- flush the file
     !    Added flush after each non-advancing write to resolve
     !    issue with ifort (IFORT) 19.1.0.166 20191121 for Linux
     !    that occurred on some Linux systems.
     flush (nunit)
     !
     ! -- return
     return

Here is the caller graph for this function:

◆ write_unfmtd_obs()

subroutine, public obsutilitymodule::write_unfmtd_obs	(	type(observetype), intent(inout)	obsrv,
		integer(i4b), intent(in)	iprec,
		type(obsoutputlisttype), intent(inout), pointer	obsOutputList,
		real(dp), intent(in)	value
	)

Subroutine to write observation data for the end of a time step to a unformatted file. If the simulation time has not been written for the current time step, totim is written. The simulated value is written using the precision specified in the iprec argument.

iprec = 1: real32 specifies 32-bit real = 4 bytes = single precision. iprec = 2: real64 specifies 64-bit real = 8 bytes = double precision.