libsim  Versione6.3.0

◆ qcclialloc()

subroutine qcclialloc ( type(qcclitype), intent(inout)  qccli)

Allocazioni di memoria.

Parametri
[in,out]qccliOggetto per il controllo climatico

Definizione alla linea 704 del file modqccli.F90.

704  do indtimerange=1,size(qccli%v7d%timerange)
705  do inddativarr=1,size(qccli%v7d%dativar%r)
706  do indtime=1,size(qccli%v7d%time)
707 
708  datoqui = qccli%v7d%voldatir (indana ,indtime ,indlevel ,indtimerange ,inddativarr, indnetwork )
709 
710  if (.not. c_e(datoqui)) cycle
711 
712  if (.not. c_e(iarea)) then
713  qccli%v7d%voldatir (indana ,indtime ,indlevel ,indtimerange ,&
714  inddativarr, indnetwork ) = rmiss
715  cycle
716  end if
717 
718 !!$ if (indbattrinv > 0) then
719 !!$ if( invalidated(qccli%v7d%voldatiattrb&
720 !!$ (indana,indtime,indlevel,indtimerange,inddativarr,indnetwork,indbattrinv))) cycle
721 !!$ end if
722 
723  nintime=qccli%v7d%time(indtime)+timedelta_new(minute=30)
724  CALL getval(nintime, month=mese, hour=ora)
725 
726  time=cyclicdatetime_to_conventional(cyclicdatetime_new(month=mese, hour=ora))
727  !call init(time, year=1001, month=mese, day=1, hour=ora, minute=01)
728 
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))
Index method.
Restituiscono il valore dell'oggetto in forma di stringa stampabile.
Restituiscono il valore dell'oggetto nella forma desiderata.

Generated with Doxygen.