4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE sw1s(knu, flag_aer, palbd, palbp, pcg, pcld, pclear, pdsig, & |
SUBROUTINE sw1s(knu, palbd, palbp, pcg, pcld, pclear, pdsig, pomega, poz, & |
8 |
pomega, poz, prmu, psec, ptau, pud, pfd, pfu) |
prmu, psec, ptau, pud, pfd, pfu) |
9 |
|
|
10 |
USE dimens_m |
USE dimens_m |
11 |
USE dimphy |
USE dimphy |
46 |
! * ARGUMENTS: |
! * ARGUMENTS: |
47 |
|
|
48 |
INTEGER knu |
INTEGER knu |
|
! -OB |
|
|
logical, intent(in):: flag_aer |
|
49 |
DOUBLE PRECISION palbd(kdlon, 2) |
DOUBLE PRECISION palbd(kdlon, 2) |
50 |
DOUBLE PRECISION palbp(kdlon, 2) |
DOUBLE PRECISION palbp(kdlon, 2) |
51 |
DOUBLE PRECISION pcg(kdlon, 2, kflev) |
DOUBLE PRECISION pcg(kdlon, 2, kflev) |
127 |
! -------------------------------- |
! -------------------------------- |
128 |
|
|
129 |
|
|
130 |
CALL swclr(knu, flag_aer, palbp, pdsig, zrayl, psec, zcgaz, zpizaz, & |
CALL swclr(knu, palbp, pdsig, zrayl, psec, zpizaz, zray1, zray2, zrefz, & |
131 |
zray1, zray2, zrefz, zrj0, zrk0, zrmu0, ztauaz, ztra1, ztra2) |
zrj0, zrk0, zrmu0, ztauaz, ztra1, ztra2) |
132 |
|
|
133 |
|
|
134 |
! * 2.2 CLOUDY FRACTION OF THE COLUMN |
! * 2.2 CLOUDY FRACTION OF THE COLUMN |
135 |
! ----------------------------- |
! ----------------------------- |
136 |
|
|
137 |
|
zcgaz = 0d0 |
138 |
CALL swr(knu, palbd, pcg, pcld, pomega, psec, ptau, zcgaz, & |
CALL swr(knu, palbd, pcg, pcld, pomega, psec, ptau, zcgaz, & |
139 |
zpizaz, zray1, zray2, zrefz, zrj, zrk, zrmue, ztauaz, ztra1, ztra2) |
zpizaz, zray1, zray2, zrefz, zrj, zrk, zrmue, ztauaz, ztra1, ztra2) |
140 |
|
|