libsim Versione 7.1.11
|
◆ 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 1541 del file modqccli.F90. 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
1555 height=rmiss
1556 end select
1557 end if
1558
1559 if (c_e(height)) exit
1560 end do
|