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

Diff of /trunk/phylmd/Radlwsw/lwv.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 166 by guez, Wed Jul 29 14:32:55 2015 UTC
# Line 10  contains Line 10  contains
10      USE dimens_m      USE dimens_m
11      USE dimphy      USE dimphy
12      use lwvd_m, only: lwvd      use lwvd_m, only: lwvd
13        use lwvn_m, only: lwvn
14      USE suphec_m      USE suphec_m
15      USE raddim      USE raddim
16      USE raddimlw      USE raddimlw
# Line 94  contains Line 95  contains
95    
96      ! * CONTRIBUTION FROM ADJACENT LAYERS      ! * CONTRIBUTION FROM ADJACENT LAYERS
97    
98      CALL lwvn(kuaer, ktraer, pabcu, pdbsl, pga, pgb, zadjd, zadju, pcntrb, &      CALL lwvn(kuaer, pabcu, pdbsl, pga, pgb, zadjd, zadju, pcntrb, zdbdt)
          zdbdt)  
99      ! * CONTRIBUTION FROM DISTANT LAYERS      ! * CONTRIBUTION FROM DISTANT LAYERS
100    
101      CALL lwvd(ktraer, pabcu, zdbdt, pga, pgb, pcntrb, zdisd, zdisu)      CALL lwvd(ktraer, pabcu, zdbdt, pga, pgb, pcntrb, zdisd, zdisu)
Legend:
Removed from v.155  
changed lines
  Added in v.166
  ViewVC Help
Powered by ViewVC 1.1.21