|
◆ 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 578 del file modqcspa.F90.
582 if( present(timerangemask)) then
583 timerangemaskl = timerangemask
585 timerangemaskl = .true.
587 if( present(varmask)) then
592 if( present(networkmask)) then
593 networkmaskl = networkmask
595 networkmaskl = .true.
599 qcspa%v7d%voldatiattrb(:,:,:,:,:,:,indbattrout)=ibmiss
604 call vol7d_normalize_data(qcspa%qccli)
616 time=cyclicdatetime_to_conventional(cyclicdatetime_new(chardate= "/////////"))
|