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 : iim, jjm, llm, nqmx |
15 |
USE iniadvtrac_m, ONLY : iadv |
USE iniadvtrac_m, ONLY : iadv |
16 |
|
use interpre_m, only: interpre |
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 vlspltqs_m, only: vlspltqs |
21 |
|
|
22 |
REAL, intent(in):: pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) |
REAL, intent(in):: pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) |
23 |
REAL, intent(in):: p(ip1jmp1, llmp1) |
REAL, intent(in):: p(ip1jmp1, llmp1) |