35 |
! aerosol indirect forcing is F_{AI} = topsw - topswai |
! aerosol indirect forcing is F_{AI} = topsw - topswai |
36 |
! aerosol direct forcing is F_{AD} = topswai - topswad |
! aerosol direct forcing is F_{AD} = topswai - topswad |
37 |
|
|
|
USE dimphy, ONLY: klev, klon |
|
38 |
USE clesphys, ONLY: bug_ozone, solaire |
USE clesphys, ONLY: bug_ozone, solaire |
39 |
USE suphec_m, ONLY: rg |
USE dimphy, ONLY: klev, klon |
40 |
|
use lw_m, only: lw |
41 |
USE raddim, ONLY: kdlon |
USE raddim, ONLY: kdlon |
42 |
USE yoethf_m, ONLY: rvtmp2 |
USE suphec_m, ONLY: rg |
43 |
use sw_m, only: sw |
use sw_m, only: sw |
44 |
|
USE yoethf_m, ONLY: rvtmp2 |
45 |
|
|
46 |
! Arguments: |
! Arguments: |
47 |
|
|
102 |
DOUBLE PRECISION ZFLDN0(KDLON, KLEV+1) |
DOUBLE PRECISION ZFLDN0(KDLON, KLEV+1) |
103 |
|
|
104 |
DOUBLE PRECISION zx_alpha1, zx_alpha2 |
DOUBLE PRECISION zx_alpha1, zx_alpha2 |
|
|
|
105 |
INTEGER k, kk, i, iof, nb_gr |
INTEGER k, kk, i, iof, nb_gr |
|
EXTERNAL lw |
|
|
|
|
106 |
DOUBLE PRECISION PSCT |
DOUBLE PRECISION PSCT |
107 |
|
|
108 |
DOUBLE PRECISION PALBD(kdlon, 2), PALBP(kdlon, 2) |
DOUBLE PRECISION PALBD(kdlon, 2), PALBP(kdlon, 2) |