psmile_mg_final_2d_dble.F90 File Reference

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 Documentation

#define CONTROL_POLE_CELL

Function Documentation

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().

Here is the call graph for this function:

Here is the caller graph for this function:


Generated on 18 Mar 2011 for Oasis4 by  doxygen 1.6.1