/[lmdze]/trunk/libf/phylmd/Radlwsw/lwv.f
ViewVC logotype

Diff of /trunk/libf/phylmd/Radlwsw/lwv.f

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

revision 70 by guez, Thu Jan 6 17:52:19 2011 UTC revision 71 by guez, Mon Jul 8 18:12:18 2013 UTC
# Line 42  C Line 42  C
42  C* ARGUMENTS:  C* ARGUMENTS:
43        INTEGER KUAER,KTRAER, KLIM        INTEGER KUAER,KTRAER, KLIM
44  C  C
45        REAL*8 PABCU(KDLON,NUA,3*KFLEV+1) ! EFFECTIVE ABSORBER AMOUNTS        DOUBLE PRECISION PABCU(KDLON,NUA,3*KFLEV+1) ! EFFECTIVE ABSORBER AMOUNTS
46        REAL*8 PB(KDLON,Ninter,KFLEV+1) ! SPECTRAL HALF-LEVEL PLANCK FUNCTIONS        DOUBLE PRECISION PB(KDLON,Ninter,KFLEV+1) ! SPECTRAL HALF-LEVEL PLANCK FUNCTIONS
47        REAL*8 PBINT(KDLON,KFLEV+1) ! HALF-LEVEL PLANCK FUNCTIONS        DOUBLE PRECISION PBINT(KDLON,KFLEV+1) ! HALF-LEVEL PLANCK FUNCTIONS
48        REAL*8 PBSUR(KDLON,Ninter) ! SURFACE SPECTRAL PLANCK FUNCTION        DOUBLE PRECISION PBSUR(KDLON,Ninter) ! SURFACE SPECTRAL PLANCK FUNCTION
49        REAL*8 PBSUIN(KDLON) ! SURFACE PLANCK FUNCTION        DOUBLE PRECISION PBSUIN(KDLON) ! SURFACE PLANCK FUNCTION
50        REAL*8 PBTOP(KDLON,Ninter) ! T.O.A. SPECTRAL PLANCK FUNCTION        DOUBLE PRECISION PBTOP(KDLON,Ninter) ! T.O.A. SPECTRAL PLANCK FUNCTION
51        REAL*8 PDBSL(KDLON,Ninter,KFLEV*2) ! SUB-LAYER PLANCK FUNCTION GRADIENT        DOUBLE PRECISION PDBSL(KDLON,Ninter,KFLEV*2) ! SUB-LAYER PLANCK FUNCTION GRADIENT
52        REAL*8 PEMIS(KDLON) ! SURFACE EMISSIVITY        DOUBLE PRECISION PEMIS(KDLON) ! SURFACE EMISSIVITY
53        REAL*8 PPMB(KDLON,KFLEV+1) ! HALF-LEVEL PRESSURE (MB)        DOUBLE PRECISION PPMB(KDLON,KFLEV+1) ! HALF-LEVEL PRESSURE (MB)
54        REAL*8 PTAVE(KDLON,KFLEV) ! TEMPERATURE        DOUBLE PRECISION PTAVE(KDLON,KFLEV) ! TEMPERATURE
55        REAL*8 PGA(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS        DOUBLE PRECISION PGA(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS
56        REAL*8 PGB(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS        DOUBLE PRECISION PGB(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS
57        REAL*8 PGASUR(KDLON,8,2) ! PADE APPROXIMANTS        DOUBLE PRECISION PGASUR(KDLON,8,2) ! PADE APPROXIMANTS
58        REAL*8 PGBSUR(KDLON,8,2) ! PADE APPROXIMANTS        DOUBLE PRECISION PGBSUR(KDLON,8,2) ! PADE APPROXIMANTS
59        REAL*8 PGATOP(KDLON,8,2) ! PADE APPROXIMANTS        DOUBLE PRECISION PGATOP(KDLON,8,2) ! PADE APPROXIMANTS
60        REAL*8 PGBTOP(KDLON,8,2) ! PADE APPROXIMANTS        DOUBLE PRECISION PGBTOP(KDLON,8,2) ! PADE APPROXIMANTS
61  C  C
62        REAL*8 PCNTRB(KDLON,KFLEV+1,KFLEV+1) ! CLEAR-SKY ENERGY EXCHANGE MATRIX        DOUBLE PRECISION PCNTRB(KDLON,KFLEV+1,KFLEV+1) ! CLEAR-SKY ENERGY EXCHANGE MATRIX
63        REAL*8 PCTS(KDLON,KFLEV) ! COOLING-TO-SPACE TERM        DOUBLE PRECISION PCTS(KDLON,KFLEV) ! COOLING-TO-SPACE TERM
64        REAL*8 PFLUC(KDLON,2,KFLEV+1) ! CLEAR-SKY RADIATIVE FLUXES        DOUBLE PRECISION PFLUC(KDLON,2,KFLEV+1) ! CLEAR-SKY RADIATIVE FLUXES
65  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
66  C LOCAL VARIABLES:  C LOCAL VARIABLES:
67        REAL*8 ZADJD(KDLON,KFLEV+1)        DOUBLE PRECISION ZADJD(KDLON,KFLEV+1)
68        REAL*8 ZADJU(KDLON,KFLEV+1)        DOUBLE PRECISION ZADJU(KDLON,KFLEV+1)
69        REAL*8 ZDBDT(KDLON,Ninter,KFLEV)        DOUBLE PRECISION ZDBDT(KDLON,Ninter,KFLEV)
70        REAL*8 ZDISD(KDLON,KFLEV+1)        DOUBLE PRECISION ZDISD(KDLON,KFLEV+1)
71        REAL*8 ZDISU(KDLON,KFLEV+1)        DOUBLE PRECISION ZDISU(KDLON,KFLEV+1)
72  C  C
73        INTEGER jk, jl        INTEGER jk, jl
74  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
Legend:
Removed from v.70  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.21