libsim Versione 7.1.11

◆ supermacroa()

integer function 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
1598CALL l4f_category_log(this%category, L4F_DEBUG, 'nana has value '//t2c(SIZE(this%v7d%ana)))
1599CALL l4f_category_log(this%category, L4F_DEBUG, 'lpresentperc has value '//t2c(lpresentperc))
1600CALL l4f_category_log(this%category, L4F_DEBUG, 'lpresentnumb has value '//t2c(lpresentnumb))
1601#endif
1602
1603
1604call 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
1607this%extreme%level=this%v7d%level
1608this%extreme%timerange=this%v7d%timerange
1609this%extreme%dativar%r=this%v7d%dativar%r
1610this%extreme%time(1)=cyclicdatetime_to_conventional(cyclicdt)

Generated with Doxygen.