subroutine psmile_mg_method_3d_real |
( |
Type (Enddef_comp),intent(in) |
comp_info, |
|
|
Integer,intent(in) |
nlev, |
|
|
Integer,dimension (range(1,1),intent(inout) |
found, |
|
|
Integer,dimension (ndim_3d, range(1,1),intent(inout) |
loc, |
|
|
Integer,dimension(2,3),intent(inout) |
range, |
|
|
Real,dimension (shape(1,1),intent(in) |
coords1, |
|
|
Real,dimension (shape(1,1),intent(in) |
coords2, |
|
|
Real,dimension (shape(1,1),intent(in) |
coords3, |
|
|
Integer,dimension(2,3),intent(in) |
shape, |
|
|
Integer,dimension (2, ndim_3d),intent(in) |
control, |
|
|
Integer,intent(in) |
method_id, |
|
|
Real,dimension(coords_shape(1,1),intent(in) |
x_coords, |
|
|
Real,dimension(coords_shape(1,1),intent(in) |
y_coords, |
|
|
Real,dimension(coords_shape(1,1),intent(in) |
z_coords, |
|
|
Integer,dimension(2,3),intent(in) |
coords_shape, |
|
|
Integer,dimension(2,3),intent(in) |
grid_valid_shape, |
|
|
Logical,dimension (ndim_3d),intent(in) |
cyclic, |
|
|
Real,dimension (grid_valid_shape(1,1),intent(in) |
chmin1, |
|
|
Real,dimension (grid_valid_shape(1,1),intent(in) |
chmin2, |
|
|
Real,dimension (grid_valid_shape(1,1),intent(in) |
chmin3, |
|
|
Real,dimension (grid_valid_shape(1,1),intent(in) |
chmax1, |
|
|
Real,dimension (grid_valid_shape(1,1),intent(in) |
chmax2, |
|
|
Real,dimension (grid_valid_shape(1,1),intent(in) |
chmax3, |
|
|
Real,dimension (grid_valid_shape(1,1),intent(in) |
midp1, |
|
|
Real,dimension (grid_valid_shape(1,1),intent(in) |
midp2, |
|
|
Real,dimension (grid_valid_shape(1,1),intent(in) |
midp3, |
|
|
Real,intent(in) |
tol, |
|
|
Integer,intent(out) |
ierror | |
|
) |
| | |