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

Diff of /trunk/libf/phylmd/Radlwsw/swde.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 32  C        ORIGINAL : 88-12-15 Line 32  C        ORIGINAL : 88-12-15
32  C     ------------------------------------------------------------------  C     ------------------------------------------------------------------
33  C* ARGUMENTS:  C* ARGUMENTS:
34  C  C
35        REAL*8 PGG(KDLON)   ! ASSYMETRY FACTOR        DOUBLE PRECISION PGG(KDLON)   ! ASSYMETRY FACTOR
36        REAL*8 PREF(KDLON)  ! REFLECTIVITY OF THE UNDERLYING LAYER        DOUBLE PRECISION PREF(KDLON)  ! REFLECTIVITY OF THE UNDERLYING LAYER
37        REAL*8 PRMUZ(KDLON) ! COSINE OF SOLAR ZENITH ANGLE        DOUBLE PRECISION PRMUZ(KDLON) ! COSINE OF SOLAR ZENITH ANGLE
38        REAL*8 PTO1(KDLON)  ! OPTICAL THICKNESS        DOUBLE PRECISION PTO1(KDLON)  ! OPTICAL THICKNESS
39        REAL*8 PW(KDLON)    ! SINGLE SCATTERING ALBEDO        DOUBLE PRECISION PW(KDLON)    ! SINGLE SCATTERING ALBEDO
40        REAL*8 PRE1(KDLON)  ! LAYER REFLECTIVITY (NO UNDERLYING-LAYER REFLECTION)        DOUBLE PRECISION PRE1(KDLON)  ! LAYER REFLECTIVITY (NO UNDERLYING-LAYER REFLECTION)
41        REAL*8 PRE2(KDLON)  ! LAYER REFLECTIVITY        DOUBLE PRECISION PRE2(KDLON)  ! LAYER REFLECTIVITY
42        REAL*8 PTR1(KDLON)  ! LAYER TRANSMISSIVITY (NO UNDERLYING-LAYER REFLECTION)        DOUBLE PRECISION PTR1(KDLON)  ! LAYER TRANSMISSIVITY (NO UNDERLYING-LAYER REFLECTION)
43        REAL*8 PTR2(KDLON)  ! LAYER TRANSMISSIVITY        DOUBLE PRECISION PTR2(KDLON)  ! LAYER TRANSMISSIVITY
44  C  C
45  C* LOCAL VARIABLES:  C* LOCAL VARIABLES:
46  C  C
47        INTEGER jl        INTEGER jl
48        REAL*8 ZFF, ZGP, ZTOP, ZWCP, ZDT, ZX1, ZWM        DOUBLE PRECISION ZFF, ZGP, ZTOP, ZWCP, ZDT, ZX1, ZWM
49        REAL*8 ZRM2, ZRK, ZX2, ZRP, ZALPHA, ZBETA, ZARG        DOUBLE PRECISION ZRM2, ZRK, ZX2, ZRP, ZALPHA, ZBETA, ZARG
50        REAL*8 ZEXMU0, ZARG2, ZEXKP, ZEXKM, ZXP2P, ZXM2P, ZAP2B, ZAM2B        DOUBLE PRECISION ZEXMU0, ZARG2, ZEXKP, ZEXKM, ZXP2P, ZXM2P, ZAP2B
51        REAL*8 ZA11, ZA12, ZA13, ZA21, ZA22, ZA23        DOUBLE PRECISION ZAM2B
52        REAL*8 ZDENA, ZC1A, ZC2A, ZRI0A, ZRI1A        DOUBLE PRECISION ZA11, ZA12, ZA13, ZA21, ZA22, ZA23
53        REAL*8 ZRI0B, ZRI1B        DOUBLE PRECISION ZDENA, ZC1A, ZC2A, ZRI0A, ZRI1A
54        REAL*8 ZB21, ZB22, ZB23, ZDENB, ZC1B, ZC2B        DOUBLE PRECISION ZRI0B, ZRI1B
55        REAL*8 ZRI0C, ZRI1C, ZRI0D, ZRI1D        DOUBLE PRECISION ZB21, ZB22, ZB23, ZDENB, ZC1B, ZC2B
56          DOUBLE PRECISION ZRI0C, ZRI1C, ZRI0D, ZRI1D
57  C     ------------------------------------------------------------------  C     ------------------------------------------------------------------
58  C  C
59  C*         1.      DELTA-EDDINGTON CALCULATIONS  C*         1.      DELTA-EDDINGTON CALCULATIONS
Legend:
Removed from v.70  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.21