/[lmdze]/trunk/Sources/phylmd/Radlwsw/lwvn.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/Radlwsw/lwvn.f

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

revision 166 by guez, Wed Jul 29 14:32:55 2015 UTC revision 168 by guez, Wed Sep 9 10:41:47 2015 UTC
# Line 186  contains Line 186  contains
186            pcntrb(jl, jk+1, jk) = zglayu(jl)            pcntrb(jl, jk+1, jk) = zglayu(jl)
187            pcntrb(jl, jk, jk) = 0.0            pcntrb(jl, jk, jk) = 0.0
188         END DO         END DO
   
189      END DO      END DO
190    
191      DO jk = 1, kflev      DO jk = 1, kflev
# Line 199  contains Line 198  contains
198         END DO         END DO
199      END DO      END DO
200    
     RETURN  
   
201    END SUBROUTINE lwvn    END SUBROUTINE lwvn
202    
203  end module lwvn_m  end module lwvn_m
Legend:
Removed from v.166  
changed lines
  Added in v.168
  ViewVC Help
Powered by ViewVC 1.1.21