4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE sw2s(knu, flag_aer, paki, palbd, palbp, pcg, pcld, pclear, & |
SUBROUTINE sw2s(knu, paki, palbd, palbp, pcg, pcld, pclear, pdsig, pomega, & |
8 |
pdsig, pomega, poz, prmu, psec, ptau, pud, pwv, pqs, pfdown, pfup) |
poz, prmu, psec, ptau, pud, pwv, pqs, pfdown, pfup) |
9 |
|
|
10 |
USE dimens_m |
USE dimens_m |
11 |
USE dimphy |
USE dimphy |
52 |
! * ARGUMENTS: |
! * ARGUMENTS: |
53 |
|
|
54 |
INTEGER knu |
INTEGER knu |
|
! -OB |
|
|
logical, intent(in):: flag_aer |
|
55 |
DOUBLE PRECISION paki(kdlon, 2) |
DOUBLE PRECISION paki(kdlon, 2) |
56 |
DOUBLE PRECISION palbd(kdlon, 2) |
DOUBLE PRECISION palbd(kdlon, 2) |
57 |
DOUBLE PRECISION palbp(kdlon, 2) |
DOUBLE PRECISION palbp(kdlon, 2) |
162 |
! -------------------------------- |
! -------------------------------- |
163 |
|
|
164 |
|
|
165 |
CALL swclr(knu, flag_aer, palbp, pdsig, zrayl, psec, zcgaz, zpizaz, & |
CALL swclr(knu, palbp, pdsig, zrayl, psec, zpizaz, zray1, zray2, zrefz, & |
166 |
zray1, zray2, zrefz, zrj0, zrk0, zrmu0, ztauaz, ztra1, ztra2) |
zrj0, zrk0, zrmu0, ztauaz, ztra1, ztra2) |
167 |
|
|
168 |
|
|
169 |
! * 2.2 CLOUDY FRACTION OF THE COLUMN |
! * 2.2 CLOUDY FRACTION OF THE COLUMN |
170 |
! ----------------------------- |
! ----------------------------- |
171 |
|
|
172 |
|
|
173 |
|
zcgaz = 0d0 |
174 |
CALL swr(knu, palbd, pcg, pcld, pomega, psec, ptau, zcgaz, & |
CALL swr(knu, palbd, pcg, pcld, pomega, psec, ptau, zcgaz, & |
175 |
zpizaz, zray1, zray2, zrefz, zrj, zrk, zrmue, ztauaz, ztra1, ztra2) |
zpizaz, zray1, zray2, zrefz, zrj, zrk, zrmue, ztauaz, ztra1, ztra2) |
176 |
|
|