libsim  Versione 7.2.1

◆ 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 1618 del file vol7d_class_compute.F90.

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

Generated with Doxygen.