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

Diff of /trunk/libf/phylmd/Radlwsw/lwc.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 54  C        Voigt lines (loop 231 to 233) Line 54  C        Voigt lines (loop 231 to 233)
54  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
55  C* ARGUMENTS:  C* ARGUMENTS:
56        INTEGER klim        INTEGER klim
57        REAL*8 PFLUC(KDLON,2,KFLEV+1) ! CLEAR-SKY RADIATIVE FLUXES        DOUBLE PRECISION PFLUC(KDLON,2,KFLEV+1) ! CLEAR-SKY RADIATIVE FLUXES
58        REAL*8 PBINT(KDLON,KFLEV+1)   ! HALF LEVEL PLANCK FUNCTION        DOUBLE PRECISION PBINT(KDLON,KFLEV+1)   ! HALF LEVEL PLANCK FUNCTION
59        REAL*8 PBSUIN(KDLON)          ! SURFACE PLANCK FUNCTION        DOUBLE PRECISION PBSUIN(KDLON)          ! SURFACE PLANCK FUNCTION
60        REAL*8 PCNTRB(KDLON,KFLEV+1,KFLEV+1) !CLEAR-SKY ENERGY EXCHANGE        DOUBLE PRECISION PCNTRB(KDLON,KFLEV+1,KFLEV+1) !CLEAR-SKY ENERGY EXCHANGE
61        REAL*8 PCTS(KDLON,KFLEV)      ! CLEAR-SKY LAYER COOLING-TO-SPACE        DOUBLE PRECISION PCTS(KDLON,KFLEV)      ! CLEAR-SKY LAYER COOLING-TO-SPACE
62  c  c
63        REAL*8 PCLDLD(KDLON,KFLEV)        DOUBLE PRECISION PCLDLD(KDLON,KFLEV)
64        REAL*8 PCLDLU(KDLON,KFLEV)        DOUBLE PRECISION PCLDLU(KDLON,KFLEV)
65        REAL*8 PEMIS(KDLON)        DOUBLE PRECISION PEMIS(KDLON)
66  C  C
67        REAL*8 PFLUX(KDLON,2,KFLEV+1)        DOUBLE PRECISION PFLUX(KDLON,2,KFLEV+1)
68  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
69  C* LOCAL VARIABLES:  C* LOCAL VARIABLES:
70        INTEGER IMX(KDLON), IMXP(KDLON)        INTEGER IMX(KDLON), IMXP(KDLON)
71  C  C
72        REAL*8 ZCLEAR(KDLON),ZCLOUD(KDLON),ZDNF(KDLON,KFLEV+1,KFLEV+1)        DOUBLE PRECISION ZCLEAR(KDLON),ZCLOUD(KDLON)
73          DOUBLE PRECISION ZDNF(KDLON,KFLEV+1,KFLEV+1)
74       S  , ZFD(KDLON), ZFN10(KDLON), ZFU(KDLON)       S  , ZFD(KDLON), ZFN10(KDLON), ZFU(KDLON)
75       S  , ZUPF(KDLON,KFLEV+1,KFLEV+1)       S  , ZUPF(KDLON,KFLEV+1,KFLEV+1)
76        REAL*8 ZCLM(KDLON,KFLEV+1,KFLEV+1)        DOUBLE PRECISION ZCLM(KDLON,KFLEV+1,KFLEV+1)
77  C  C
78        INTEGER jk, jl, imaxc, imx1, imx2, jkj, jkp1, jkm1        INTEGER jk, jl, imaxc, imx1, imx2, jkj, jkp1, jkm1
79        INTEGER jk1, jk2, jkc, jkcp1, jcloud        INTEGER jk1, jk2, jkc, jkcp1, jcloud
80        INTEGER imxm1, imxp1        INTEGER imxm1, imxp1
81        REAL*8 zcfrac        DOUBLE PRECISION zcfrac
82  C     ------------------------------------------------------------------  C     ------------------------------------------------------------------
83  C  C
84  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