4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE sw1s(knu, flag_aer, tauae, pizae, cgae, palbd, palbp, pcg, & |
SUBROUTINE sw1s(knu, flag_aer, palbd, palbp, pcg, pcld, pclear, pdsig, & |
8 |
pcld, pclear, pdsig, pomega, poz, prmu, psec, ptau, pud, pfd, & |
pomega, poz, prmu, psec, ptau, pud, pfd, pfu) |
9 |
pfu) |
|
10 |
USE dimens_m |
USE dimens_m |
11 |
USE dimphy |
USE dimphy |
12 |
USE raddim |
USE raddim |
47 |
|
|
48 |
INTEGER knu |
INTEGER knu |
49 |
! -OB |
! -OB |
50 |
DOUBLE PRECISION flag_aer |
logical, intent(in):: flag_aer |
|
DOUBLE PRECISION tauae(kdlon, kflev, 2) |
|
|
DOUBLE PRECISION pizae(kdlon, kflev, 2) |
|
|
DOUBLE PRECISION cgae(kdlon, kflev, 2) |
|
51 |
DOUBLE PRECISION palbd(kdlon, 2) |
DOUBLE PRECISION palbd(kdlon, 2) |
52 |
DOUBLE PRECISION palbp(kdlon, 2) |
DOUBLE PRECISION palbp(kdlon, 2) |
53 |
DOUBLE PRECISION pcg(kdlon, 2, kflev) |
DOUBLE PRECISION pcg(kdlon, 2, kflev) |
129 |
! -------------------------------- |
! -------------------------------- |
130 |
|
|
131 |
|
|
132 |
CALL swclr(knu, flag_aer, tauae, pizae, cgae, palbp, pdsig, zrayl, & |
CALL swclr(knu, flag_aer, palbp, pdsig, zrayl, psec, zcgaz, zpizaz, & |
133 |
psec, zcgaz, zpizaz, zray1, zray2, zrefz, zrj0, zrk0, zrmu0, ztauaz, & |
zray1, zray2, zrefz, zrj0, zrk0, zrmu0, ztauaz, ztra1, ztra2) |
|
ztra1, ztra2) |
|
134 |
|
|
135 |
|
|
136 |
! * 2.2 CLOUDY FRACTION OF THE COLUMN |
! * 2.2 CLOUDY FRACTION OF THE COLUMN |