libsim Versione 7.2.1
|
◆ cli_level()
Return a conventional level for climatological definition. Starting from heigth of station in meter return a level where is defined (I hope) the climatological value
Definizione alla linea 1535 del file modqccli.F90. 1536 do k=1,size(this%v7d%ana)
1537 height=rmiss
1538
1539 ! here we take the height fron any network (the first network win)
1540 do indnetwork=1,size(this%v7d%network)
1541
1542 if( indvar > 0 .and. indnetwork > 0 ) then
1543 select case (type)
1544 case("d")
1545 height=realdat(this%v7d%volanad(k,indvar,indnetwork),this%v7d%anavar%d(indvar))
1546 case("r")
1547 height=realdat(this%v7d%volanar(k,indvar,indnetwork),this%v7d%anavar%r(indvar))
1548 case ("i")
1549 height=realdat(this%v7d%volanai(k,indvar,indnetwork),this%v7d%anavar%i(indvar))
1550 case("b")
1551 height=realdat(this%v7d%volanab(k,indvar,indnetwork),this%v7d%anavar%b(indvar))
1552 case("c")
1553 height=realdat(this%v7d%volanac(k,indvar,indnetwork),this%v7d%anavar%c(indvar))
1554 case default
|