libsim Versione 7.1.11
|
◆ dbafilter_equal_dbametadata()
equal operator for dbafilter and dbametadata
Definizione alla linea 2108 del file dballe_class.F03. 2109
2110if (present(var)) then
2111 dbafilter_init%var=var
2112else if (nopreserve) then
2113 dbafilter_init%var=cmiss
2114end if
2115
2116if (present(datetime)) then
2117 dbafilter_init%datetime=datetime
2118else if (nopreserve) then
2119 dbafilter_init%datetime=dbadatetime()
2120end if
2121
2122if (present(level)) then
2123 dbafilter_init%level=level
2124else if (nopreserve) then
2125 dbafilter_init%level=dbalevel()
2126end if
2127
2128if (present(timerange)) then
2129 dbafilter_init%timerange=timerange
2130else if (nopreserve) then
2131 dbafilter_init%timerange=dbatimerange()
2132end if
2133
2134if (present(network)) then
2135 dbafilter_init%network=network
2136else if (nopreserve) then
2137 dbafilter_init%network=dbanetwork()
2138end if
2139
2140if (present(datetimemin)) then
2141 dbafilter_init%datetimemin=datetimemin
|