/[lmdze]/trunk/phylmd/Radlwsw/sw.f
ViewVC logotype

Diff of /trunk/phylmd/Radlwsw/sw.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 61 by guez, Fri Oct 7 13:11:58 2011 UTC revision 62 by guez, Thu Jul 26 14:37:37 2012 UTC
# Line 20  contains Line 20  contains
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.
# Line 101  contains Line 101  contains
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)
# Line 186  contains Line 186  contains
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)
# Line 215  contains Line 215  contains
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)
Legend:
Removed from v.61  
changed lines
  Added in v.62
  ViewVC Help
Powered by ViewVC 1.1.21