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

Diff of /trunk/phylmd/Radlwsw/sw2s.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 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, flag_aer, paki, palbd, palbp, pcg, pcld, pclear, &
8         pcg, pcld, pclear, pdsig, pomega, poz, prmu, psec, ptau, pud, &         pdsig, pomega, 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
13      USE radepsi      USE radepsi
14      use swclr_m, only: swclr      use swclr_m, only: swclr
15        use swde_m, only: swde
16      use swr_m, only: swr      use swr_m, only: swr
17    
18      ! ------------------------------------------------------------------      ! ------------------------------------------------------------------
# Line 52  contains Line 53  contains
53    
54      INTEGER knu      INTEGER knu
55      ! -OB      ! -OB
56      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)  
57      DOUBLE PRECISION paki(kdlon, 2)      DOUBLE PRECISION paki(kdlon, 2)
58      DOUBLE PRECISION palbd(kdlon, 2)      DOUBLE PRECISION palbd(kdlon, 2)
59      DOUBLE PRECISION palbp(kdlon, 2)      DOUBLE PRECISION palbp(kdlon, 2)
# Line 166  contains Line 164  contains
164      ! --------------------------------      ! --------------------------------
165    
166    
167      CALL swclr(knu, flag_aer, tauae, pizae, cgae, palbp, pdsig, zrayl, &      CALL swclr(knu, flag_aer, palbp, pdsig, zrayl, psec, zcgaz, zpizaz, &
168           psec, zcgaz, zpizaz, zray1, zray2, zrefz, zrj0, zrk0, zrmu0, ztauaz, &           zray1, zray2, zrefz, zrj0, zrk0, zrmu0, ztauaz, ztra1, ztra2)
          ztra1, ztra2)  
169    
170    
171      ! *         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