libsim  Versione 7.2.4

◆ qctemdelete()

subroutine qctemdelete ( type(qctemtype), intent(inout)  qctem)

Cancellazione.

Parametri
[in,out]qctemOggetto 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.