|
◆ qcclialloc()
subroutine modqccli::qcclialloc |
( |
type(qcclitype), intent(inout) |
qccli | ) |
|
|
private |
Allocazioni di memoria.
- Parametri
-
[in,out] | qccli | Oggetto 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) 708 datoqui = qccli%v7d%voldatir (indana ,indtime ,indlevel ,indtimerange 710 if (.not. c_e(datoqui)) cycle 712 if (.not. c_e(iarea)) then 713 qccli%v7d%voldatir (indana ,indtime ,indlevel ,indtimerange 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 729 level=qccli%v7d%level(indlevel) 735 indctime = index(qccli%extreme%time 742 indcdativarr = index(qccli%extreme%dativar%r, qccli%v7d%dativar%r 746 call l4f_log(l4f_debug, "normalize data Index:"
|