libsim Versione 7.2.1

◆ cli_level()

subroutine, public cli_level ( real, intent(in)  heigth,
type(vol7d_level), intent(out)  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

Parametri
[in]heigthheigth of station in meter
[out]levellevel where is defined the climatological value (layer)

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

Generated with Doxygen.