libsim  Versione 7.1.7

◆ supermacroa()

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

Rielabora le macroarea facendole Valentine/Elements thinking OBSOLETA.

Definizione alla linea 1594 del file modqccli.F90.

1595 !!$end do
1596 
1597 #ifdef DEBUG
1598 CALL l4f_category_log(this%category, l4f_debug, 'nana has value '//t2c(SIZE(this%v7d%ana)))
1599 CALL l4f_category_log(this%category, l4f_debug, 'lpresentperc has value '//t2c(lpresentperc))
1600 CALL l4f_category_log(this%category, l4f_debug, 'lpresentnumb has value '//t2c(lpresentnumb))
1601 #endif
1602 
1603 
1604 call vol7d_alloc(this%extreme,nlevel=size(this%v7d%level), ntimerange=size(this%v7d%timerange), &
1605  ndativarr=size(this%v7d%dativar%r), nnetwork=1,ntime=1)
1606 
1607 this%extreme%level=this%v7d%level
1608 this%extreme%timerange=this%v7d%timerange
1609 this%extreme%dativar%r=this%v7d%dativar%r
1610 this%extreme%time(1)=cyclicdatetime_to_conventional(cyclicdt)

Generated with Doxygen.