11 |
|
|
12 |
USE comconst, ONLY : dtvr |
USE comconst, ONLY : dtvr |
13 |
USE conf_gcm_m, ONLY : iapp_tracvl |
USE conf_gcm_m, ONLY : iapp_tracvl |
14 |
USE dimens_m, ONLY : iim, jjm, llm, nqmx |
USE dimens_m, ONLY : jjm, llm, nqmx |
15 |
USE iniadvtrac_m, ONLY : iadv |
USE iniadvtrac_m, ONLY : iadv |
16 |
use massbar_m, only: massbar |
use massbar_m, only: massbar |
17 |
USE paramet_m, ONLY : iip1, iip2, ijmllm, ijp1llm, ip1jm, ip1jmp1, jjp1, & |
USE paramet_m, ONLY : iip1, iip2, ijmllm, ijp1llm, ip1jm, ip1jmp1, llmp1 |
|
llmp1 |
|
18 |
use vlsplt_m, only: vlsplt |
use vlsplt_m, only: vlsplt |
19 |
use vlspltqs_m, only: vlspltqs |
use vlspltqs_m, only: vlspltqs |
20 |
|
|
39 |
REAL zdpmin, zdpmax |
REAL zdpmin, zdpmax |
40 |
EXTERNAL minmax |
EXTERNAL minmax |
41 |
|
|
|
! Rajouts pour PPM |
|
|
|
|
42 |
INTEGER indice, n |
INTEGER indice, n |
43 |
! Pas de temps adaptatif pour que CFL < 1 |
! Pas de temps adaptatif pour que CFL < 1 |
44 |
REAL dtbon |
REAL dtbon |
|
REAL cflmaxz ! CFL maximum |
|
|
real aaa, bbb |
|
|
REAL psppm(iim, jjp1) ! pression au sol |
|
|
REAL unatppm(iim, jjp1, llm), vnatppm(iim, jjp1, llm) |
|
|
REAL qppm(iim*jjp1, llm, nqmx) |
|
|
REAL fluxwppm(iim, jjp1, llm) |
|
|
REAL apppm(llmp1), bpppm(llmp1) |
|
|
LOGICAL:: fill = .TRUE. |
|
45 |
|
|
46 |
!----------------------------------------------------------- |
!----------------------------------------------------------- |
47 |
|
|