17 |
use massbar_m, only: massbar |
use massbar_m, only: massbar |
18 |
USE paramet_m, ONLY : iip1, iip2, ijmllm, ijp1llm, ip1jm, ip1jmp1, jjp1, & |
USE paramet_m, ONLY : iip1, iip2, ijmllm, ijp1llm, ip1jm, ip1jmp1, jjp1, & |
19 |
llmp1 |
llmp1 |
20 |
|
use ppm3d_m, only: ppm3d |
21 |
use vlsplt_m, only: vlsplt |
use vlsplt_m, only: vlsplt |
22 |
use vlspltqs_m, only: vlspltqs |
use vlspltqs_m, only: vlspltqs |
23 |
|
|
189 |
! Ss-prg PPM3d de Lin |
! Ss-prg PPM3d de Lin |
190 |
CALL ppm3d(1, qppm(1, 1, iq), psppm, psppm, unatppm, & |
CALL ppm3d(1, qppm(1, 1, iq), psppm, psppm, unatppm, & |
191 |
vnatppm, fluxwppm, dtbon, 2, 2, 2, 1, iim, jjp1, 2, & |
vnatppm, fluxwppm, dtbon, 2, 2, 2, 1, iim, jjp1, 2, & |
192 |
llm, apppm, bpppm, 0.01, 6400000, fill, dum, 220.) |
llm, apppm, bpppm, 0.01, 6400000, fill, 220.) |
193 |
! Monotonic PPM |
! Monotonic PPM |
194 |
ELSE IF (iadv(iq)==16) THEN |
ELSE IF (iadv(iq)==16) THEN |
195 |
! Ss-prg PPM3d de Lin |
! Ss-prg PPM3d de Lin |
196 |
CALL ppm3d(1, qppm(1, 1, iq), psppm, psppm, unatppm, & |
CALL ppm3d(1, qppm(1, 1, iq), psppm, psppm, unatppm, & |
197 |
vnatppm, fluxwppm, dtbon, 3, 3, 3, 1, iim, jjp1, 2, & |
vnatppm, fluxwppm, dtbon, 3, 3, 3, 1, iim, jjp1, 2, & |
198 |
llm, apppm, bpppm, 0.01, 6400000, fill, dum, 220.) |
llm, apppm, bpppm, 0.01, 6400000, fill, 220.) |
199 |
! Semi Monotonic PPM |
! Semi Monotonic PPM |
200 |
ELSE IF (iadv(iq)==17) THEN |
ELSE IF (iadv(iq)==17) THEN |
201 |
! Ss-prg PPM3d de Lin |
! Ss-prg PPM3d de Lin |
202 |
CALL ppm3d(1, qppm(1, 1, iq), psppm, psppm, unatppm, & |
CALL ppm3d(1, qppm(1, 1, iq), psppm, psppm, unatppm, & |
203 |
vnatppm, fluxwppm, dtbon, 4, 4, 4, 1, iim, jjp1, 2, & |
vnatppm, fluxwppm, dtbon, 4, 4, 4, 1, iim, jjp1, 2, & |
204 |
llm, apppm, bpppm, 0.01, 6400000, fill, dum, 220.) |
llm, apppm, bpppm, 0.01, 6400000, fill, 220.) |
205 |
! Positive Definite PPM |
! Positive Definite PPM |
206 |
ELSE IF (iadv(iq)==18) THEN |
ELSE IF (iadv(iq)==18) THEN |
207 |
! Ss-prg PPM3d de Lin |
! Ss-prg PPM3d de Lin |
208 |
CALL ppm3d(1, qppm(1, 1, iq), psppm, psppm, unatppm, & |
CALL ppm3d(1, qppm(1, 1, iq), psppm, psppm, unatppm, & |
209 |
vnatppm, fluxwppm, dtbon, 5, 5, 5, 1, iim, jjp1, 2, & |
vnatppm, fluxwppm, dtbon, 5, 5, 5, 1, iim, jjp1, 2, & |
210 |
llm, apppm, bpppm, 0.01, 6400000, fill, dum, 220.) |
llm, apppm, bpppm, 0.01, 6400000, fill, 220.) |
211 |
END IF |
END IF |
212 |
END DO |
END DO |
213 |
|
|