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

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

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

revision 217 by guez, Thu Mar 30 14:25:18 2017 UTC revision 219 by guez, Thu Mar 30 15:59:45 2017 UTC
# Line 4  module sw1s_m Line 4  module sw1s_m
4    
5  contains  contains
6    
7    SUBROUTINE sw1s(knu, flag_aer, palbd, palbp, pcg, pcld, pclear, pdsig, &    SUBROUTINE sw1s(knu, palbd, palbp, pcg, pcld, pclear, pdsig, pomega, poz, &
8         pomega, poz, prmu, psec, ptau, pud, pfd, pfu)         prmu, psec, ptau, pud, pfd, pfu)
9            
10      USE dimens_m      USE dimens_m
11      USE dimphy      USE dimphy
# Line 46  contains Line 46  contains
46      ! * ARGUMENTS:      ! * ARGUMENTS:
47    
48      INTEGER knu      INTEGER knu
     ! -OB  
     logical, intent(in):: flag_aer  
49      DOUBLE PRECISION palbd(kdlon, 2)      DOUBLE PRECISION palbd(kdlon, 2)
50      DOUBLE PRECISION palbp(kdlon, 2)      DOUBLE PRECISION palbp(kdlon, 2)
51      DOUBLE PRECISION pcg(kdlon, 2, kflev)      DOUBLE PRECISION pcg(kdlon, 2, kflev)
# Line 129  contains Line 127  contains
127      ! --------------------------------      ! --------------------------------
128    
129    
130      CALL swclr(knu, flag_aer, palbp, pdsig, zrayl, psec, zcgaz, zpizaz, &      CALL swclr(knu, palbp, pdsig, zrayl, psec, zpizaz, zray1, zray2, zrefz, &
131           zray1, zray2, zrefz, zrj0, zrk0, zrmu0, ztauaz, ztra1, ztra2)           zrj0, zrk0, zrmu0, ztauaz, ztra1, ztra2)
132    
133    
134      ! *         2.2   CLOUDY FRACTION OF THE COLUMN      ! *         2.2   CLOUDY FRACTION OF THE COLUMN
135      ! -----------------------------      ! -----------------------------
136    
137        zcgaz = 0d0
138      CALL swr(knu, palbd, pcg, pcld, pomega, psec, ptau, zcgaz, &      CALL swr(knu, palbd, pcg, pcld, pomega, psec, ptau, zcgaz, &
139           zpizaz, zray1, zray2, zrefz, zrj, zrk, zrmue, ztauaz, ztra1, ztra2)           zpizaz, zray1, zray2, zrefz, zrj, zrk, zrmue, ztauaz, ztra1, ztra2)
140    
Legend:
Removed from v.217  
changed lines
  Added in v.219
  ViewVC Help
Powered by ViewVC 1.1.21