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

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

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

trunk/Sources/phylmd/Radlwsw/lwv.f revision 155 by guez, Wed Jul 8 17:03:45 2015 UTC trunk/phylmd/Radlwsw/lwv.f revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC
# Line 7  contains Line 7  contains
7    SUBROUTINE lwv(kuaer, ktraer, klim, pabcu, pb, pbint, pbsuin, pbsur, pbtop, &    SUBROUTINE lwv(kuaer, ktraer, klim, pabcu, pb, pbint, pbsuin, pbsur, pbtop, &
8         pdbsl, pemis, ppmb, pga, pgb, pgasur, pgbsur, pgatop, pgbtop, &         pdbsl, pemis, ppmb, pga, pgb, pgasur, pgbsur, pgatop, pgbtop, &
9         pcntrb, pcts, pfluc)         pcntrb, pcts, pfluc)
10      USE dimens_m      USE dimensions
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.265
  ViewVC Help
Powered by ViewVC 1.1.21