|
◆ qcclialloc()
subroutine qcclialloc |
( |
type(qcclitype), intent(inout) |
qccli | ) |
|
Allocazioni di memoria.
- Parametri
-
[in,out] | qccli | Oggetto per il controllo climatico |
Definizione alla linea 684 del file modqccli.F90.
685 if (.not. associated (qccli%in_macroa)) then
686 call l4f_category_log(qccli%category,l4f_warn, "macroarea data not iniziatized: normalize data not possible")
687 qccli%v7d%voldatir=rmiss
692 if (.not. associated(qccli%extreme%voldatir)) then
693 call l4f_category_log(qccli%category,l4f_warn, "qccli%extreme%voldatir not iniziatized: normalize data not possible")
694 qccli%v7d%voldatir=rmiss
699 do indana=1, size(qccli%v7d%ana)
700 iarea= qccli%in_macroa(indana)
702 do indnetwork=1, size(qccli%v7d%network)
703 do indlevel=1, size(qccli%v7d%level)
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)
708 datoqui = qccli%v7d%voldatir (indana ,indtime ,indlevel ,indtimerange ,inddativarr, indnetwork )
710 if (.not. c_e(datoqui)) cycle
712 if (.not. c_e(iarea)) then
713 qccli%v7d%voldatir (indana ,indtime ,indlevel ,indtimerange ,&
714 inddativarr, indnetwork ) = rmiss
723 nintime=qccli%v7d%time(indtime)+timedelta_new(minute=30)
724 CALL getval(nintime, month=mese, hour=ora)
726 time=cyclicdatetime_to_conventional(cyclicdatetime_new(month=mese, hour=ora))
|