libsim Versione 7.2.1
|
◆ vol7d_fill_data()
Fill data volume Nearest data in time is set in the time coordinate. Take in account istantaneous values only.
Definizione alla linea 1608 del file vol7d_class_compute.F90. 1609
1610case("r")
1611
1612 where (maschera)
1613 that%level%level1 = 100
1614 that%level%l1 = int(realdat(that%voldatir(1,1,:,1,ind,1),that%dativar%r(ind)))
1615 that%level%level2 = imiss
1616 that%level%l2 = imiss
1617 end where
1618
1619case("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
1628case("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
1637case("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
1646end select
1647
1648deallocate(ltime)
1649deallocate(ltimerange)
1650deallocate(lana)
1651deallocate(lnetwork)
1652
1653END 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
|