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

Diff of /trunk/phylmd/Radlwsw/lwvd.f

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

revision 155 by guez, Wed Jul 8 17:03:45 2015 UTC revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 58  contains Line 58  contains
58    
59      INTEGER jl, jk, ja, ikp1, ikn, ikd1, jkj, ikd2      INTEGER jl, jk, ja, ikp1, ikn, ikd1, jkj, ikd2
60      INTEGER ikjp1, ikm1, ikj, jlk, iku1, ijkl, iku2      INTEGER ikjp1, ikm1, ikj, jlk, iku1, ijkl, iku2
61      INTEGER ind1, ind2, ind3, ind4, itt      INTEGER itt
62      DOUBLE PRECISION zww, zdzxdg, zdzxmg      DOUBLE PRECISION zww, zdzxdg, zdzxmg
63    
64      ! *         1.    INITIALIZATION      ! *         1.    INITIALIZATION
# Line 94  contains Line 94  contains
94      ! *         2.      VERTICAL INTEGRATION      ! *         2.      VERTICAL INTEGRATION
95      ! --------------------      ! --------------------
96    
   
     ind1 = 0  
     ind3 = 0  
     ind4 = 1  
     ind2 = 1  
   
   
97      ! *         2.2     CONTRIBUTION FROM DISTANT LAYERS      ! *         2.2     CONTRIBUTION FROM DISTANT LAYERS
98      ! ---------------------------------      ! ---------------------------------
99    
Legend:
Removed from v.155  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21