Go to the source code of this file.
Functions/Subroutines | |
subroutine | psmile_mg_next_level_2d_real (grid_id, lev, nlev, chmin1, chmin2, chmax1, chmax2, midp1, midp2, levdim, found, loc, range, coords1, coords2, shape, control, ijkinc, ijkcoa, ierror) |
subroutine psmile_mg_next_level_2d_real | ( | Integer,intent(in) | grid_id, | |
Integer,intent(in) | lev, | |||
Integer,intent(in) | nlev, | |||
Real,dimension (0:levdim(1),intent(in) | chmin1, | |||
Real,dimension (0:levdim(1),intent(in) | chmin2, | |||
Real,dimension (0:levdim(1),intent(in) | chmax1, | |||
Real,dimension (0:levdim(1),intent(in) | chmax2, | |||
Real,dimension (0:levdim(1),intent(in) | midp1, | |||
Real,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, | |||
Real,dimension (shape(1,1),intent(in) | coords1, | |||
Real,dimension (shape(1,1),intent(in) | coords2, | |||
Integer,dimension(2,3),intent(in) | shape, | |||
Integer,dimension (2, ndim_3d),intent(inout) | control, | |||
Integer,dimension (ndim_3d),intent(in) | ijkinc, | |||
Integer,dimension (ndim_2d),intent(in) | ijkcoa, | |||
integer,intent(out) | ierror | |||
) |
Definition at line 11 of file psmile_mg_next_level_2d_real.F90.
References a, i5, psmile_debug_trace::ictl_ind, max, and psmile_mg_prev_levels_2d_real().
Referenced by psmile_search_donor_2d_real().