libsim  Versione 7.1.7

◆ 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]heigthheigth of station in meter
[out]levellevel where is defined the climatological value (layer)

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

Generated with Doxygen.