/[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 168 by guez, Wed Sep 9 10:41:47 2015 UTC trunk/phylmd/Radlwsw/lwbv.f revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC
# Line 7  contains Line 7  contains
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 dimensions
11      USE dimphy      USE dimphy
12      use lwv_m, only: lwv      use lwv_m, only: lwv
13      USE suphec_m      USE suphec_m
# Line 80  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.168  
changed lines
  Added in v.265
  ViewVC Help
Powered by ViewVC 1.1.21