|
◆ 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 1541 del file modqccli.F90.
1542 if( indvar > 0 .and. indnetwork > 0 ) then
1545 height=realdat(this%v7d%volanad(k,indvar,indnetwork),this%v7d%anavar%d
1547 height=realdat(this%v7d%volanar(k,indvar,indnetwork),this%v7d%anavar%r
1549 height=realdat(this%v7d%volanai(k,indvar,indnetwork),this%v7d%anavar%i
1551 height=realdat(this%v7d%volanab(k,indvar,indnetwork),this%v7d%anavar%b
1553 height=realdat(this%v7d%volanac(k,indvar,indnetwork),this%v7d%anavar%c
1559 if (c_e(height)) exit
|