libsim Versione 7.1.11

◆ qctemdelete()

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

Cancellazione.

Parametri
[in,out]qctemOggetto per il controllo temporale

Definizione alla linea 533 del file modqctem.F90.

534 qctem%v7d%dativar%r(inddativarr)
535 end if
536 end if
537
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. &

Generated with Doxygen.