libsim Versione 7.2.4
|
◆ qctemdelete()
Cancellazione.
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)//&
|