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 |