#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.
|
recursive subroutine | vlx_loc (q, pente_max, masse, u_m, ijb_x, ije_x, iq) |
|
recursive subroutine | vly_loc (q, pente_max, masse, masse_adv_v, iq) |
|
recursive subroutine | vlz_loc (q, pente_max, masse, w, ijb_x, ije_x, iq) |
|
recursive subroutine vlx_loc |
( |
real, dimension(ijb_u:ije_u,llm,nqtot) |
q, |
|
|
real |
pente_max, |
|
|
real, dimension(ijb_u:ije_u,llm,nqtot) |
masse, |
|
|
real, dimension( ijb_u:ije_u,llm) |
u_m, |
|
|
integer |
ijb_x, |
|
|
integer |
ije_x, |
|
|
integer |
iq |
|
) |
| |
recursive subroutine vly_loc |
( |
real, dimension(ijb_u:ije_u,llm,nqtot) |
q, |
|
|
real |
pente_max, |
|
|
real, dimension(ijb_u:ije_u,llm,nqtot) |
masse, |
|
|
real, dimension( ijb_v:ije_v,llm) |
masse_adv_v, |
|
|
integer |
iq |
|
) |
| |
recursive subroutine vlz_loc |
( |
real, dimension(ijb_u:ije_u,llm,nqtot) |
q, |
|
|
real |
pente_max, |
|
|
real, dimension(ijb_u:ije_u,llm,nqtot) |
masse, |
|
|
real, dimension(ijb_u:ije_u,llm+1,nqtot) |
w, |
|
|
integer |
ijb_x, |
|
|
integer |
ije_x, |
|
|
integer |
iq |
|
) |
| |