156 |
END IF |
END IF |
157 |
2110 CONTINUE |
2110 CONTINUE |
158 |
|
|
|
|
|
|
200 CONTINUE |
|
|
|
|
|
!*********************************************************** |
|
|
|
|
159 |
!* 3. COMPUTE MOUNTAIN LIFT |
!* 3. COMPUTE MOUNTAIN LIFT |
160 |
|
|
|
300 CONTINUE |
|
|
|
|
161 |
DO 301 jl = 1, klon |
DO 301 jl = 1, klon |
162 |
IF (ktest(jl)==1) THEN |
IF (ktest(jl)==1) THEN |
163 |
ztau(jl,klev+1) = -gklift*zrho(jl,klev+1)*2.*romega*2*pvaror(jl)*sin & |
ztau(jl,klev+1) = -gklift*zrho(jl,klev+1)*2.*romega*2*pvaror(jl)*sin & |
175 |
!* -------------------- |
!* -------------------- |
176 |
|
|
177 |
|
|
|
400 CONTINUE |
|
|
|
|
178 |
DO jk = 1, klev |
DO jk = 1, klev |
179 |
DO jl = 1, klon |
DO jl = 1, klon |
180 |
IF (ktest(jl)==1) THEN |
IF (ktest(jl)==1) THEN |
192 |
!* ------------------- |
!* ------------------- |
193 |
IF (lifthigh) THEN |
IF (lifthigh) THEN |
194 |
|
|
|
500 CONTINUE |
|
195 |
! PRINT *,' DANS OROLIFT: 500' |
! PRINT *,' DANS OROLIFT: 500' |
196 |
|
|
197 |
! EXPLICIT SOLUTION AT ALL LEVELS |
! EXPLICIT SOLUTION AT ALL LEVELS |