58 |
|
|
59 |
INTEGER jl, jk, ja, ikp1, ikn, ikd1, jkj, ikd2 |
INTEGER jl, jk, ja, ikp1, ikn, ikd1, jkj, ikd2 |
60 |
INTEGER ikjp1, ikm1, ikj, jlk, iku1, ijkl, iku2 |
INTEGER ikjp1, ikm1, ikj, jlk, iku1, ijkl, iku2 |
61 |
INTEGER ind1, ind2, ind3, ind4, itt |
INTEGER itt |
62 |
DOUBLE PRECISION zww, zdzxdg, zdzxmg |
DOUBLE PRECISION zww, zdzxdg, zdzxmg |
63 |
|
|
64 |
! * 1. INITIALIZATION |
! * 1. INITIALIZATION |
94 |
! * 2. VERTICAL INTEGRATION |
! * 2. VERTICAL INTEGRATION |
95 |
! -------------------- |
! -------------------- |
96 |
|
|
|
|
|
|
ind1 = 0 |
|
|
ind3 = 0 |
|
|
ind4 = 1 |
|
|
ind2 = 1 |
|
|
|
|
|
|
|
97 |
! * 2.2 CONTRIBUTION FROM DISTANT LAYERS |
! * 2.2 CONTRIBUTION FROM DISTANT LAYERS |
98 |
! --------------------------------- |
! --------------------------------- |
99 |
|
|