/[lmdze]/trunk/Sources/phylmd/Radlwsw/sw1s.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/Radlwsw/sw1s.f

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

revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC revision 217 by guez, Thu Mar 30 14:25:18 2017 UTC
# Line 4  module sw1s_m Line 4  module sw1s_m
4    
5  contains  contains
6    
7    SUBROUTINE sw1s(knu, flag_aer, tauae, pizae, cgae, palbd, palbp, pcg, &    SUBROUTINE sw1s(knu, flag_aer, palbd, palbp, pcg, pcld, pclear, pdsig, &
8         pcld, pclear, pdsig, pomega, poz, prmu, psec, ptau, pud, pfd, &         pomega, poz, prmu, psec, ptau, pud, pfd, pfu)
9         pfu)      
10      USE dimens_m      USE dimens_m
11      USE dimphy      USE dimphy
12      USE raddim      USE raddim
# Line 47  contains Line 47  contains
47    
48      INTEGER knu      INTEGER knu
49      ! -OB      ! -OB
50      DOUBLE PRECISION flag_aer      logical, intent(in):: flag_aer
     DOUBLE PRECISION tauae(kdlon, kflev, 2)  
     DOUBLE PRECISION pizae(kdlon, kflev, 2)  
     DOUBLE PRECISION cgae(kdlon, kflev, 2)  
51      DOUBLE PRECISION palbd(kdlon, 2)      DOUBLE PRECISION palbd(kdlon, 2)
52      DOUBLE PRECISION palbp(kdlon, 2)      DOUBLE PRECISION palbp(kdlon, 2)
53      DOUBLE PRECISION pcg(kdlon, 2, kflev)      DOUBLE PRECISION pcg(kdlon, 2, kflev)
# Line 132  contains Line 129  contains
129      ! --------------------------------      ! --------------------------------
130    
131    
132      CALL swclr(knu, flag_aer, tauae, pizae, cgae, palbp, pdsig, zrayl, &      CALL swclr(knu, flag_aer, palbp, pdsig, zrayl, psec, zcgaz, zpizaz, &
133           psec, zcgaz, zpizaz, zray1, zray2, zrefz, zrj0, zrk0, zrmu0, ztauaz, &           zray1, zray2, zrefz, zrj0, zrk0, zrmu0, ztauaz, ztra1, ztra2)
          ztra1, ztra2)  
134    
135    
136      ! *         2.2   CLOUDY FRACTION OF THE COLUMN      ! *         2.2   CLOUDY FRACTION OF THE COLUMN
Legend:
Removed from v.178  
changed lines
  Added in v.217
  ViewVC Help
Powered by ViewVC 1.1.21