#include "dimensions.h"
#include "paramet.h"
#include "logic.h"
#include "comvert.h"
#include "comconst.h"
#include "comgeom.h"
Go to the source code of this file.
|
subroutine | vlsplt (q, pente_max, masse, w, pbaru, pbarv, pdt, iq) |
|
recursive subroutine | vlx (q, pente_max, masse, u_m, iq) |
|
recursive subroutine | vly (q, pente_max, masse, masse_adv_v, iq) |
|
recursive subroutine | vlz (q, pente_max, masse, w, iq) |
|
subroutine | minmaxq (zq, qmin, qmax, comment) |
|
subroutine vlsplt |
( |
real, dimension(ip1jmp1,llm,nqtot) |
q, |
|
|
real |
pente_max, |
|
|
real, dimension(ip1jmp1,llm) |
masse, |
|
|
real, dimension(ip1jmp1,llm) |
w, |
|
|
real, dimension( ip1jmp1,llm ) |
pbaru, |
|
|
real, dimension( ip1jm,llm) |
pbarv, |
|
|
real |
pdt, |
|
|
integer |
iq |
|
) |
| |
recursive subroutine vlx |
( |
real, dimension(ip1jmp1,llm,nqtot) |
q, |
|
|
real |
pente_max, |
|
|
real, dimension(ip1jmp1,llm,nqtot) |
masse, |
|
|
real, dimension( ip1jmp1,llm ) |
u_m, |
|
|
integer |
iq |
|
) |
| |
recursive subroutine vly |
( |
real, dimension(ip1jmp1,llm,nqtot) |
q, |
|
|
real |
pente_max, |
|
|
real, dimension(ip1jmp1,llm,nqtot) |
masse, |
|
|
real, dimension( ip1jm,llm) |
masse_adv_v, |
|
|
integer |
iq |
|
) |
| |
recursive subroutine vlz |
( |
real, dimension(ip1jmp1,llm,nqtot) |
q, |
|
|
real |
pente_max, |
|
|
real, dimension(ip1jmp1,llm,nqtot) |
masse, |
|
|
real, dimension(ip1jmp1,llm+1) |
w, |
|
|
integer |
iq |
|
) |
| |