Functions | |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c ***********************************************************************integer ilast2 integer iend2 integer ngc2 c double precision | dx (0:3-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 | ifirst2 |
| c c LLC c Jan c LLC c Jan c | ilast2 |
| 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 | ibeg2 |
| c c LLC c Jan c LLC c Jan c | iend2 |
| 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 | ngc2 |
| 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 & | face_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 | ZLEFT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c | ZRIGHT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c & | Y0Z0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c | Y1Z0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c | Y0Z1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c | Y1Z1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c & | X0Z0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c | X0Z1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c | X1Z0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c | X1Z1 |
| 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 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c & | X0Y0Z0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c | X1Y0Z0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c | X0Y1Z0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c | X1Y1Z0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c & | X0Y0Z1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c | X1Y0Z1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c | X0Y1Z1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer & | XLEFT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer | XRIGHT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer | YLEFT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer | YRIGHT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer | ZLEFT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer | ZRIGHT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer & | Y0Z0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer | Y1Z0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer | Y0Z1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer | Y1Z1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer & | X0Z0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer | X0Z1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer | X1Z0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer | X1Z1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer & | X0Y0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer | X1Y0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer | X0Y1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer | X1Y1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer & | X0Y0Z0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer | X1Y0Z0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer | X0Y1Z0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer | X1Y1Z0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer & | X0Y0Z1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer | X1Y0Z1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer | X0Y1Z1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d & | FLOW |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d | XFLOW |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d | YFLOW |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d | ZFLOW |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d & | REFLECT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d | XREFLECT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d | YREFLECT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d | ZREFLECT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d & | DIRICHLET |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d | XDIRICHLET |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d | YDIRICHLET |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d | ZDIRICHLET |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d & | NEUMANN |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d | XNEUMANN |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d | YNEUMANN |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer & | FLOW |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer | XFLOW |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer | YFLOW |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer | ZFLOW |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer & | REFLECT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer | XREFLECT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer | YREFLECT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer | ZREFLECT |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer & | DIRICHLET |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer | XDIRICHLET |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer | YDIRICHLET |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer | ZDIRICHLET |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer & | NEUMANN |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer | XNEUMANN |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer | YNEUMANN |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c ***********************************************************************integer | ifirst0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c ***********************************************************************integer | ilast0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c ***********************************************************************integer | ifirst1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c ***********************************************************************integer | ilast1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c ***********************************************************************integer | ifirst2 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c ***********************************************************************integer ilast2 integer | ibeg0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c ***********************************************************************integer ilast2 integer | iend0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c ***********************************************************************integer ilast2 integer | ibeg1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c ***********************************************************************integer ilast2 integer | iend1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c ***********************************************************************integer ilast2 integer | ibeg2 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c ***********************************************************************integer ilast2 integer iend2 integer | ngc0 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c ***********************************************************************integer ilast2 integer iend2 integer | ngc1 |
| c c LLC c Jan c LLC c Jan c &arrdepth c ***********************************************************************implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c ***********************************************************************integer ilast2 integer iend2 integer ngc2 c double precision & | arrdepth |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c*********************************************************************** integer ilast2 integer iend2 integer ngc2 c double precision dx | ( | 0:3- | 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 ZLEFT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c ZRIGHT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c & Y0Z0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c Y1Z0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c Y0Z1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c Y1Z1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c & X0Z0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X0Z1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Z0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Z1 |
| 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 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c & X0Y0Z0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y0Z0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X0Y1Z0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c & X0Y0Z1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y0Z1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X0Y1Z1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer& XLEFT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer XRIGHT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer YLEFT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer YRIGHT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer ZLEFT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer ZRIGHT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer & Y0Z0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer Y1Z0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer Y0Z1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer Y1Z1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer & X0Z0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X0Z1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Z0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Z1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer & X0Y0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X0Y1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer & X0Y0Z0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y0Z0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X0Y1Z0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer & X0Y0Z1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y0Z1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X0Y1Z1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d& FLOW |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d XFLOW |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d YFLOW |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZFLOW |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d & REFLECT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d XREFLECT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d YREFLECT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZREFLECT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d & DIRICHLET |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d XDIRICHLET |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d YDIRICHLET |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZDIRICHLET |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d & NEUMANN |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d XNEUMANN |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d YNEUMANN |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer& FLOW |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer XFLOW |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer YFLOW |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZFLOW |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer & REFLECT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer XREFLECT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer YREFLECT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZREFLECT |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer & DIRICHLET |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer XDIRICHLET |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer YDIRICHLET |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZDIRICHLET |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer & NEUMANN |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer XNEUMANN |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer YNEUMANN |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c*********************************************************************** integer ifirst0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c*********************************************************************** integer ilast0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c*********************************************************************** integer ifirst1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c*********************************************************************** integer ilast1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c*********************************************************************** integer ifirst2 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c*********************************************************************** integer ilast2 integer ibeg0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c*********************************************************************** integer ilast2 integer iend0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c*********************************************************************** integer ilast2 integer ibeg1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c*********************************************************************** integer ilast2 integer iend1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c*********************************************************************** integer ilast2 integer ibeg2 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c*********************************************************************** integer ilast2 integer iend2 integer ngc0 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c*********************************************************************** integer ilast2 integer iend2 integer ngc1 |
| c c LLC c Jan c LLC c Jan c & arrdepth c*********************************************************************** implicit none c c LLC c Jan c X1Y1Z1 integer X1Y1Z1 c c common cartbdrycondparams3d ZNEUMANN integer ZNEUMANN c*********************************************************************** integer ilast2 integer iend2 integer ngc2 c double precision & arrdepth |
1.5.1