Go to the source code of this file.
|
subroutine | dynetat0_loc (fichnom, vcov, ucov, teta, q, masse, ps, phis, time) |
|
subroutine | check_dim (n1, n2, str1, str2) |
|
subroutine | get_var1 (var, v) |
|
subroutine | get_var2 (var, v) |
|
subroutine | err (ierr, typ, nam) |
|
subroutine dynetat0_loc::check_dim |
( |
integer, intent(in) |
n1, |
|
|
integer, intent(in) |
n2, |
|
|
character(len=*), intent(in) |
str1, |
|
|
character(len=*), intent(in) |
str2 |
|
) |
| |
subroutine dynetat0_loc |
( |
character(len=*), intent(in) |
fichnom, |
|
|
real, dimension(ijb_v:ije_v,llm), intent(out) |
vcov, |
|
|
real, dimension(ijb_u:ije_u,llm), intent(out) |
ucov, |
|
|
real, dimension(ijb_u:ije_u,llm), intent(out) |
teta, |
|
|
real, dimension(ijb_u:ije_u,llm,nqtot), intent(out) |
q, |
|
|
real, dimension(ijb_u:ije_u,llm), intent(out) |
masse, |
|
|
real, dimension(ijb_u:ije_u), intent(out) |
ps, |
|
|
real, dimension(ijb_u:ije_u), intent(out) |
phis, |
|
|
real |
time |
|
) |
| |
subroutine dynetat0_loc::err |
( |
integer, intent(in) |
ierr, |
|
|
character(len=*), intent(in) |
typ, |
|
|
character(len=*), intent(in) |
nam |
|
) |
| |
subroutine dynetat0_loc::get_var1 |
( |
character(len=*), intent(in) |
var, |
|
|
real, dimension(:), intent(out) |
v |
|
) |
| |
subroutine dynetat0_loc::get_var2 |
( |
character(len=*), intent(in) |
var, |
|
|
real, dimension(:,:), intent(out) |
v |
|
) |
| |