libsim  Versione7.2.1

◆ 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 1546 del file modqccli.F90.

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
1561 
1562  if (c_e(height)) then
1563  iclv(k)=firsttrue(cli_level1 <= height .and. height <= cli_level2 )
1564  else
Function to check whether a value is missing or not.

Generated with Doxygen.