libsim  Versione 7.1.6

◆ vol7d_fill_data()

subroutine vol7d_class_compute::vol7d_fill_data ( type(vol7d), intent(inout)  this,
type(timedelta), intent(in)  step,
type(datetime), intent(in), optional  start,
type(datetime), intent(in), optional  stopp,
type(timedelta), intent(in), optional  tolerance 
)

Fill data volume Nearest data in time is set in the time coordinate.

Take in account istantaneous values only.

Parametri
[in,out]thisdata volume to elaborate
[in]stepinterval in time where to fill data
[in]startstart time where to fill
[in]stoppstop time where to fill
[in]tolerancetolerance in time to find data to fill (excluding extreme) (default to step)

Definizione alla linea 1612 del file vol7d_class_compute.F90.

1613  that%level%level2 = imiss
1614  that%level%l2 = imiss
1615  end where
1616 
1617 case("i")
1618 
1619  where (maschera)
1620  that%level%level1 = 100
1621  that%level%l1 = int(realdat(that%voldatii(1,1,:,1,ind,1),that%dativar%i(ind)))
1622  that%level%level2 = imiss
1623  that%level%l2 = imiss
1624  end where
1625 
1626 case("b")
1627 
1628  where (maschera)
1629  that%level%level1 = 100
1630  that%level%l1 = int(realdat(that%voldatib(1,1,:,1,ind,1),that%dativar%b(ind)))
1631  that%level%level2 = imiss
1632  that%level%l2 = imiss
1633  end where
1634 
1635 case("c")
1636 
1637  where (maschera)
1638  that%level%level1 = 100
1639  that%level%l1 = int(realdat(that%voldatic(1,1,:,1,ind,1),that%dativar%c(ind)))
1640  that%level%level2 = imiss
1641  that%level%l2 = imiss
1642  end where
1643 
1644 end select
1645 
1646 deallocate(ltime)
1647 deallocate(ltimerange)
1648 deallocate(lana)
1649 deallocate(lnetwork)
1650 
1651 END SUBROUTINE vol7d_normalize_vcoord
1652 
1653 
1654 !!$!> Metodo per calcolare variabili derivate.
1655 !!$!! TO DO !!
1656 !!$SUBROUTINE vol7d_compute_var(this,that,var)
1657 !!$TYPE(vol7d),INTENT(INOUT) :: this !< oggetto da normalizzare
1658 !!$TYPE(vol7d),INTENT(OUT) :: that !< oggetto normalizzato
1659 !!$
1660 !!$character(len=1) :: type
1661 !!$TYPE(vol7d_var),intent(in) :: var
1662 
1663 
1664 !!$call init(var, btable="B10004") ! Pressure
1665 !!$type=cmiss
1666 !!$call vol7d_varvect_index(that%dativar,var , type=type,index_v=ind)
1667 !!$
1668 !!$select case (type)
1669 !!$
1670 !!$case("d")
1671 !!$
1672 !!$ where (that%level%level1 == 105.and.that%level%level2 == 105)
1673 !!$ that%level%level1 = 100
1674 !!$ that%level%l1 = realdat(that%voldatid(1,1,:,1,ind,1),that%dativar%d(ind))
1675 !!$ that%level%level2 = imiss
1676 !!$ that%level%l2 = imiss
1677 !!$ end where
1678 !!$
1679 !!$case("r")
1680 !!$
1681 !!$ where (that%level%level1 == 105.and.that%level%level2 == 105)
1682 !!$ that%level%level1 = 100
1683 !!$ that%level%l1 = realdat(that%voldatir(1,1,:,1,ind,1),that%dativar%r(ind))
1684 !!$ that%level%level2 = imiss
1685 !!$ that%level%l2 = imiss
1686 !!$ end where
1687 !!$
1688 !!$case("i")
1689 !!$
1690 !!$ where (that%level%level1 == 105.and.that%level%level2 == 105)
1691 !!$ that%level%level1 = 100
1692 !!$ that%level%l1 = realdat(that%voldatii(1,1,:,1,ind,1),that%dativar%i(ind))
1693 !!$ that%level%level2 = imiss
1694 !!$ that%level%l2 = imiss
1695 !!$ end where
1696 !!$
1697 !!$case("b")

Generated with Doxygen.