74 |
DOUBLE PRECISION zfu(kdlon) |
DOUBLE PRECISION zfu(kdlon) |
75 |
DOUBLE PRECISION ztt(kdlon, ntra) |
DOUBLE PRECISION ztt(kdlon, ntra) |
76 |
DOUBLE PRECISION ztt1(kdlon, ntra) |
DOUBLE PRECISION ztt1(kdlon, ntra) |
|
DOUBLE PRECISION ztt2(kdlon, ntra) |
|
77 |
DOUBLE PRECISION zuu(kdlon, nua) |
DOUBLE PRECISION zuu(kdlon, nua) |
78 |
DOUBLE PRECISION zcnsol(kdlon) |
DOUBLE PRECISION zcnsol(kdlon) |
79 |
DOUBLE PRECISION zcntop(kdlon) |
DOUBLE PRECISION zcntop(kdlon) |
80 |
|
|
81 |
INTEGER jk, jl, ja |
INTEGER jk, jl, ja |
82 |
INTEGER jstra, jstru |
INTEGER jstra, jstru |
83 |
INTEGER ind1, ind2, ind3, ind4, in, jlim |
INTEGER in, jlim |
84 |
DOUBLE PRECISION zctstr |
DOUBLE PRECISION zctstr |
85 |
! ----------------------------------------------------------------------- |
! ----------------------------------------------------------------------- |
86 |
|
|
97 |
DO jl = 1, kdlon |
DO jl = 1, kdlon |
98 |
ztt(jl, ja) = 1.0 |
ztt(jl, ja) = 1.0 |
99 |
ztt1(jl, ja) = 1.0 |
ztt1(jl, ja) = 1.0 |
|
ztt2(jl, ja) = 1.0 |
|
100 |
END DO |
END DO |
101 |
END DO |
END DO |
102 |
|
|
111 |
! * 2. VERTICAL INTEGRATION |
! * 2. VERTICAL INTEGRATION |
112 |
! -------------------- |
! -------------------- |
113 |
|
|
|
|
|
|
ind1 = 0 |
|
|
ind3 = 0 |
|
|
ind4 = 1 |
|
|
ind2 = 1 |
|
|
|
|
|
|
|
114 |
! * 2.3 EXCHANGE WITH TOP OF THE ATMOSPHERE |
! * 2.3 EXCHANGE WITH TOP OF THE ATMOSPHERE |
115 |
! ----------------------------------- |
! ----------------------------------- |
116 |
|
|