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

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

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

revision 212 by guez, Wed Sep 9 10:41:47 2015 UTC revision 213 by guez, Mon Feb 27 15:44:55 2017 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.212  
changed lines
  Added in v.213
  ViewVC Help
Powered by ViewVC 1.1.21