libsim  Versione6.3.0

◆ qcspadelete()

subroutine qcspadelete ( type(qcspatype), intent(inout)  qcspa)

Cancellazione.

Parametri
[in,out]qcspaOggetto per il controllo climatico

Definizione alla linea 669 del file modqcspa.F90.

669 
670 !!$ call l4f_log(L4F_INFO,"Index:"// t2c(indana)//t2c(indnetwork)//t2c(indlevel)//&
671 !!$ t2c(indtimerange)//t2c(inddativarr)//t2c(indtime))
672 
673  if (.not. anamaskl(indana).or. .not. levelmaskl(indlevel) .or. &
674  .not. timerangemaskl(indtimerange) .or. .not. varmaskl(inddativarr) .or. .not. networkmaskl(indnetwork)) cycle
675 
676  datoqui = qcspa%v7d%voldatir (indana ,indtime ,indlevel ,indtimerange ,inddativarr, indnetwork )
677  if (.not. c_e(datoqui)) cycle
678 
679  ! invalidated
680  if (indbattrinv > 0) then
681  if( invalidated(qcspa%v7d%voldatiattrb&

Generated with Doxygen.