|
◆ cli_level()
subroutine, public modqccli::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] | heigth | heigth of station in meter |
[out] | level | level where is defined the climatological value (layer) |
Definizione alla linea 1545 del file modqccli.F90.
1547 height=realdat(this%v7d%volanar(k,indvar,indnetwork),this%v7d%anavar%r(indvar))
1549 height=realdat(this%v7d%volanai(k,indvar,indnetwork),this%v7d%anavar%i(indvar))
1551 height=realdat(this%v7d%volanab(k,indvar,indnetwork),this%v7d%anavar%b(indvar))
1553 height=realdat(this%v7d%volanac(k,indvar,indnetwork),this%v7d%anavar%c(indvar))
1559 if (c_e(height)) exit
1562 if (c_e(height)) then
1563 iclv(k)=firsttrue(cli_level1 <= height .and. height <= cli_level2 )
|