20 |
! 3. COMPUTES FLUXES IN 2ND SPECTRAL INTERVAL (SW2S) |
! 3. COMPUTES FLUXES IN 2ND SPECTRAL INTERVAL (SW2S) |
21 |
|
|
22 |
! REFERENCE. |
! REFERENCE. |
23 |
! SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT |
! SEE RADIATION PART OF THE ECMWF RESEARCH DEPARTMENT |
24 |
! DOCUMENTATION, AND FOUQUART AND BONNEL (1980) |
! DOCUMENTATION, AND FOUQUART AND BONNEL (1980) |
25 |
|
|
26 |
! AUTHOR. |
! AUTHOR. |
101 |
DATA appel1er /.TRUE./ |
DATA appel1er /.TRUE./ |
102 |
!jq-Introduced for aerosol forcings |
!jq-Introduced for aerosol forcings |
103 |
double precision flag_aer |
double precision flag_aer |
104 |
logical ok_ade, ok_aie ! use aerosol forcings or not? |
logical, intent(in):: ok_ade, ok_aie ! use aerosol forcings or not? |
105 |
double precision tauae(kdlon, kflev, 2) ! aerosol optical properties |
double precision tauae(kdlon, kflev, 2) ! aerosol optical properties |
106 |
double precision pizae(kdlon, kflev, 2) |
double precision pizae(kdlon, kflev, 2) |
107 |
! aerosol optical properties(see aeropt.F) |
! aerosol optical properties(see aeropt.F) |
186 |
ENDDO |
ENDDO |
187 |
ENDDO |
ENDDO |
188 |
|
|
189 |
flag_aer=0.0 |
flag_aer=0. |
190 |
CALL SWU(PSCT, PCLDSW, PPMB, PPSOL, & |
CALL SWU(PSCT, PCLDSW, PPMB, PPSOL, & |
191 |
PRMU0, PFRAC, PTAVE, PWV, & |
PRMU0, PFRAC, PTAVE, PWV, & |
192 |
ZAKI, ZCLD, ZCLEAR, ZDSIG, ZFACT, ZRMU, ZSEC, ZUD) |
ZAKI, ZCLD, ZCLEAR, ZDSIG, ZFACT, ZRMU, ZSEC, ZUD) |
215 |
|
|
216 |
IF (ok_ade) THEN |
IF (ok_ade) THEN |
217 |
! cloudy-sky + aerosol dir OB |
! cloudy-sky + aerosol dir OB |
218 |
flag_aer=1.0 |
flag_aer=1. |
219 |
CALL SWU(PSCT, PCLDSW, PPMB, PPSOL, & |
CALL SWU(PSCT, PCLDSW, PPMB, PPSOL, & |
220 |
PRMU0, PFRAC, PTAVE, PWV, & |
PRMU0, PFRAC, PTAVE, PWV, & |
221 |
ZAKI, ZCLD, ZCLEAR, ZDSIG, ZFACT, ZRMU, ZSEC, ZUD) |
ZAKI, ZCLD, ZCLEAR, ZDSIG, ZFACT, ZRMU, ZSEC, ZUD) |