|
◆ dbasession_init()
recursive type(dbasession) function dballe_class::dbasession_init |
( |
type(dbaconnection), intent(in), optional |
connection, |
|
|
character (len=*), intent(in), optional |
anaflag, |
|
|
character (len=*), intent(in), optional |
dataflag, |
|
|
character (len=*), intent(in), optional |
attrflag, |
|
|
character (len=*), intent(in), optional |
filename, |
|
|
character (len=*), intent(in), optional |
mode, |
|
|
character(len=*), intent(in), optional |
format, |
|
|
character (len=*), intent(in), optional |
template, |
|
|
logical, intent(in), optional |
write, |
|
|
logical, intent(in), optional |
wipe, |
|
|
character(len=*), intent(in), optional |
repinfo, |
|
|
logical, intent(in), optional |
simplified, |
|
|
logical, intent(in), optional |
memdb, |
|
|
logical, intent(in), optional |
loadfile, |
|
|
character(len=*), intent(in), optional |
categoryappend |
|
) |
| |
|
private |
Constructor Without parameter it is initialized to missing.
- Parametri
-
[in] | connection | dballe connection |
[in] | anaflag | controls access to pseudoana records and can have these values "read": pseudoana records cannot be modified; "write": pseudoana records can be added and removed. |
[in] | dataflag | control access to observed data and can have these values "read": data cannot be modified in any way; "add": data can be added to the database, but existing data cannot be modified. Deletions are disabled. This is used to insert new data in the database while preserving the data that was already present in it; "write": data can freely be added, overwritten and deleted. |
[in] | attrflag | controls access to data attributes and can have these values "read": attributes cannot be modified in any way; "write": attributes can freely be added, overwritten and deleted. Note that some combinations are illegal, such as pseudoana=read and data=add (when adding a new data, it's sometimes necessary to insert new pseudoana records), or data=rewrite and attr=read (when deleting data, their attributes are deleted as well). |
[in] | filename | optional file name to use |
[in] | mode | "r"/"w"/"a" the open mode ("r" for read, "w" for write or create, "a" for append) |
[in] | template | template to use for write on file |
[in] | write | enable write on DSN/file ( default=.false. ) |
[in] | wipe | clean DSN/file and initialize it ( default=.false. ) |
[in] | repinfo | optional file repinfo.csv to use with wipe ( default="" ) |
[in] | format | the file format. It can be "BUFR" or "CREX". (default="BUFR") |
[in] | simplified | rappresentation for interpreted message (simplified/precise) |
[in] | memdb | if true set a memdb ready for import data from file (default=true if filename present else false) |
[in] | loadfile | if true import from file to memdb (default=true if filename present else false) |
[in] | categoryappend | name to append to namespace category of log4fortran |
Definizione alla linea 4042 del file dballe_class.F03.
4046 ier = idba_messaggi(dbasession_init%sehandle,filename, lmode, lformat) 4052 ier = idba_preparati(connection%dbhandle,dbasession_init%sehandle, lanaflag, ldataflag, lattrflag) 4053 if (lwipe)ier=idba_scopa(dbasession_init%sehandle,lrepinfo) 4057 dbasession_init%file=lfile 4058 if (dbasession_init%file) dbasession_init%filename=filename 4059 dbasession_init%mode=lmode 4060 dbasession_init%format=lformat 4061 dbasession_init%simplified=lsimplified 4062 dbasession_init%memdb=lmemdb 4063 dbasession_init%loadfile=lloadfile 4064 dbasession_init%template=ltemplate 4077 end function dbasession_init 4081 subroutine dbasession_unsetall(session) 4082 class(dbasession), intent(in) :: session 4085 if ( c_e(session%sehandle)) then 4086 ier = idba_unsetall(session%sehandle) 4089 end subroutine dbasession_unsetall 4093 subroutine dbasession_remove_all(session) 4094 class(dbasession), intent(in) :: session 4097 if ( c_e(session%sehandle)) then 4098 ier = idba_remove_all(session%sehandle) 4101 end subroutine dbasession_remove_all 4105 subroutine dbasession_prendilo(session) 4106 class(dbasession), intent(in) :: session 4109 if ( c_e(session%sehandle)) then 4110 ier = idba_prendilo(session%sehandle) 4113 end subroutine dbasession_prendilo 4116 subroutine dbasession_var_related(session,btable) 4117 class(dbasession), intent(in) :: session 4118 character(len=*), INTENT(IN) :: btable 4121 if ( c_e(session%sehandle)) then 4122 ier = idba_set(session%sehandle, "*var_related",btable) 4125 end subroutine dbasession_var_related 4128 subroutine dbasession_setcontextana(session) 4129 class(dbasession), intent(in) :: session 4132 if ( c_e(session%sehandle)) then 4133 ier = idba_setcontextana(session%sehandle) 4136 end subroutine dbasession_setcontextana 4139 subroutine dbasession_dimenticami(session) 4140 class(dbasession), intent(in) :: session 4143 if ( c_e(session%sehandle)) then 4144 ier = idba_dimenticami(session%sehandle) 4147 end subroutine dbasession_dimenticami 4150 subroutine dbasession_critica(session) 4151 class(dbasession), intent(in) :: session 4154 if ( c_e(session%sehandle)) then 4155 ier = idba_critica(session%sehandle) 4158 end subroutine dbasession_critica 4161 subroutine dbasession_scusa(session) 4162 class(dbasession), intent(in) :: session 4165 if ( c_e(session%sehandle)) then 4166 ier = idba_scusa(session%sehandle) 4169 end subroutine dbasession_scusa 4172 subroutine dbasession_set(session,metadata,datav,data,datetime,ana,network,level,timerange,filter) 4173 class(dbasession), intent(in) :: session 4174 type(dbametadata), optional :: metadata 4175 class(dbadcv), optional :: datav 4176 class(dbadata), optional :: data 4177 type(dbadatetime), optional :: datetime 4178 type(dbaana), optional :: ana 4179 type(dbanetwork), optional :: network 4180 type(dbalevel), optional :: level 4181 type(dbatimerange), optional :: timerange 4182 type(dbafilter), optional :: filter 4184 if ( present(metadata)) then 4185 call metadata%dbaset(session) 4192 if ( present(ana)) then 4193 call ana%dbaset(session) 4196 if ( present(network)) then 4197 call network%dbaset(session) 4200 if ( present(level)) then 4201 call level%dbaset(session) 4204 if ( present(timerange)) then 4205 call timerange%dbaset(session) 4208 if ( present(datav)) then 4209 call datav%dbaset(session) 4212 if ( present(data)) then 4213 call data%dbaset(session) 4216 if ( present(filter)) then 4217 call filter%dbaset(session) 4220 end subroutine dbasession_set Class for expressing an absolute time value.
|