| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_facef_read.F |
60 |
MDS_FACEF_READ_RS |
INTEGER tN, dNx, dNy, tBx, tBy, tNx, tNY, jj, jBase |
|
./pkg/mdsio/mdsio_facef_read.F |
86 |
MDS_FACEF_READ_RS |
DO jj=1+tBy,sNy+1+tBy |
|
./pkg/mdsio/mdsio_facef_read.F |
87 |
MDS_FACEF_READ_RS |
READ(dUnit,rec=jj+jBase) (ioBuf4(i),i=1,dNx+1) |
|
./pkg/mdsio/mdsio_facef_read.F |
97 |
MDS_FACEF_READ_RS |
DO jj=1+tBy,sNy+1+tBy |
|
./pkg/mdsio/mdsio_facef_read.F |
98 |
MDS_FACEF_READ_RS |
READ(dUnit,rec=jj+jBase) (ioBuf8(i),i=1,dNx+1) |
|
./pkg/mdsio/mdsio_gl.F |
1253 |
MDSWRITEFIELD_2D_GL |
integer ii,jj |
|
./pkg/mdsio/mdsio_gl.F |
491 |
MDSWRITEFIELD_3D_GL |
integer ii,jj |
|
./pkg/mdsio/mdsio_gl.F |
82 |
MDSREADFIELD_3D_GL |
integer ii,jj |
|
./pkg/mdsio/mdsio_gl.F |
843 |
MDSREADFIELD_2D_GL |
integer ii,jj |
|
./pkg/mdsio/mdsio_gl_slice.F |
300 |
MDSREADFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
435 |
MDSREADFIELD_YZ_GL |
do jj=1,sNy |
|
./pkg/mdsio/mdsio_gl_slice.F |
436 |
MDSREADFIELD_YZ_GL |
arr_gl(bi,ip,jj,bj,jp,k)=arr(jj,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl_slice.F |
769 |
MDSWRITEFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
831 |
MDSWRITEFIELD_YZ_GL |
do jj=1,sNy |
|
./pkg/mdsio/mdsio_gl_slice.F |
832 |
MDSWRITEFIELD_YZ_GL |
arr(jj,k,bi,bj)=arr_gl(bi,ip,jj,bj,jp,k) |
|
./pkg/mdsio/mdsio_read_meta.F |
244 |
MDS_READ_META |
jj = ILNBLNK(lineBuf) |
|
./pkg/mdsio/mdsio_read_meta.F |
250 |
MDS_READ_META |
ELSEIF ( jj.LT.30 ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
87 |
MDS_READ_META |
INTEGER i,j,ii,jj |
|
./pkg/mnc/mnc_grid.F |
144 |
MNC_GRID_INIT_ALL |
DO jj = ig1,ig2 |
|
./pkg/mnc/mnc_grid.F |
146 |
MNC_GRID_INIT_ALL |
IF (mnc_d_names(mnc_fd_ind(indf,jj)) .NE. dnames(k)) THEN |
|
./pkg/mnc/mnc_grid.F |
186 |
MNC_GRID_INIT_ALL |
jj = mnc_f_alld(indf,ii+1) |
|
./pkg/mnc/mnc_grid.F |
187 |
MNC_GRID_INIT_ALL |
kk = ILNBLNK(mnc_d_names(jj)) |
|
./pkg/mnc/mnc_grid.F |
189 |
MNC_GRID_INIT_ALL |
& .AND. (dnames(i)(1:n) .EQ. mnc_d_names(jj)(1:kk))) THEN |
|
./pkg/mnc/mnc_grid.F |
190 |
MNC_GRID_INIT_ALL |
indd = jj |
|
./pkg/mnc/mnc_grid.F |
72 |
MNC_GRID_INIT_ALL |
integer i,j,k,ii,jj,kk, n,nf, indf,indg,indd, fid, ngrid |
|
./model/src/calc_r_star.F |
265 |
CALC_R_STAR |
jj = sNy+j |
|
./model/src/calc_r_star.F |
269 |
CALC_R_STAR |
IF (kSurfC(1-i,jj, bi,bj).GT.Nr) rStarFacC(1-i,jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
270 |
CALC_R_STAR |
IF (kSurfC(ii, jj, bi,bj).GT.Nr) rStarFacC(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
274 |
CALC_R_STAR |
IF (kSurfW(1-i,jj, bi,bj).GT.Nr) rStarFacW(1-i,jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
275 |
CALC_R_STAR |
IF (kSurfW(ii, jj, bi,bj).GT.Nr) rStarFacW(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
279 |
CALC_R_STAR |
IF (kSurfS(1-i,jj, bi,bj).GT.Nr) rStarFacS(1-i,jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
280 |
CALC_R_STAR |
IF (kSurfS(ii, jj, bi,bj).GT.Nr) rStarFacS(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
67 |
CALC_R_STAR |
INTEGER ii,jj |
|
./pkg/ptracers/ptracers_mnc_init.F |
32 |
PTRACERS_MNC_INIT |
INTEGER ii, jj, ilnb |
|
./pkg/ptracers/ptracers_mnc_init.F |
42 |
PTRACERS_MNC_INIT |
DO jj = 1,80 |
|
./pkg/ptracers/ptracers_mnc_init.F |
43 |
PTRACERS_MNC_INIT |
name(jj:jj) = ' ' |
|
./pkg/ptracers/ptracers_write_timeave.F |
101 |
PTRACERS_WRITE_TIMEAVE |
DO jj = 1,MAX_LEN_FNAM |
|
./pkg/ptracers/ptracers_write_timeave.F |
102 |
PTRACERS_WRITE_TIMEAVE |
suff(jj:jj) = ' ' |
|
./pkg/ptracers/ptracers_write_timeave.F |
50 |
PTRACERS_WRITE_TIMEAVE |
INTEGER jj, ilnb |
|
./pkg/smooth/smooth_diff3d.F |
38 |
SMOOTH_DIFF3D |
integer ii, jj, kk |
|
./pkg/smooth/smooth_filtervar2d.F |
136 |
SMOOTH_FILTERVAR2D |
DO j=jj,sNy,djLoc |
|
./pkg/smooth/smooth_filtervar2d.F |
26 |
SMOOTH_FILTERVAR2D |
integer i,j,k, bi, bj, ii, jj, kk |
|
./pkg/smooth/smooth_filtervar2d.F |
85 |
SMOOTH_FILTERVAR2D |
DO jj=1,djLoc |
|
./pkg/smooth/smooth_filtervar2d.F |
95 |
SMOOTH_FILTERVAR2D |
DO j=jj,sNy,djLoc |
|
./pkg/smooth/smooth_filtervar3d.F |
114 |
SMOOTH_FILTERVAR3D |
DO jj=1,djLoc,2 |
|
./pkg/smooth/smooth_filtervar3d.F |
127 |
SMOOTH_FILTERVAR3D |
DO j=jj,sNy,djLoc |
|
./pkg/smooth/smooth_filtervar3d.F |
172 |
SMOOTH_FILTERVAR3D |
DO j=jj,sNy,djLoc |
|
./pkg/smooth/smooth_filtervar3d.F |
27 |
SMOOTH_FILTERVAR3D |
integer i,j,k, bi, bj, ii, jj, kk |
|
./pkg/smooth/smooth_init3d.F |
39 |
SMOOTH_INIT3D |
integer ii,jj,kk |
|
./pkg/thsice/thsice_albedo.F |
161 |
THSICE_ALBEDO |
jj=j |
|
./pkg/thsice/thsice_albedo.F |
175 |
THSICE_ALBEDO |
& 'THSICE_ALBEDO: Problem, e.g., at:', myIter,ii,jj,bi,bj |
|
./pkg/thsice/thsice_albedo.F |
178 |
THSICE_ALBEDO |
& 'THSICE_ALBEDO: albedo=', sAlb(ii,jj),ageSnw(ii,jj), |
|
./pkg/thsice/thsice_albedo.F |
179 |
THSICE_ALBEDO |
& hsnow(ii,jj) |
|
./pkg/thsice/thsice_albedo.F |
88 |
THSICE_ALBEDO |
INTEGER ii,jj,icount |
|
./pkg/thsice/thsice_solve4temp.F |
146 |
THSICE_SOLVE4TEMP |
INTEGER ii, jj, icount, stdUnit |
|
./pkg/thsice/thsice_solve4temp.F |
246 |
THSICE_SOLVE4TEMP |
jj = j |
|
./pkg/thsice/thsice_solve4temp.F |
327 |
THSICE_SOLVE4TEMP |
& 'THSICE_SOLVE4TEMP: the last one was at (',ii,',',jj, |
|
./pkg/thsice/thsice_solve4temp.F |
328 |
THSICE_SOLVE4TEMP |
& ') with hIce = ', hIce(ii,jj) |
|
./pkg/admtlm/admtlm_dsvd.F |
204 |
ADMTLM_DSVD |
integer l, ilinsysinfo, ii, jj |
|
./pkg/atm2d/init_atm2d.F |
109 |
INIT_ATM2D |
DO jj=2,jm0-1 |
|
./pkg/atm2d/init_atm2d.F |
110 |
INIT_ATM2D |
IF ((yG(1,j,1,1).GE.atm_yG(jj)).AND. |
|
./pkg/atm2d/init_atm2d.F |
111 |
INIT_ATM2D |
& (yG(1,j,1,1).LT.atm_yG(jj+1))) j_atm=jj |
|
./pkg/atm2d/init_atm2d.F |
135 |
INIT_ATM2D |
DO jj=1,jm0-1 |
|
./pkg/atm2d/init_atm2d.F |
136 |
INIT_ATM2D |
IF (( yG(1,j,1,1) .GE. atm_yC(jj)).AND. |
|
./pkg/atm2d/init_atm2d.F |
137 |
INIT_ATM2D |
& ( yG(1,j,1,1) .LT. atm_yC(jj+1))) j_atm=jj |
|
./pkg/atm2d/init_atm2d.F |
47 |
INIT_ATM2D |
INTEGER i,j,jj |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
244 |
CTRL_SET_PACK_XZ |
jj=mod((j-1)*nr+k-1,sny)+1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
250 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
255 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) * |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
263 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) / |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
274 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
56 |
CTRL_SET_PACK_XZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
247 |
CTRL_SET_PACK_YZ |
jj=mod( ((i-1)*nr*sny+(k-1)*sny+j-1)/snx , sny ) + 1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
253 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
258 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) * |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
266 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) / |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
277 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
56 |
CTRL_SET_PACK_YZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
243 |
CTRL_SET_UNPACK_XZ |
jj=mod((j-1)*nr+k-1,sny)+1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
252 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
259 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
260 |
CTRL_SET_UNPACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk)/ |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
268 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
272 |
CTRL_SET_UNPACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
57 |
CTRL_SET_UNPACK_XZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
248 |
CTRL_SET_UNPACK_YZ |
jj=mod(((i-1)*nr*sny+(k-1)*sny+j-1)/snx,sny)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
252 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
255 |
CTRL_SET_UNPACK_YZ |
globfldtmp2(bi,ip,jj,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
259 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
260 |
CTRL_SET_UNPACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk)/ |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
268 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
271 |
CTRL_SET_UNPACK_YZ |
globfldtmp3(bi,ip,jj,bj,jp) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
272 |
CTRL_SET_UNPACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
57 |
CTRL_SET_UNPACK_YZ |
integer ii,jj,kk |
|
./pkg/debug/fill_in_corners_rl.F |
38 |
FILL_IN_CORNERS_RL |
INTEGER ii, jj |
|
./pkg/debug/fill_in_corners_rl.F |
45 |
FILL_IN_CORNERS_RL |
jj = j + sNy+Oly |
|
./pkg/debug/fill_in_corners_rl.F |
50 |
FILL_IN_CORNERS_RL |
fld(i,jj,k,bi,bj) = spvFld |
|
./pkg/debug/fill_in_corners_rl.F |
51 |
FILL_IN_CORNERS_RL |
fld(ii,jj,k,bi,bj) = spvFld |
|
./pkg/diagnostics/diagnostics_out.F |
177 |
DIAGNOSTICS_OUT |
DO jj=1,jjMx |
|
./pkg/diagnostics/diagnostics_out.F |
208 |
DIAGNOSTICS_OUT |
klev = myIter + jj - jjMx |
|
./pkg/diagnostics/diagnostics_out.F |
209 |
DIAGNOSTICS_OUT |
tmpLev = myTime + deltaTClock*(jj -jjMx) |
|
./pkg/diagnostics/diagnostics_out.F |
327 |
DIAGNOSTICS_OUT |
lm = jj+ll-1 |
|
./pkg/diagnostics/diagnostics_out.F |
87 |
DIAGNOSTICS_OUT |
INTEGER ll, llMx, jj, jjMx |
|
./pkg/exch2/w2_eeboot.F |
128 |
W2_EEBOOT |
jj = J/(nSx*nPx) |
|
./pkg/exch2/w2_eeboot.F |
133 |
W2_EEBOOT |
np = 1 + jj/nSy + (ii/nSx)*nPy |
|
./pkg/exch2/w2_eeboot.F |
134 |
W2_EEBOOT |
bj = 1 + MOD(jj,nSy) |
|
./pkg/exch2/w2_eeboot.F |
189 |
W2_EEBOOT |
DO jj=1,nSy |
|
./pkg/exch2/w2_eeboot.F |
191 |
W2_EEBOOT |
IF ( W2_myTileList(ii,jj).EQ.exch2_neighbourId(J,myTileId) ) |
|
./pkg/exch2/w2_eeboot.F |
46 |
W2_EEBOOT |
INTEGER np, ii, jj, bi, bj |
|
./pkg/exch2/w2_set_cs6_facets.F |
145 |
W2_SET_CS6_FACETS |
jj = INT(facet_link(i,j)) |
|
./pkg/exch2/w2_set_cs6_facets.F |
147 |
W2_SET_CS6_FACETS |
IF ( jj.GE.1 .AND. jj.LE.nFacets |
|
./pkg/exch2/w2_set_cs6_facets.F |
152 |
W2_SET_CS6_FACETS |
ll = 2*(jj-1)+(ii+1)/2 |
|
./pkg/exch2/w2_set_cs6_facets.F |
159 |
W2_SET_CS6_FACETS |
& ' from',jj,'.',edge(ii),' :',facet_dims(ll) |
|
./pkg/exch2/w2_set_cs6_facets.F |
40 |
W2_SET_CS6_FACETS |
INTEGER i, j, ii, jj, lo, ll |
|
./pkg/exch2/w2_set_cs6_facets.F |
64 |
W2_SET_CS6_FACETS |
jj = j+2 |
|
./pkg/exch2/w2_set_cs6_facets.F |
65 |
W2_SET_CS6_FACETS |
facet_link(1,j) = 0.4 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
66 |
W2_SET_CS6_FACETS |
jj = j-1 |
|
./pkg/exch2/w2_set_cs6_facets.F |
67 |
W2_SET_CS6_FACETS |
facet_link(2,j) = 0.1 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
68 |
W2_SET_CS6_FACETS |
jj = j+1 |
|
./pkg/exch2/w2_set_cs6_facets.F |
69 |
W2_SET_CS6_FACETS |
facet_link(3,j) = 0.4 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
70 |
W2_SET_CS6_FACETS |
jj = j-2 |
|
./pkg/exch2/w2_set_cs6_facets.F |
71 |
W2_SET_CS6_FACETS |
facet_link(4,j) = 0.1 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
73 |
W2_SET_CS6_FACETS |
jj = j+1 |
|
./pkg/exch2/w2_set_cs6_facets.F |
74 |
W2_SET_CS6_FACETS |
facet_link(1,j) = 0.2 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
75 |
W2_SET_CS6_FACETS |
jj = j-2 |
|
./pkg/exch2/w2_set_cs6_facets.F |
76 |
W2_SET_CS6_FACETS |
facet_link(2,j) = 0.3 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
77 |
W2_SET_CS6_FACETS |
jj = j+2 |
|
./pkg/exch2/w2_set_cs6_facets.F |
78 |
W2_SET_CS6_FACETS |
facet_link(3,j) = 0.2 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
79 |
W2_SET_CS6_FACETS |
jj = j-1 |
|
./pkg/exch2/w2_set_cs6_facets.F |
80 |
W2_SET_CS6_FACETS |
facet_link(4,j) = 0.3 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_f2f_index.F |
108 |
W2_SET_F2F_INDEX |
jj = INT(facet_link(i,j)) |
|
./pkg/exch2/w2_set_f2f_index.F |
110 |
W2_SET_F2F_INDEX |
IF ( jj.GE.1 ) THEN |
|
./pkg/exch2/w2_set_f2f_index.F |
111 |
W2_SET_F2F_INDEX |
ll = 2*(jj-1)+(ii+1)/2 |
|
./pkg/exch2/w2_set_f2f_index.F |
118 |
W2_SET_F2F_INDEX |
& edge(ii),'.Edge facet #', jj, ' (=',ll,') are different' |
|
./pkg/exch2/w2_set_f2f_index.F |
142 |
W2_SET_F2F_INDEX |
facet_oj(i,j) = -facet_dims(2*jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
149 |
W2_SET_F2F_INDEX |
facet_oi(i,j) = -facet_dims(2*jj-1) |
|
./pkg/exch2/w2_set_f2f_index.F |
169 |
W2_SET_F2F_INDEX |
facet_oj(i,j) = -facet_dims(2*jj-1) |
|
./pkg/exch2/w2_set_f2f_index.F |
186 |
W2_SET_F2F_INDEX |
facet_oi(i,j) = -facet_dims(2*jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
191 |
W2_SET_F2F_INDEX |
& edge(ii),'.Edge (facet#', jj,' )' |
|
./pkg/exch2/w2_set_f2f_index.F |
201 |
W2_SET_F2F_INDEX |
& edge(ii),'.Edge Facet', jj, |
|
./pkg/exch2/w2_set_f2f_index.F |
222 |
W2_SET_F2F_INDEX |
jj = INT(facet_link(i,j)) |
|
./pkg/exch2/w2_set_f2f_index.F |
224 |
W2_SET_F2F_INDEX |
IF ( jj.GE.1 ) THEN |
|
./pkg/exch2/w2_set_f2f_index.F |
232 |
W2_SET_F2F_INDEX |
chk1 = facet_pij(1,i,j)*facet_pij(1,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
233 |
W2_SET_F2F_INDEX |
& + facet_pij(2,i,j)*facet_pij(3,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
234 |
W2_SET_F2F_INDEX |
chk2 = facet_pij(1,i,j)*facet_pij(2,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
235 |
W2_SET_F2F_INDEX |
& + facet_pij(2,i,j)*facet_pij(4,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
236 |
W2_SET_F2F_INDEX |
chk3 = facet_pij(3,i,j)*facet_pij(1,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
237 |
W2_SET_F2F_INDEX |
& + facet_pij(4,i,j)*facet_pij(3,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
238 |
W2_SET_F2F_INDEX |
chk4 = facet_pij(3,i,j)*facet_pij(2,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
239 |
W2_SET_F2F_INDEX |
& + facet_pij(4,i,j)*facet_pij(4,ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
241 |
W2_SET_F2F_INDEX |
chk5 = facet_pij(1,i,j)*facet_oi(ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
242 |
W2_SET_F2F_INDEX |
& + facet_pij(2,i,j)*facet_oj(ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
244 |
W2_SET_F2F_INDEX |
chk6 = facet_pij(3,i,j)*facet_oi(ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
245 |
W2_SET_F2F_INDEX |
& + facet_pij(4,i,j)*facet_oj(ii,jj) |
|
./pkg/exch2/w2_set_f2f_index.F |
251 |
W2_SET_F2F_INDEX |
& edge(ii),'.Edge (facet#', jj,' )' |
|
./pkg/exch2/w2_set_f2f_index.F |
37 |
W2_SET_F2F_INDEX |
INTEGER i, j, ii, jj, i1, j1, k, lo, ll |
|
./pkg/exch2/w2_set_f2f_index.F |
55 |
W2_SET_F2F_INDEX |
jj = INT(facet_link(i,j)) |
|
./pkg/exch2/w2_set_f2f_index.F |
63 |
W2_SET_F2F_INDEX |
ELSEIF ( jj.LT.1 .OR. jj.GT.nFacets |
|
./pkg/exch2/w2_set_f2f_index.F |
71 |
W2_SET_F2F_INDEX |
j1 = INT(facet_link(ii,jj)) |
|
./pkg/exch2/w2_set_f2f_index.F |
72 |
W2_SET_F2F_INDEX |
i1 = MOD( NINT(facet_link(ii,jj)*10.), 10 ) |
|
./pkg/exch2/w2_set_f2f_index.F |
76 |
W2_SET_F2F_INDEX |
& edge(ii),'.Edge facet #',jj,' (',facet_link(i,j),' )' |
|
./pkg/exch2/w2_set_f2f_index.F |
80 |
W2_SET_F2F_INDEX |
& edge(ii),'.Edge facet #',jj,' connect to: ', |
|
./pkg/exch2/w2_set_f2f_index.F |
81 |
W2_SET_F2F_INDEX |
& edge(i1),'.Edge facet #',j1,' (',facet_link(ii,jj),' )' |
|
./pkg/exch2/w2_set_f2f_index.F |
84 |
W2_SET_F2F_INDEX |
& edge(ii),'.Edge facet #',jj,' connect to: ', |
|
./pkg/exch2/w2_set_f2f_index.F |
85 |
W2_SET_F2F_INDEX |
& '?' ,'.Edge facet #',j1,' (',facet_link(ii,jj),' )' |
|
./pkg/exch2/w2_set_gen_facets.F |
100 |
W2_SET_GEN_FACETS |
j = (jj+1)/2 |
|
./pkg/exch2/w2_set_gen_facets.F |
102 |
W2_SET_GEN_FACETS |
& ' of facet', j, ' =', facet_dims(jj), ' : invalid (< 0)' |
|
./pkg/exch2/w2_set_gen_facets.F |
38 |
W2_SET_GEN_FACETS |
INTEGER i,j,jj,fNx,fNy |
|
./pkg/exch2/w2_set_gen_facets.F |
87 |
W2_SET_GEN_FACETS |
DO jj=2*nFacets+1,2*W2_maxNbFacets |
|
./pkg/exch2/w2_set_gen_facets.F |
88 |
W2_SET_GEN_FACETS |
IF ( facet_dims(jj).NE.0 ) THEN |
|
./pkg/exch2/w2_set_gen_facets.F |
90 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(A,I3,A,I5,A)') ' dimsFacets(j=',jj,') =', |
|
./pkg/exch2/w2_set_gen_facets.F |
91 |
W2_SET_GEN_FACETS |
& facet_dims(jj), ' : beyond end of list (=1rst zero)' |
|
./pkg/exch2/w2_set_gen_facets.F |
96 |
W2_SET_GEN_FACETS |
DO jj=1,2*nFacets |
|
./pkg/exch2/w2_set_gen_facets.F |
97 |
W2_SET_GEN_FACETS |
IF ( facet_dims(jj).LT.0 ) THEN |
|
./pkg/exch2/w2_set_gen_facets.F |
99 |
W2_SET_GEN_FACETS |
i=1+MOD(jj-1,2) |