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

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

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

trunk/Sources/phylmd/Radlwsw/sw1s.f revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC trunk/phylmd/Radlwsw/sw1s.f90 revision 328 by guez, Thu Jun 13 14:40:06 2019 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, palbd, palbp, pcg, pcld, pclear, pdsig, pomega, poz, &
8         pcld, pclear, pdsig, pomega, poz, prmu, psec, ptau, pud, pfd, &         prmu, psec, ptau, pud, pfd, pfu)
9         pfu)      
10      USE dimens_m      USE dimensions
11      USE dimphy      USE dimphy
12      USE raddim      USE raddim
13      use swclr_m, only: swclr      use swclr_m, only: swclr
# Line 46  contains Line 46  contains
46      ! * ARGUMENTS:      ! * ARGUMENTS:
47    
48      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)  
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 132  contains Line 127  contains
127      ! --------------------------------      ! --------------------------------
128    
129    
130      CALL swclr(knu, flag_aer, tauae, pizae, cgae, palbp, pdsig, zrayl, &      CALL swclr(knu, palbp, pdsig, zrayl, psec, zpizaz, zray1, zray2, zrefz, &
131           psec, zcgaz, zpizaz, zray1, zray2, zrefz, zrj0, zrk0, zrmu0, ztauaz, &           zrj0, zrk0, zrmu0, ztauaz, ztra1, ztra2)
          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.178  
changed lines
  Added in v.328
  ViewVC Help
Powered by ViewVC 1.1.21