/[lmdze]/trunk/phylmd/Radlwsw/sw2s.f90
ViewVC logotype

Diff of /trunk/phylmd/Radlwsw/sw2s.f90

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 sw2s_m Line 4  module sw2s_m
4    
5  contains  contains
6    
7    SUBROUTINE sw2s(knu, flag_aer, paki, palbd, palbp, pcg, pcld, pclear, &    SUBROUTINE sw2s(knu, paki, palbd, palbp, pcg, pcld, pclear, pdsig, pomega, &
8         pdsig, pomega, poz, prmu, psec, ptau, pud, pwv, pqs, pfdown, pfup)         poz, prmu, psec, ptau, pud, pwv, pqs, pfdown, pfup)
9            
10      USE dimens_m      USE dimens_m
11      USE dimphy      USE dimphy
# Line 52  contains Line 52  contains
52      ! * ARGUMENTS:      ! * ARGUMENTS:
53    
54      INTEGER knu      INTEGER knu
     ! -OB  
     logical, intent(in):: flag_aer  
55      DOUBLE PRECISION paki(kdlon, 2)      DOUBLE PRECISION paki(kdlon, 2)
56      DOUBLE PRECISION palbd(kdlon, 2)      DOUBLE PRECISION palbd(kdlon, 2)
57      DOUBLE PRECISION palbp(kdlon, 2)      DOUBLE PRECISION palbp(kdlon, 2)
# Line 164  contains Line 162  contains
162      ! --------------------------------      ! --------------------------------
163    
164    
165      CALL swclr(knu, flag_aer, palbp, pdsig, zrayl, psec, zcgaz, zpizaz, &      CALL swclr(knu, palbp, pdsig, zrayl, psec, zpizaz, zray1, zray2, zrefz, &
166           zray1, zray2, zrefz, zrj0, zrk0, zrmu0, ztauaz, ztra1, ztra2)           zrj0, zrk0, zrmu0, ztauaz, ztra1, ztra2)
167    
168    
169      ! *         2.2   CLOUDY FRACTION OF THE COLUMN      ! *         2.2   CLOUDY FRACTION OF THE COLUMN
170      ! -----------------------------      ! -----------------------------
171    
172    
173        zcgaz = 0d0
174      CALL swr(knu, palbd, pcg, pcld, pomega, psec, ptau, zcgaz, &      CALL swr(knu, palbd, pcg, pcld, pomega, psec, ptau, zcgaz, &
175           zpizaz, zray1, zray2, zrefz, zrj, zrk, zrmue, ztauaz, ztra1, ztra2)           zpizaz, zray1, zray2, zrefz, zrj, zrk, zrmue, ztauaz, ztra1, ztra2)
176    
Legend:
Removed from v.217  
changed lines
  Added in v.219
  ViewVC Help
Powered by ViewVC 1.1.21