|
◆ qcspaalloc()
subroutine modqcspa::qcspaalloc |
( |
type(qcspatype), intent(inout) |
qcspa | ) |
|
|
private |
Allocazioni di memoria.
- Parametri
-
[in,out] | qcspa | Oggetto per il controllo climatico |
Definizione alla linea 598 del file modqcspa.F90.
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.
|