libsim Versione 7.1.11

◆ qcclidealloc()

subroutine qcclidealloc ( type(qcclitype), intent(inout)  qccli)
private

Deallocazione della memoria.

Parametri
[in,out]qccliOggetto per l controllo climatico

Definizione alla linea 734 del file modqccli.F90.

735 indctime = index(qccli%extreme%time , time)
736 indclevel = index(qccli%extreme%level , level)
737 indctimerange = index(qccli%extreme%timerange , qccli%v7d%timerange(indtimerange))
738
739 ! attenzione attenzione TODO
740 ! se leggo da bufr il default รจ char e non reale
741
742 indcdativarr = index(qccli%extreme%dativar%r, qccli%v7d%dativar%r(inddativarr))
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
Index method.

Generated with Doxygen.