Parent Directory | Revision Log | Patch
revision 340 by guez, Thu Jun 13 14:40:06 2019 UTC | revision 341 by guez, Mon Oct 21 06:11:44 2019 UTC | |
---|---|---|
# | Line 5 module swde_m | Line 5 module swde_m |
5 | contains | contains |
6 | ||
7 | SUBROUTINE swde(pgg, pref, prmuz, pto1, pw, pre1, pre2, ptr1, ptr2) | SUBROUTINE swde(pgg, pref, prmuz, pto1, pw, pre1, pre2, ptr1, ptr2) |
8 | USE dimensions | |
9 | USE dimphy | USE raddim, only: kdlon |
10 | USE raddim | |
! ------------------------------------------------------------------ | ||
11 | ! PURPOSE. | ! PURPOSE. |
12 | ! -------- | ! -------- |
13 | ! COMPUTES THE REFLECTIVITY AND TRANSMISSIVITY OF A CLOUDY | ! COMPUTES THE REFLECTIVITY AND TRANSMISSIVITY OF A CLOUDY |
# | Line 126 contains | Line 125 contains |
125 | zri0d = zc1b*zexkm + zc2b*zexkp - zalpha*zexmu0 | zri0d = zc1b*zexkm + zc2b*zexkp - zalpha*zexmu0 |
126 | zri1d = zrp*(zc1b*zexkm-zc2b*zexkp) - zbeta*zexmu0 | zri1d = zrp*(zc1b*zexkm-zc2b*zexkp) - zbeta*zexmu0 |
127 | ptr2(jl) = zexmu0 + (zri0d+zdt*zri1d)/prmuz(jl) | ptr2(jl) = zexmu0 + (zri0d+zdt*zri1d)/prmuz(jl) |
128 | END DO | END DO |
129 | RETURN | |
130 | END SUBROUTINE swde | END SUBROUTINE swde |
131 | ||
132 | end module swde_m | end module swde_m |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |