4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE swclr(knu, flag_aer, tauae, pizae, cgae, palbp, pdsig, & |
SUBROUTINE swclr(knu, flag_aer, tauae, pizae, cgae, palbp, pdsig, prayl, & |
8 |
prayl, psec, pcgaz, ppizaz, pray1, pray2, prefz, prj, prk, prmu0, ptauaz, & |
psec, pcgaz, ppizaz, pray1, pray2, prefz, prj, prk, prmu0, ptauaz, & |
9 |
ptra1, ptra2) |
ptra1, ptra2) |
10 |
USE dimens_m |
|
11 |
USE dimphy |
USE raddim, only: kdlon, kflev |
12 |
USE raddim |
USE radepsi, only: repsct, zepsec |
13 |
USE radepsi |
USE radopt, only: novlp |
|
USE radopt |
|
14 |
|
|
15 |
! ------------------------------------------------------------------ |
! ------------------------------------------------------------------ |
16 |
! PURPOSE. |
! PURPOSE. |