75 |
|
|
76 |
INTEGER jk, jl, imaxc, imx1, imx2, jkj, jkp1, jkm1 |
INTEGER jk, jl, imaxc, imx1, imx2, jkj, jkp1, jkm1 |
77 |
INTEGER jk1, jk2, jkc, jkcp1, jcloud |
INTEGER jk1, jk2, jkc, jkcp1, jcloud |
|
INTEGER imxm1, imxp1 |
|
78 |
DOUBLE PRECISION zcfrac |
DOUBLE PRECISION zcfrac |
79 |
! ------------------------------------------------------------------ |
! ------------------------------------------------------------------ |
80 |
|
|
124 |
! --------------------------------------- |
! --------------------------------------- |
125 |
|
|
126 |
IF (imaxc>0) THEN |
IF (imaxc>0) THEN |
|
|
|
|
imxp1 = imaxc + 1 |
|
|
imxm1 = imaxc - 1 |
|
|
|
|
127 |
! * 2.0 INITIALIZE TO CLEAR-SKY FLUXES |
! * 2.0 INITIALIZE TO CLEAR-SKY FLUXES |
128 |
! ------------------------------ |
! ------------------------------ |
129 |
|
|