20 |
CEOP |
CEOP |
21 |
|
|
22 |
C tileHasOB[N,S,E,W] :: this tile has OB at Northern/Southern/Eastern/Western edge |
C tileHasOB[N,S,E,W] :: this tile has OB at Northern/Southern/Eastern/Western edge |
23 |
C insideOBmaskFile :: File to specify Inside OB region mask (zero beyond OB). |
C OB_Jn, OB_Js :: indices of Northern & Southern OB location (cell center pt) |
24 |
|
C OB_Ie, OB_Iw :: indices of Eastern & Western OB location (cell center pt) |
25 |
|
C OBCS_insideMask :: Inside OB region mask (zero beyond OB). |
26 |
|
|
27 |
COMMON /OBCS_ACTIVE_TILES/ |
COMMON /OBCS_ACTIVE_TILES/ |
28 |
& tileHasOBN, tileHasOBS, tileHasOBE, tileHasOBW |
& tileHasOBN, tileHasOBS, tileHasOBE, tileHasOBW |
32 |
LOGICAL tileHasOBW(nSx,nSy) |
LOGICAL tileHasOBW(nSx,nSy) |
33 |
|
|
34 |
COMMON /OBCS_GRID_INDICES/ |
COMMON /OBCS_GRID_INDICES/ |
35 |
& OB_Jn,OB_Js,OB_Ie,OB_Iw |
& OB_Jn, OB_Js, OB_Ie, OB_Iw |
36 |
INTEGER OB_Jn(1-Olx:sNx+Olx,nSx,nSy) |
INTEGER OB_Jn(1-Olx:sNx+Olx,nSx,nSy) |
37 |
INTEGER OB_Js(1-Olx:sNx+Olx,nSx,nSy) |
INTEGER OB_Js(1-Olx:sNx+Olx,nSx,nSy) |
38 |
INTEGER OB_Ie(1-Oly:sNy+Oly,nSx,nSy) |
INTEGER OB_Ie(1-Oly:sNy+Oly,nSx,nSy) |
39 |
INTEGER OB_Iw(1-Oly:sNy+Oly,nSx,nSy) |
INTEGER OB_Iw(1-Oly:sNy+Oly,nSx,nSy) |
40 |
|
|
41 |
|
COMMON /OBCS_MASK_RS/ |
42 |
|
& OBCS_insideMask |
43 |
|
_RS OBCS_insideMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
44 |
|
|
45 |
#endif /* ALLOW_OBCS */ |
#endif /* ALLOW_OBCS */ |