libsim Versione 7.1.11
|
◆ qcclidealloc()
Deallocazione della memoria.
Definizione alla linea 734 del file modqccli.F90. 738
739 ! attenzione attenzione TODO
740 ! se leggo da bufr il default รจ char e non reale
741
743
744!!$ print *,"dato ",qccli%v7d%timerange(indtimerange)
745!!$ print *,"extreme ",qccli%extreme%timerange
746 call l4f_log(l4f_debug,"normalize data Index:"// to_char(indctime)//to_char(indclevel)//&
747 to_char(indctimerange)//to_char(indcdativarr)//to_char(indcnetwork))
748
749 !if (indcana <= 0 .or. indctime <= 0 .or. indclevel <= 0 .or. indctimerange <= 0 .or. indcdativarr <= 0 &
750 ! .or. indcnetwork <= 0 ) cycle
751 if (indctime <= 0 .or. indclevel <= 0 .or. indctimerange <= 0 .or. indcdativarr <= 0 &
752 .or. indcnetwork <= 0 ) then
753 qccli%v7d%voldatir (indana ,indtime ,indlevel ,indtimerange ,&
754 inddativarr, indnetwork ) = rmiss
755 cycle
|