/[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

trunk/phylmd/Radlwsw/swclr.f90 revision 81 by guez, Wed Mar 5 14:38:41 2014 UTC trunk/phylmd/Radlwsw/swclr.f 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.81  
changed lines
  Added in v.105
  ViewVC Help
Powered by ViewVC 1.1.21