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

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

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

revision 138 by guez, Wed Apr 29 15:47:56 2015 UTC revision 139 by guez, Tue May 26 17:46:03 2015 UTC
# Line 4  module LWU_m Line 4  module LWU_m
4    
5  contains  contains
6    
7    SUBROUTINE LWU(PAER, PDP, PPMB, PPSOL, POZ, PTAVE, PVIEW, PWV, PABCU)    SUBROUTINE LWU(PAER, PDP, PPMB, POZ, PTAVE, PVIEW, PWV, PABCU)
8    
9      ! Purpose. Computes absorber amounts including pressure and      ! Purpose. Computes absorber amounts including pressure and
10      ! temperature effects.      ! temperature effects.
# Line 33  contains Line 33  contains
33      DOUBLE PRECISION PAER(KDLON, KFLEV, 5)      DOUBLE PRECISION PAER(KDLON, KFLEV, 5)
34      DOUBLE PRECISION PDP(KDLON, KFLEV)      DOUBLE PRECISION PDP(KDLON, KFLEV)
35      DOUBLE PRECISION PPMB(KDLON, KFLEV + 1)      DOUBLE PRECISION PPMB(KDLON, KFLEV + 1)
     DOUBLE PRECISION PPSOL(KDLON)  
36      DOUBLE PRECISION POZ(KDLON, KFLEV)      DOUBLE PRECISION POZ(KDLON, KFLEV)
37      DOUBLE PRECISION PTAVE(KDLON, KFLEV)      DOUBLE PRECISION PTAVE(KDLON, KFLEV)
38      DOUBLE PRECISION PVIEW(KDLON)      DOUBLE PRECISION PVIEW(KDLON)
Legend:
Removed from v.138  
changed lines
  Added in v.139
  ViewVC Help
Powered by ViewVC 1.1.21