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 |