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

Diff of /trunk/libf/phylmd/Radlwsw/swclr.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 34  C* ARGUMENTS: Line 34  C* ARGUMENTS:
34  C  C
35        INTEGER KNU        INTEGER KNU
36  c-OB  c-OB
37        real*8 flag_aer        double precision flag_aer
38        real*8 tauae(kdlon,kflev,2)        double precision tauae(kdlon,kflev,2)
39        real*8 pizae(kdlon,kflev,2)        double precision pizae(kdlon,kflev,2)
40        real*8 cgae(kdlon,kflev,2)        double precision cgae(kdlon,kflev,2)
41        REAL*8 PAER(KDLON,KFLEV,5)        DOUBLE PRECISION PAER(KDLON,KFLEV,5)
42        REAL*8 PALBP(KDLON,2)        DOUBLE PRECISION PALBP(KDLON,2)
43        REAL*8 PDSIG(KDLON,KFLEV)        DOUBLE PRECISION PDSIG(KDLON,KFLEV)
44        REAL*8 PRAYL(KDLON)        DOUBLE PRECISION PRAYL(KDLON)
45        REAL*8 PSEC(KDLON)        DOUBLE PRECISION PSEC(KDLON)
46  C  C
47        REAL*8 PCGAZ(KDLON,KFLEV)            DOUBLE PRECISION PCGAZ(KDLON,KFLEV)    
48        REAL*8 PPIZAZ(KDLON,KFLEV)        DOUBLE PRECISION PPIZAZ(KDLON,KFLEV)
49        REAL*8 PRAY1(KDLON,KFLEV+1)        DOUBLE PRECISION PRAY1(KDLON,KFLEV+1)
50        REAL*8 PRAY2(KDLON,KFLEV+1)        DOUBLE PRECISION PRAY2(KDLON,KFLEV+1)
51        REAL*8 PREFZ(KDLON,2,KFLEV+1)        DOUBLE PRECISION PREFZ(KDLON,2,KFLEV+1)
52        REAL*8 PRJ(KDLON,6,KFLEV+1)        DOUBLE PRECISION PRJ(KDLON,6,KFLEV+1)
53        REAL*8 PRK(KDLON,6,KFLEV+1)        DOUBLE PRECISION PRK(KDLON,6,KFLEV+1)
54        REAL*8 PRMU0(KDLON,KFLEV+1)        DOUBLE PRECISION PRMU0(KDLON,KFLEV+1)
55        REAL*8 PTAUAZ(KDLON,KFLEV)        DOUBLE PRECISION PTAUAZ(KDLON,KFLEV)
56        REAL*8 PTRA1(KDLON,KFLEV+1)        DOUBLE PRECISION PTRA1(KDLON,KFLEV+1)
57        REAL*8 PTRA2(KDLON,KFLEV+1)        DOUBLE PRECISION PTRA2(KDLON,KFLEV+1)
58  C  C
59  C* LOCAL VARIABLES:  C* LOCAL VARIABLES:
60  C  C
61        REAL*8 ZC0I(KDLON,KFLEV+1)              DOUBLE PRECISION ZC0I(KDLON,KFLEV+1)      
62        REAL*8 ZCLE0(KDLON,KFLEV)        DOUBLE PRECISION ZCLE0(KDLON,KFLEV)
63        REAL*8 ZCLEAR(KDLON)        DOUBLE PRECISION ZCLEAR(KDLON)
64        REAL*8 ZR21(KDLON)        DOUBLE PRECISION ZR21(KDLON)
65        REAL*8 ZR23(KDLON)        DOUBLE PRECISION ZR23(KDLON)
66        REAL*8 ZSS0(KDLON)        DOUBLE PRECISION ZSS0(KDLON)
67        REAL*8 ZSCAT(KDLON)        DOUBLE PRECISION ZSCAT(KDLON)
68        REAL*8 ZTR(KDLON,2,KFLEV+1)        DOUBLE PRECISION ZTR(KDLON,2,KFLEV+1)
69  C  C
70        INTEGER jl, jk, ja, jae, jkl, jklp1, jaj, jkm1, in        INTEGER jl, jk, ja, jae, jkl, jklp1, jaj, jkm1, in
71        REAL*8 ZTRAY, ZGAR, ZRATIO, ZFF, ZFACOA, ZCORAE        DOUBLE PRECISION ZTRAY, ZGAR, ZRATIO, ZFF, ZFACOA, ZCORAE
72        REAL*8 ZMUE, ZGAP, ZWW, ZTO, ZDEN, ZMU1, ZDEN1        DOUBLE PRECISION ZMUE, ZGAP, ZWW, ZTO, ZDEN, ZMU1, ZDEN1
73        REAL*8 ZBMU0, ZBMU1, ZRE11        DOUBLE PRECISION ZBMU0, ZBMU1, ZRE11
74  C  C
75  C* Prescribed Data for Aerosols:  C* Prescribed Data for Aerosols:
76  C  C
77        REAL*8 TAUA(2,5), RPIZA(2,5), RCGA(2,5)        DOUBLE PRECISION TAUA(2,5), RPIZA(2,5), RCGA(2,5)
78        SAVE TAUA, RPIZA, RCGA        SAVE TAUA, RPIZA, RCGA
79        DATA ((TAUA(IN,JA),JA=1,5),IN=1,2) /        DATA ((TAUA(IN,JA),JA=1,5),IN=1,2) /
80       S .730719, .912819, .725059, .745405, .682188 ,       S .730719, .912819, .725059, .745405, .682188 ,
Legend:
Removed from v.70  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.21