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

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

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

revision 70 by guez, Wed Mar 3 13:23:49 2010 UTC revision 71 by guez, Mon Jul 8 18:12:18 2013 UTC
# Line 46  C              --------- Line 46  C              ---------
46  C  C
47        INTEGER KUAER,KTRAER, KLIM        INTEGER KUAER,KTRAER, KLIM
48  C  C
49        REAL*8 PABCU(KDLON,NUA,3*KFLEV+1) ! ABSORBER AMOUNTS        DOUBLE PRECISION PABCU(KDLON,NUA,3*KFLEV+1) ! ABSORBER AMOUNTS
50        REAL*8 PADJD(KDLON,KFLEV+1) ! CONTRIBUTION BY ADJACENT LAYERS        DOUBLE PRECISION PADJD(KDLON,KFLEV+1) ! CONTRIBUTION BY ADJACENT LAYERS
51        REAL*8 PADJU(KDLON,KFLEV+1) ! CONTRIBUTION BY ADJACENT LAYERS        DOUBLE PRECISION PADJU(KDLON,KFLEV+1) ! CONTRIBUTION BY ADJACENT LAYERS
52        REAL*8 PB(KDLON,Ninter,KFLEV+1) ! SPECTRAL HALF-LEVEL PLANCK FUNCTIONS        DOUBLE PRECISION PB(KDLON,Ninter,KFLEV+1) ! SPECTRAL HALF-LEVEL PLANCK FUNCTIONS
53        REAL*8 PBINT(KDLON,KFLEV+1) ! HALF-LEVEL PLANCK FUNCTIONS        DOUBLE PRECISION PBINT(KDLON,KFLEV+1) ! HALF-LEVEL PLANCK FUNCTIONS
54        REAL*8 PBSUR(KDLON,Ninter) ! SPECTRAL SURFACE PLANCK FUNCTION        DOUBLE PRECISION PBSUR(KDLON,Ninter) ! SPECTRAL SURFACE PLANCK FUNCTION
55        REAL*8 PBSUI(KDLON) ! SURFACE PLANCK FUNCTION        DOUBLE PRECISION PBSUI(KDLON) ! SURFACE PLANCK FUNCTION
56        REAL*8 PBTOP(KDLON,Ninter) ! SPECTRAL T.O.A. PLANCK FUNCTION        DOUBLE PRECISION PBTOP(KDLON,Ninter) ! SPECTRAL T.O.A. PLANCK FUNCTION
57        REAL*8 PDISD(KDLON,KFLEV+1) ! CONTRIBUTION BY DISTANT LAYERS        DOUBLE PRECISION PDISD(KDLON,KFLEV+1) ! CONTRIBUTION BY DISTANT LAYERS
58        REAL*8 PDISU(KDLON,KFLEV+1) ! CONTRIBUTION BY DISTANT LAYERS        DOUBLE PRECISION PDISU(KDLON,KFLEV+1) ! CONTRIBUTION BY DISTANT LAYERS
59        REAL*8 PEMIS(KDLON) ! SURFACE EMISSIVITY        DOUBLE PRECISION PEMIS(KDLON) ! SURFACE EMISSIVITY
60        REAL*8 PPMB(KDLON,KFLEV+1) ! PRESSURE MB        DOUBLE PRECISION PPMB(KDLON,KFLEV+1) ! PRESSURE MB
61        REAL*8 PGA(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS        DOUBLE PRECISION PGA(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS
62        REAL*8 PGB(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS        DOUBLE PRECISION PGB(KDLON,8,2,KFLEV) ! PADE APPROXIMANTS
63        REAL*8 PGASUR(KDLON,8,2) ! SURFACE PADE APPROXIMANTS        DOUBLE PRECISION PGASUR(KDLON,8,2) ! SURFACE PADE APPROXIMANTS
64        REAL*8 PGBSUR(KDLON,8,2) ! SURFACE PADE APPROXIMANTS        DOUBLE PRECISION PGBSUR(KDLON,8,2) ! SURFACE PADE APPROXIMANTS
65        REAL*8 PGATOP(KDLON,8,2) ! T.O.A. PADE APPROXIMANTS        DOUBLE PRECISION PGATOP(KDLON,8,2) ! T.O.A. PADE APPROXIMANTS
66        REAL*8 PGBTOP(KDLON,8,2) ! T.O.A. PADE APPROXIMANTS        DOUBLE PRECISION PGBTOP(KDLON,8,2) ! T.O.A. PADE APPROXIMANTS
67  C  C
68        REAL*8 PFLUC(KDLON,2,KFLEV+1) ! CLEAR-SKY RADIATIVE FLUXES        DOUBLE PRECISION PFLUC(KDLON,2,KFLEV+1) ! CLEAR-SKY RADIATIVE FLUXES
69        REAL*8 PCTS(KDLON,KFLEV) ! COOLING-TO-SPACE TERM        DOUBLE PRECISION PCTS(KDLON,KFLEV) ! COOLING-TO-SPACE TERM
70  C  C
71  C* LOCAL VARIABLES:  C* LOCAL VARIABLES:
72  C  C
73        REAL*8 ZBGND(KDLON)        DOUBLE PRECISION ZBGND(KDLON)
74        REAL*8 ZFD(KDLON)        DOUBLE PRECISION ZFD(KDLON)
75        REAL*8  ZFN10(KDLON)        DOUBLE PRECISION  ZFN10(KDLON)
76        REAL*8 ZFU(KDLON)        DOUBLE PRECISION ZFU(KDLON)
77        REAL*8  ZTT(KDLON,NTRA)        DOUBLE PRECISION  ZTT(KDLON,NTRA)
78        REAL*8 ZTT1(KDLON,NTRA)        DOUBLE PRECISION ZTT1(KDLON,NTRA)
79        REAL*8 ZTT2(KDLON,NTRA)        DOUBLE PRECISION ZTT2(KDLON,NTRA)
80        REAL*8  ZUU(KDLON,NUA)        DOUBLE PRECISION  ZUU(KDLON,NUA)
81        REAL*8 ZCNSOL(KDLON)        DOUBLE PRECISION ZCNSOL(KDLON)
82        REAL*8 ZCNTOP(KDLON)        DOUBLE PRECISION ZCNTOP(KDLON)
83  C  C
84        INTEGER jk, jl, ja        INTEGER jk, jl, ja
85        INTEGER jstra, jstru        INTEGER jstra, jstru
86        INTEGER ind1, ind2, ind3, ind4, in, jlim        INTEGER ind1, ind2, ind3, ind4, in, jlim
87        REAL*8 zctstr        DOUBLE PRECISION zctstr
88  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
89  C  C
90  C*         1.    INITIALIZATION  C*         1.    INITIALIZATION
Legend:
Removed from v.70  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.21