libsim  Versione 7.1.9

◆ qcclidealloc()

subroutine modqccli::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.