/[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 207 by guez, Thu Sep 1 10:30:53 2016 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, tauae, pizae, cgae, paki, palbd, palbp, &    SUBROUTINE sw2s(knu, paki, palbd, palbp, pcg, pcld, pclear, pdsig, pomega, &
8         pcg, pcld, pclear, pdsig, pomega, poz, prmu, psec, ptau, pud, &         poz, prmu, psec, ptau, pud, pwv, pqs, pfdown, pfup)
9         pwv, pqs, pfdown, pfup)      
10      USE dimens_m      USE dimens_m
11      USE dimphy      USE dimphy
12      USE raddim      USE raddim
# Line 52  contains Line 52  contains
52      ! * ARGUMENTS:      ! * ARGUMENTS:
53    
54      INTEGER knu      INTEGER knu
     ! -OB  
     DOUBLE PRECISION flag_aer  
     DOUBLE PRECISION tauae(kdlon, kflev, 2)  
     DOUBLE PRECISION pizae(kdlon, kflev, 2)  
     DOUBLE PRECISION cgae(kdlon, kflev, 2)  
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 167  contains Line 162  contains
162      ! --------------------------------      ! --------------------------------
163    
164    
165      CALL swclr(knu, flag_aer, tauae, pizae, cgae, palbp, pdsig, zrayl, &      CALL swclr(knu, palbp, pdsig, zrayl, psec, zpizaz, zray1, zray2, zrefz, &
166           psec, zcgaz, zpizaz, zray1, zray2, zrefz, zrj0, zrk0, zrmu0, ztauaz, &           zrj0, zrk0, zrmu0, ztauaz, ztra1, ztra2)
          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.207  
changed lines
  Added in v.219
  ViewVC Help
Powered by ViewVC 1.1.21