libsim
Versione 7.2.1
modqctem
delete
qctemdelete
◆
qctemdelete()
subroutine qctemdelete
(
type(
qctemtype
), intent(inout)
qctem
)
Cancellazione.
Parametri
[in,out]
qctem
Oggetto per il controllo temporale
Definizione alla linea
537
del file
modqctem.F90
.
538
!!$ call l4f_log(L4F_INFO,"Index:"// t2c(indana)//t2c(indnetwork)//t2c(indlevel)//&
539
!!$ t2c(indtimerange)//t2c(inddativarr)//t2c(indtime))
540
541
542
do
indtime=2,
size
(qctem%v7d%time)-1
543
544
if
(.not.timemaskl(indtime).or. .not. levelmaskl(indlevel).or. &
545
.not. timerangemaskl(indtimerange) .or. .not. varmaskl(inddativarr) .or. .not. networkmaskl(indnetwork)) cycle
546
547
548
datoqui = qctem%v7d%voldatir (indana ,indtime ,indlevel ,indtimerange ,inddativarr, indnetwork )
Generated with
Doxygen
.