libsim
Versione6.3.0
modqcspa
qcspaalloc
qcspadealloc
qcspadelete
qcspainit
qcspatri
quaconspa
spa_a
spa_b
spa_btable
◆
qcspadelete()
subroutine modqcspa::qcspadelete
(
type(
qcspatype
), intent(inout)
qcspa
)
private
Cancellazione.
Parametri
[in,out]
qcspa
Oggetto 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&
datetime_class::c_e
Missing check.
Definition:
datetime_class.F90:521
Generated with
Doxygen
.