Go to the source code of this file.
Defines | |
#define | CONTROL_POLE_CELL |
Functions/Subroutines | |
subroutine | psmile_mg_final_2d_dble (grid_id, nlev, chmin1, chmin2, chmax1, chmax2, midp1, midp2, levdim, found, loc, range, coords1, coords2, shape, control, corners1, corners2, corner_shape, nbr_corners, tol, ierror) |
#define CONTROL_POLE_CELL |
subroutine psmile_mg_final_2d_dble | ( | Integer,intent(in) | grid_id, | |
Integer,intent(in) | nlev, | |||
Double Precision,dimension (0:levdim(1),intent(in) | chmin1, | |||
Double Precision,dimension (0:levdim(1),intent(in) | chmin2, | |||
Double Precision,dimension (0:levdim(1),intent(in) | chmax1, | |||
Double Precision,dimension (0:levdim(1),intent(in) | chmax2, | |||
Double Precision,dimension (0:levdim(1),intent(in) | midp1, | |||
Double Precision,dimension (0:levdim(1),intent(in) | midp2, | |||
Integer,dimension(2),intent(in) | levdim, | |||
Integer,dimension (range(1,1),intent(inout) | found, | |||
Integer,dimension (ndim_2d, range(1,1),intent(inout) | loc, | |||
Integer,dimension(2,3),intent(inout) | range, | |||
Double Precision,dimension (shape(1,1),intent(in) | coords1, | |||
Double Precision,dimension (shape(1,1),intent(in) | coords2, | |||
Integer,dimension(2,3),intent(in) | shape, | |||
Integer,dimension (2, ndim_3d),intent(in) | control, | |||
Double Precision,dimension ( corner_shape(1,1),intent(in) | corners1, | |||
Double Precision,dimension ( corner_shape(1,1),intent(in) | corners2, | |||
Integer,dimension(2,2),intent(in) | corner_shape, | |||
Integer,intent(in) | nbr_corners, | |||
Double Precision,intent(in) | tol, | |||
Integer,intent(out) | ierror | |||
) |
Definition at line 11 of file psmile_mg_final_2d_dble.F90.
References a, PSMILe::Grids, i5, psmile_debug_trace::ictl_ind, max, not, psmile_control_cell_2d_dble(), and psmile_mg_final_prev_2d_dble().
Referenced by psmile_search_donor_2d_dble().