libsim Versione 7.2.1

◆ qctemdelete()

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

Cancellazione.

Parametri
[in,out]qctemOggetto per il controllo temporale

Definizione alla linea 527 del file modqctem.F90.

528 ! say we have to write header in file
529 if (.not. exist) then
530 call l4f_category_log(qctem%category,l4f_info,"write header in gradient file")
531 write (grunit,*) &
532 qctem%v7d%level(indlevel), &
533 qctem%v7d%timerange(indtimerange), &
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)//&

Generated with Doxygen.