Allocazioni di memoria.
599 qcspa%v7d%voldatiattrb(:,:,:,:,:,:,indbattrout)=ibmiss
604 call vol7d_normalize_data(qcspa%qccli)
616 time=cyclicdatetime_to_conventional(cyclicdatetime_new(chardate=
"/////////"))
620 if (qcspa%operation ==
"run")
then 621 call init(network,
"qcspa-ndi")
623 indcnetwork =
index(qcspa%clima%network , network)
624 indctime =
index(qcspa%clima%time , time)
627 do indtime=1,
size(qcspa%v7d%time)
628 if (.not.timemaskl(indtime)) cycle
629 call l4f_category_log(qcspa%category,l4f_info,&
630 "Check time:"//
t2c(qcspa%v7d%time(indtime)) )
632 do indlevel=1,
size(qcspa%v7d%level)
633 do indtimerange=1,
size(qcspa%v7d%timerange)
634 do inddativarr=1,
size(qcspa%v7d%dativar%r)
636 ind=index_c(spa_btable,qcspa%v7d%dativar%r(inddativarr)%btable)
Functions that return a trimmed CHARACTER representation of the input variable.
Costruttori per le classi datetime e timedelta.