To find the block-location index of a patch-wise variable, it is necessary to specify the index of the patch, IP, as well as that of the variable; so L0F, which is a single-argument function, will not suffice. Therefore L0PVAR is provided, which additionally has the z-plane index, IZZ, as an index.
L0PVAR(LB,IP,IZZ) therefore provides the L0F of the variable LB (from COMMON/LBPV/ of GRDLOC) for patch number IP, at slab IZZ. If zero is put in the third-argument slot, the current value of IZ will be presumed.
Patches are allocated IP values in the order in which they appear in the Q1 file. However, to free users from the task of counting to get an IP, the function IPNAME is provided. Thus, IPNAME;('MOVEWALL') ca be used as the second argument of L0PVAR as the index number for the patch named 'MOVEWALL'.
The distinction between upper- and lower-case characters should be observed: 'MOVEWALL', 'movewall' and 'MoveWall' are all different patches as far as PHOENICS is concerned.
A further function relating to patchwise variables is:
PRNPT1(CV,LB,IP,IZZ)
which prints out the values of the patch-wise variable having block- location index LB, for patch number IP and for slab number IZZ. The first argument, CV, is a CHARACTER*8 variable chosen by the user. Thus:
CALL PRNPT1('friction',PVSKIN,IPNAME('surface'),3)
would cause the printing, under the heading of 'friction', of the skin-friction values appropriate to the patch called 'surface' at the third slab.
If a zero is placed in the IZZ-argument slot, the values pertaining to all the slabs covered by the patch are printed, provided that PARAB is .FALSE.. If PARAB=.TRUE., of course, only the current-slab values are available.
wbs