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

Diff of /trunk/Sources/phylmd/Radlwsw/swclr.f

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

revision 104 by guez, Wed Mar 5 14:57:53 2014 UTC revision 105 by guez, Thu Sep 4 10:40:24 2014 UTC
# Line 65  SUBROUTINE swclr(knu, paer, flag_aer, ta Line 65  SUBROUTINE swclr(knu, paer, flag_aer, ta
65    DOUBLE PRECISION zscat(kdlon)    DOUBLE PRECISION zscat(kdlon)
66    DOUBLE PRECISION ztr(kdlon, 2, kflev+1)    DOUBLE PRECISION ztr(kdlon, 2, kflev+1)
67    
68    INTEGER jl, jk, ja, jae, jkl, jklp1, jaj, jkm1, in    INTEGER jl, jk, ja, jkl, jklp1, jaj, jkm1, in
69    DOUBLE PRECISION ztray, zgar, zratio, zff, zfacoa, zcorae    DOUBLE PRECISION ztray, zgar, zratio, zff, zfacoa, zcorae
70    DOUBLE PRECISION zmue, zgap, zww, zto, zden, zmu1, zden1    DOUBLE PRECISION zmue, zgap, zww, zto, zden, zmu1, zden1
71    DOUBLE PRECISION zbmu0, zbmu1, zre11    DOUBLE PRECISION zbmu0, zbmu1, zre11
Legend:
Removed from v.104  
changed lines
  Added in v.105
  ViewVC Help
Powered by ViewVC 1.1.21