libsim Versione 7.2.1

◆ qcclidealloc()

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

Deallocazione della memoria.

Parametri
[in,out]qccliOggetto per l controllo climatico

Definizione alla linea 728 del file modqccli.F90.

729 level=qccli%v7d%level(indlevel)
730
731 indcnetwork = 1
732
733 !indcana = firsttrue(qccli%extreme%ana == ana)
734
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 &
Index method.

Generated with Doxygen.