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 |