libsim  Versione6.3.0

◆ supermacroa()

integer function modqccli::supermacroa ( integer, intent(in)  macroa)
private

Rielabora le macroarea facendole Valentine/Elements thinking OBSOLETA.

Definizione alla linea 1614 del file modqccli.F90.

1614 call vol7d_alloc_vol(this%extreme,inivol=.true.)
1615 
1616 allocate (mask(size(this%v7d%ana),size(this%v7d%time),size(this%v7d%network)))
1617 
1618 indtime=1
1619 indnetwork=1
1620 do inddativarr=1,size(this%v7d%dativar%r)
1621  do indtimerange=1,size(this%v7d%timerange)
1622  do indlevel=1,size(this%v7d%level) ! all stations, all times, all networks
1623  do i=1,narea
1624 
1625  !this%v7d%voldatir(indana, indtime, indlevel, indtimerange, inddativarr, indnetwork)
1626 
1627  !create mask only with valid time
1628  mask = spread(spread((this%v7d%time == cyclicdt ),1,size(this%v7d%ana)),3,size(this%v7d%network))
1629 

Generated with Doxygen.