2) Definition of the coeficient K
3) Calculation of gama for "Q" and "H"
surface pressure is used as reference
4) Calculte the coefficients C and D for specific content of blowing snow, qbs
5) Return the first layer in output variables
6) If Pbl is split, return also the other layers in output variables
!
!
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | knon | |||
| real, | intent(in), | DIMENSION(klon,klev) | :: | coefqbs | ||
| real, | intent(in), | DIMENSION(klon,klev+1) | :: | paprs | ||
| real, | intent(in), | DIMENSION(klon,klev) | :: | pplay | ||
| real, | intent(in), | DIMENSION(klon,klev) | :: | delp | ||
| real, | intent(in), | DIMENSION(klon,klev) | :: | temp | ||
| real, | intent(in), | DIMENSION(klon,klev) | :: | qbs | ||
| real, | intent(in) | :: | dtime |
|
||
| real, | intent(out), | DIMENSION(klon,klev) | :: | Ccoef_QBS_out | ||
| real, | intent(out), | DIMENSION(klon,klev) | :: | Dcoef_QBS_out | ||
| real, | intent(out), | DIMENSION(klon,klev) | :: | Kcoef_qbs_out | ||
| real, | intent(out), | DIMENSION(klon,klev) | :: | gama_qbs_out |
|
|
| real, | intent(out), | DIMENSION(klon) | :: | Acoef_QBS_out | ||
| real, | intent(out), | DIMENSION(klon) | :: | Bcoef_QBS_out |