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

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

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

revision 144 by guez, Tue May 26 17:46:03 2015 UTC revision 145 by guez, Tue Jun 16 15:23:29 2015 UTC
# Line 4  module lw_m Line 4  module lw_m
4    
5  contains  contains
6    
7    SUBROUTINE LW(PPMB, PDP, PPSOL, PDT0, PEMIS, PTL, PTAVE, PWV, POZON, PAER, &    SUBROUTINE LW(PPMB, PDP, PDT0, PEMIS, PTL, PTAVE, PWV, POZON, PAER, PCLDLD, &
8         PCLDLD, PCLDLU, PVIEW, PCOLR, PCOLR0, PTOPLW, PSOLLW, PTOPLW0, PSOLLW0, &         PCLDLU, PVIEW, PCOLR, PCOLR0, PTOPLW, PSOLLW, PTOPLW0, PSOLLW0, &
9         psollwdown, plwup, plwdn, plwup0, plwdn0)         psollwdown, plwup, plwdn, plwup0, plwdn0)
10    
11      use LWU_m, only: LWU      use LWU_m, only: LWU
# Line 43  contains Line 43  contains
43      DOUBLE PRECISION PDT0(KDLON) ! SURFACE TEMPERATURE DISCONTINUITY (K)      DOUBLE PRECISION PDT0(KDLON) ! SURFACE TEMPERATURE DISCONTINUITY (K)
44      DOUBLE PRECISION PEMIS(KDLON) ! SURFACE EMISSIVITY      DOUBLE PRECISION PEMIS(KDLON) ! SURFACE EMISSIVITY
45      DOUBLE PRECISION PPMB(KDLON, KFLEV+1) ! HALF LEVEL PRESSURE (mb)      DOUBLE PRECISION PPMB(KDLON, KFLEV+1) ! HALF LEVEL PRESSURE (mb)
     DOUBLE PRECISION PPSOL(KDLON) ! SURFACE PRESSURE (Pa)  
46      DOUBLE PRECISION POZON(KDLON, KFLEV) ! O3 CONCENTRATION (kg/kg)      DOUBLE PRECISION POZON(KDLON, KFLEV) ! O3 CONCENTRATION (kg/kg)
47      DOUBLE PRECISION PTL(KDLON, KFLEV+1) ! HALF LEVEL TEMPERATURE (K)      DOUBLE PRECISION PTL(KDLON, KFLEV+1) ! HALF LEVEL TEMPERATURE (K)
48      DOUBLE PRECISION PAER(KDLON, KFLEV, 5) ! OPTICAL THICKNESS OF THE AEROSOLS      DOUBLE PRECISION PAER(KDLON, KFLEV, 5) ! OPTICAL THICKNESS OF THE AEROSOLS
Legend:
Removed from v.144  
changed lines
  Added in v.145
  ViewVC Help
Powered by ViewVC 1.1.21