libsim Versione 7.1.11
|
◆ qcclidelete()
Cancellazione.
Definizione alla linea 762 del file modqccli.F90. 763
764
765 if (qccli%height2level) then
766 k=iclv(indana)
767 else
768 k=0
769 end if
770
771 if (.not. c_e(k)) then
772 qccli%v7d%voldatir (indana ,indtime ,indlevel ,indtimerange ,&
773 inddativarr, indnetwork ) = rmiss
774 cycle
|