libsim Versione 7.1.11

◆ qcclidelete()

subroutine qcclidelete ( type(qcclitype), intent(inout)  qccli)
private

Cancellazione.

Parametri
[in,out]qccliOggetto per l controllo climatico

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

Generated with Doxygen.