|
◆ qcclidealloc()
subroutine modqccli::qcclidealloc |
( |
type(qcclitype), intent(inout) |
qccli | ) |
|
|
private |
Deallocazione della memoria.
- Parametri
-
[in,out] | qccli | Oggetto per l controllo climatico |
Definizione alla linea 734 del file modqccli.F90.
735 indctime = index(qccli%extreme%time
736 indclevel = index(qccli%extreme%level
737 indctimerange = index(qccli%extreme%timerange
742 indcdativarr = index(qccli%extreme%dativar%r, qccli%v7d%dativar%r
746 call l4f_log(l4f_debug, "normalize data Index:"
747 to_char(indctimerange)//to_char(indcdativarr
751 if (indctime <= 0 .or. indclevel <= 0 .or. indctimerange <=
752 .or. indcnetwork <= 0 ) then
753 qccli%v7d%voldatir (indana ,indtime ,indlevel ,indtimerange
754 inddativarr, indnetwork ) = rmiss
|