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

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

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

revision 328 by guez, Thu Jun 13 14:40:06 2019 UTC revision 341 by guez, Mon Oct 21 06:11:44 2019 UTC
# Line 5  module swde_m Line 5  module swde_m
5  contains  contains
6    
7    SUBROUTINE swde(pgg, pref, prmuz, pto1, pw, pre1, pre2, ptr1, ptr2)    SUBROUTINE swde(pgg, pref, prmuz, pto1, pw, pre1, pre2, ptr1, ptr2)
8      USE dimensions      
9      USE dimphy      USE raddim, only: kdlon
10      USE raddim  
     ! ------------------------------------------------------------------  
11      ! PURPOSE.      ! PURPOSE.
12      ! --------      ! --------
13      ! COMPUTES THE REFLECTIVITY AND TRANSMISSIVITY OF A CLOUDY      ! COMPUTES THE REFLECTIVITY AND TRANSMISSIVITY OF A CLOUDY
# Line 126  contains Line 125  contains
125         zri0d = zc1b*zexkm + zc2b*zexkp - zalpha*zexmu0         zri0d = zc1b*zexkm + zc2b*zexkp - zalpha*zexmu0
126         zri1d = zrp*(zc1b*zexkm-zc2b*zexkp) - zbeta*zexmu0         zri1d = zrp*(zc1b*zexkm-zc2b*zexkp) - zbeta*zexmu0
127         ptr2(jl) = zexmu0 + (zri0d+zdt*zri1d)/prmuz(jl)         ptr2(jl) = zexmu0 + (zri0d+zdt*zri1d)/prmuz(jl)
   
128      END DO      END DO
129      RETURN  
130    END SUBROUTINE swde    END SUBROUTINE swde
131    
132  end module swde_m  end module swde_m
Legend:
Removed from v.328  
changed lines
  Added in v.341
  ViewVC Help
Powered by ViewVC 1.1.21