|
◆ qcclialloc()
subroutine qcclialloc |
( |
type(qcclitype), intent(inout) |
qccli | ) |
|
Allocazioni di memoria.
- Parametri
-
[in,out] | qccli | Oggetto per il controllo climatico |
Definizione alla linea 689 del file modqccli.F90.
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)) 729 level=qccli%v7d%level(indlevel) Function to check whether a value is missing or not.
|