Functions | |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YNEUMANN c ***********************************************************************integer ilast1 integer iend1 integer ngc1 c double precision | dx (0:2-1) c integer bdry_loc |
Variables | |
| c c | File |
| c c LLC c | Revision |
| c c LLC c Jan c | Description |
| c c LLC c Jan c LLC c | Revision |
| c c LLC c Jan c LLC c Jan c | Description |
| c c LLC c Jan c LLC c Jan c | ilast0 |
| c c LLC c Jan c LLC c Jan c | ifirst1 |
| c c LLC c Jan c LLC c Jan c | ilast1 |
| c c LLC c Jan c LLC c Jan c & | ibeg0 |
| c c LLC c Jan c LLC c Jan c | iend0 |
| c c LLC c Jan c LLC c Jan c | ibeg1 |
| c c LLC c Jan c LLC c Jan c | iend1 |
| c c LLC c Jan c LLC c Jan c & | ngc0 |
| c c LLC c Jan c LLC c Jan c | ngc1 |
| c c LLC c Jan c LLC c Jan c & | dx |
| c c LLC c Jan c LLC c Jan c & | bdry_loc |
| c c LLC c Jan c LLC c Jan c & | bdry_cond |
| c c LLC c Jan c LLC c Jan c & | edge_values |
| c c LLC c Jan c LLC c Jan c & | arrdata |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c | File |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c | Revision |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c | Description |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c | XRIGHT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c | YLEFT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c | YRIGHT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c & | X0Y0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c | X1Y0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c | X0Y1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer & | XLEFT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer | XRIGHT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer | YLEFT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer | YRIGHT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer & | X0Y0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer | X1Y0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer | X0Y1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d & | FLOW |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d | XFLOW |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d | YFLOW |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d & | REFLECT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d | XREFLECT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d | YREFLECT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d & | DIRICHLET |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d | XDIRICHLET |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d | YDIRICHLET |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d & | NEUMANN |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d | XNEUMANN |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer & | FLOW |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer | XFLOW |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer | YFLOW |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer & | REFLECT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer | XREFLECT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer | YREFLECT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer & | DIRICHLET |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer | XDIRICHLET |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer | YDIRICHLET |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer & | NEUMANN |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer | XNEUMANN |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YNEUMANN c ***********************************************************************integer | ifirst0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YNEUMANN c ***********************************************************************integer | ilast0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YNEUMANN c ***********************************************************************integer | ifirst1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YNEUMANN c ***********************************************************************integer ilast1 integer | ibeg0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YNEUMANN c ***********************************************************************integer ilast1 integer | iend0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YNEUMANN c ***********************************************************************integer ilast1 integer | ibeg1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YNEUMANN c ***********************************************************************integer ilast1 integer iend1 integer | ngc0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YNEUMANN c ***********************************************************************integer ilast1 integer iend1 integer ngc1 c double precision & | arrdepth |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YNEUMANN c*********************************************************************** integer ilast1 integer iend1 integer ngc1 c double precision dx | ( | 0:2- | 1 | ) |
| c c LLC c Jan c Description |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c File |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Revision |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c Description |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c XRIGHT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c YLEFT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c YRIGHT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c & X0Y0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X0Y1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer& XLEFT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer XRIGHT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer YLEFT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer YRIGHT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer & X0Y0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X0Y1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d& FLOW |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d XFLOW |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YFLOW |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d & REFLECT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d XREFLECT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YREFLECT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d & DIRICHLET |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d XDIRICHLET |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YDIRICHLET |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d & NEUMANN |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d XNEUMANN |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer& FLOW |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer XFLOW |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YFLOW |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer & REFLECT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer XREFLECT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YREFLECT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer & DIRICHLET |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer XDIRICHLET |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YDIRICHLET |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer & NEUMANN |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer XNEUMANN |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YNEUMANN c*********************************************************************** integer ifirst0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YNEUMANN c*********************************************************************** integer ilast0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YNEUMANN c*********************************************************************** integer ifirst1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YNEUMANN c*********************************************************************** integer ilast1 integer ibeg0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YNEUMANN c*********************************************************************** integer ilast1 integer iend0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YNEUMANN c*********************************************************************** integer ilast1 integer ibeg1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YNEUMANN c*********************************************************************** integer ilast1 integer iend1 integer ngc0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1 integer X1Y1 c c common cartbdrycondparams2d YNEUMANN integer YNEUMANN c*********************************************************************** integer ilast1 integer iend1 integer ngc1 c double precision & arrdepth |
1.5.1