/[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 254 by guez, Mon Feb 5 10:39:38 2018 UTC
# 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.254
  ViewVC Help
Powered by ViewVC 1.1.21