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

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

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

trunk/Sources/phylmd/Radlwsw/lwbv.f revision 155 by guez, Wed Jul 8 17:03:45 2015 UTC trunk/phylmd/Radlwsw/lwbv.f revision 254 by guez, Mon Feb 5 10:39:38 2018 UTC
# Line 6  contains Line 6  contains
6    
7    SUBROUTINE lwbv(klim, pdt0, pemis, ppmb, ptl, ptave, pabcu, pfluc, &    SUBROUTINE lwbv(klim, pdt0, pemis, ppmb, ptl, ptave, pabcu, pfluc, &
8         pbint, pbsui, pcts, pcntrb)         pbint, pbsui, pcts, pcntrb)
9    
10      USE dimens_m      USE dimens_m
11      USE dimphy      USE dimphy
12      use lwv_m, only: lwv      use lwv_m, only: lwv
# Line 79  contains Line 80  contains
80      INTEGER nuaer, ntraer      INTEGER nuaer, ntraer
81      ! ------------------------------------------------------------------      ! ------------------------------------------------------------------
82      ! * COMPUTES PLANCK FUNCTIONS:      ! * COMPUTES PLANCK FUNCTIONS:
83      CALL lwb(pdt0, ptave, ptl, zb, pbint, pbsui, zbsur, zbtop, zdbsl, zga, zgb, &      CALL lwb(pdt0, ptave, ptl, zb, pbint, pbsui, zbsur, zbtop, zdbsl, zga, &
84           zgasur, zgbsur, zgatop, zgbtop)           zgb, zgasur, zgbsur, zgatop, zgbtop)
85      ! ------------------------------------------------------------------      ! ------------------------------------------------------------------
86      ! * PERFORMS THE VERTICAL INTEGRATION:      ! * PERFORMS THE VERTICAL INTEGRATION:
87      nuaer = nua      nuaer = nua
Legend:
Removed from v.155  
changed lines
  Added in v.254
  ViewVC Help
Powered by ViewVC 1.1.21