*** LWC - LONGWAVE RADIATION, CLOUD EFFECTS
INTERFACE. ----------
2. EFFECT OF CLOUDINESS ON LONGWAVE FLUXES
---------------------------------------
2.0 INITIALIZE TO CLEAR-SKY FLUXES
------------------------------
2.1 FLUXES FOR ONE OVERCAST UNITY EMISSIVITY CLOUD
----------------------------------------------
2.1.1 ABOVE THE CLOUD
---------------
2.1.2 BELOW THE CLOUD
---------------
2.2 CLOUD COVER MATRIX
------------------
ZCLM(JK1,JK2) IS THE OBSCURATION FACTOR BY CLOUD LAYERS BETWEEN HALF-LEVELS JK1 AND JK2 AS SEEN FROM JK1
2.4 CLOUD COVER BELOW THE LEVEL OF CALCULATION
------------------------------------------
maximum-random
maximum
random
* Hogan & Illingworth (2001)
2.5 CLOUD COVER ABOVE THE LEVEL OF CALCULATION
------------------------------------------
maximum-random
maximum
random
* Hogan & Illingworth (2001)
3. FLUXES FOR PARTIAL/MULTIPLE LAYERED CLOUDINESS
----------------------------------------------
3.1 DOWNWARD FLUXES
---------------
CONTRIBUTION FROM CLEAR-SKY FRACTION
CONTRIBUTION FROM ADJACENT CLOUD
CONTRIBUTION FROM OTHER CLOUDY FRACTIONS
3.2 UPWARD FLUX AT THE SURFACE
--------------------------
3.3 UPWARD FLUXES
-------------
CONTRIBUTION FROM CLEAR-SKY FRACTION
CONTRIBUTION FROM ADJACENT CLOUD
CONTRIBUTION FROM OTHER CLOUDY FRACTIONS
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer(kind=JPIM), | intent(in) | :: | KIDIA | |||
| integer(kind=JPIM), | intent(in) | :: | KFDIA | |||
| integer(kind=JPIM), | intent(in) | :: | KLON | |||
| integer(kind=JPIM), | intent(in) | :: | KLEV | |||
| real(kind=JPRB), | intent(in) | :: | PBINT(KLON,KLEV+1) | |||
| real(kind=JPRB), | intent(in) | :: | PBSUI(KLON) | |||
| real(kind=JPRB), | intent(in) | :: | PCLDLD(KLON,KLEV) | |||
| real(kind=JPRB), | intent(in) | :: | PCLDLU(KLON,KLEV) | |||
| real(kind=JPRB), | intent(in) | :: | PCNTRB(KLON,KLEV+1,KLEV+1) | |||
| real(kind=JPRB), | intent(in) | :: | PEMIT(KLON) | |||
| real(kind=JPRB), | intent(in) | :: | PFLUC(KLON,2,KLEV+1) | |||
| real(kind=JPRB), | intent(out) | :: | PFLUX(KLON,2,KLEV+1) |
0.1 ARGUMENTS --------- |