| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1661 |
CLOUD |
integer nt,km1,ic1,i,L,len1,len2,isav,len11,ii |
|
./pkg/flt/flt_traj.F |
140 |
FLT_TRAJ |
& ' FLT_TRAJ: ', (tmp(ii),ii=1,5) |
|
./pkg/flt/flt_traj.F |
43 |
FLT_TRAJ |
INTEGER ip, kp, ii |
|
./pkg/flt/flt_traj.F |
96 |
FLT_TRAJ |
DO ii=7,imax |
|
./pkg/flt/flt_traj.F |
97 |
FLT_TRAJ |
tmp(ii) = 0. |
|
./pkg/flt/flt_up.F |
154 |
FLT_UP |
DO ii=9,imax |
|
./pkg/flt/flt_up.F |
155 |
FLT_UP |
tmp(ii) = flt_nan |
|
./pkg/flt/flt_up.F |
41 |
FLT_UP |
INTEGER ip, k, ii |
|
./pkg/flt/flt_up.F |
89 |
FLT_UP |
DO ii=7,imax |
|
./pkg/flt/flt_up.F |
90 |
FLT_UP |
tmp(ii) = 0. |
|
./pkg/mdsio/mdsio_gl.F |
1066 |
MDSREADFIELD_2D_GL |
do ii=1,sNx |
|
./pkg/mdsio/mdsio_gl.F |
1067 |
MDSREADFIELD_2D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
1253 |
MDSWRITEFIELD_2D_GL |
integer ii,jj |
|
./pkg/mdsio/mdsio_gl.F |
305 |
MDSREADFIELD_3D_GL |
do ii=1,sNx |
|
./pkg/mdsio/mdsio_gl.F |
306 |
MDSREADFIELD_3D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./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 |
208 |
MDSREADFIELD_XZ_GL |
do ii=1,sNx |
|
./pkg/mdsio/mdsio_gl_slice.F |
209 |
MDSREADFIELD_XZ_GL |
arr_gl(ii,bi,ip,bj,jp,k)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl_slice.F |
541 |
MDSWRITEFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
603 |
MDSWRITEFIELD_XZ_GL |
do ii=1,sNx |
|
./pkg/mdsio/mdsio_gl_slice.F |
604 |
MDSWRITEFIELD_XZ_GL |
arr(ii,k,bi,bj)=arr_gl(ii,bi,ip,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl_slice.F |
72 |
MDSREADFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_read_meta.F |
213 |
MDS_READ_META |
ii = LEN(simulName) |
|
./pkg/mdsio/mdsio_read_meta.F |
215 |
MDS_READ_META |
ii = MIN(ii+17,iL-4) |
|
./pkg/mdsio/mdsio_read_meta.F |
216 |
MDS_READ_META |
simulName = lineBuf(18:ii) |
|
./pkg/mdsio/mdsio_read_meta.F |
243 |
MDS_READ_META |
ii = IFNBLNK(lineBuf) |
|
./pkg/mdsio/mdsio_read_meta.F |
245 |
MDS_READ_META |
IF ( ii.GT.6 ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
337 |
MDS_READ_META |
ii = LEN(titleLine) |
|
./pkg/mdsio/mdsio_read_meta.F |
339 |
MDS_READ_META |
ii = MIN(ii+4,iL-3) |
|
./pkg/mdsio/mdsio_read_meta.F |
340 |
MDS_READ_META |
titleLine = lineBuf(5:ii) |
|
./pkg/mdsio/mdsio_read_meta.F |
387 |
MDS_READ_META |
& nDimFil, ' , j=', j, ' , ii=', ii |
|
./pkg/mdsio/mdsio_read_meta.F |
87 |
MDS_READ_META |
INTEGER i,j,ii,jj |
|
./pkg/mdsio/mdsio_read_whalos.F |
87 |
MDS_READ_WHALOS |
integer i,j,k,bi,bj,ii |
|
./pkg/mdsio/mdsio_seg4torl.F |
27 |
MDS_SEG4TORL |
INTEGER ii |
|
./pkg/mdsio/mdsio_seg4torl.F |
30 |
MDS_SEG4TORL |
DO ii=1,sNx |
|
./pkg/mdsio/mdsio_seg4torl.F |
31 |
MDS_SEG4TORL |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg4torl.F |
34 |
MDS_SEG4TORL |
DO ii=1,sNx |
|
./pkg/mdsio/mdsio_seg4torl.F |
35 |
MDS_SEG4TORL |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_seg4tors.F |
27 |
MDS_SEG4TORS |
INTEGER ii |
|
./pkg/mdsio/mdsio_seg4tors.F |
30 |
MDS_SEG4TORS |
DO ii=1,sNx |
|
./pkg/mdsio/mdsio_seg4tors.F |
31 |
MDS_SEG4TORS |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg4tors.F |
34 |
MDS_SEG4TORS |
DO ii=1,sNx |
|
./pkg/mdsio/mdsio_seg4tors.F |
35 |
MDS_SEG4TORS |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_seg8torl.F |
27 |
MDS_SEG8TORL |
INTEGER ii |
|
./pkg/mdsio/mdsio_seg8torl.F |
30 |
MDS_SEG8TORL |
DO ii=1,sNx |
|
./pkg/mdsio/mdsio_seg8torl.F |
31 |
MDS_SEG8TORL |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg8torl.F |
34 |
MDS_SEG8TORL |
DO ii=1,sNx |
|
./pkg/mdsio/mdsio_seg8torl.F |
35 |
MDS_SEG8TORL |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_seg8tors.F |
27 |
MDS_SEG8TORS |
INTEGER ii |
|
./pkg/mdsio/mdsio_seg8tors.F |
30 |
MDS_SEG8TORS |
DO ii=1,sNx |
|
./pkg/mdsio/mdsio_seg8tors.F |
31 |
MDS_SEG8TORS |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg8tors.F |
34 |
MDS_SEG8TORS |
DO ii=1,sNx |
|
./pkg/mdsio/mdsio_seg8tors.F |
35 |
MDS_SEG8TORS |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
121 |
MDS_SEG8TORL_2D |
INTEGER ii |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
124 |
MDS_SEG8TORL_2D |
DO ii=1,sn |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
125 |
MDS_SEG8TORL_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
128 |
MDS_SEG8TORL_2D |
DO ii=1,sn |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
129 |
MDS_SEG8TORL_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
162 |
MDS_SEG8TORS_2D |
INTEGER ii |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
165 |
MDS_SEG8TORS_2D |
DO ii=1,sn |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
166 |
MDS_SEG8TORS_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
169 |
MDS_SEG8TORS_2D |
DO ii=1,sn |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
170 |
MDS_SEG8TORS_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
39 |
MDS_SEG4TORL_2D |
INTEGER ii |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
42 |
MDS_SEG4TORL_2D |
DO ii=1,sn |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
43 |
MDS_SEG4TORL_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
46 |
MDS_SEG4TORL_2D |
DO ii=1,sn |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
47 |
MDS_SEG4TORL_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
80 |
MDS_SEG4TORS_2D |
INTEGER ii |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
83 |
MDS_SEG4TORS_2D |
DO ii=1,sn |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
84 |
MDS_SEG4TORS_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
87 |
MDS_SEG4TORS_2D |
DO ii=1,sn |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
88 |
MDS_SEG4TORS_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_write_meta.F |
112 |
MDS_WRITE_META |
ii = 0 |
|
./pkg/mdsio/mdsio_write_meta.F |
114 |
MDS_WRITE_META |
ii = MAX(dimList(1,j),ii) |
|
./pkg/mdsio/mdsio_write_meta.F |
117 |
MDS_WRITE_META |
IF ( ii.LT.10000 ) THEN |
|
./pkg/mdsio/mdsio_write_meta.F |
175 |
MDS_WRITE_META |
ii = MIN(nTimRec,20) |
|
./pkg/mdsio/mdsio_write_meta.F |
176 |
MDS_WRITE_META |
WRITE(msgBuf,'(1P20E20.12)') (timList(i),i=1,ii) |
|
./pkg/mdsio/mdsio_write_meta.F |
178 |
MDS_WRITE_META |
WRITE(mUnit,'(1X,3A)') 'timeInterval = [', msgBuf(1:20*ii),' ];' |
|
./pkg/mdsio/mdsio_write_meta.F |
75 |
MDS_WRITE_META |
INTEGER i,j,ii,iL |
|
./pkg/mdsio/mdsio_write_whalos.F |
89 |
MDS_WRITE_WHALOS |
integer i,j,k,bi,bj,ii |
|
./pkg/mnc/mnc_cw_missingvals.F |
34 |
MNC_CW_VATTR_MISSING |
integer nvf,nvl, indv, ii |
|
./pkg/mnc/mnc_cw_missingvals.F |
53 |
MNC_CW_VATTR_MISSING |
DO ii = 1,2 |
|
./pkg/mnc/mnc_cw_missingvals.F |
54 |
MNC_CW_VATTR_MISSING |
mnc_cw_vmvd(ii,indv) = mv_r8(ii) |
|
./pkg/mnc/mnc_cw_missingvals.F |
55 |
MNC_CW_VATTR_MISSING |
mnc_cw_vmvr(ii,indv) = mv_r4(ii) |
|
./pkg/mnc/mnc_cw_missingvals.F |
56 |
MNC_CW_VATTR_MISSING |
mnc_cw_vmvi(ii,indv) = mv_int(ii) |
|
./pkg/mnc/mnc_grid.F |
122 |
MNC_GRID_INIT_ALL |
ii = 4 + 3*(igr - 1) |
|
./pkg/mnc/mnc_grid.F |
123 |
MNC_GRID_INIT_ALL |
ngt = ILNBLNK(mnc_g_names(mnc_f_info(indf,ii))) |
|
./pkg/mnc/mnc_grid.F |
125 |
MNC_GRID_INIT_ALL |
& .AND. (mnc_g_names(mnc_f_info(indf,ii))(1:ngt) |
|
./pkg/mnc/mnc_grid.F |
128 |
MNC_GRID_INIT_ALL |
ig1 = mnc_f_info(indf,ii+1) |
|
./pkg/mnc/mnc_grid.F |
129 |
MNC_GRID_INIT_ALL |
ig2 = mnc_f_info(indf,ii+2) |
|
./pkg/mnc/mnc_grid.F |
185 |
MNC_GRID_INIT_ALL |
DO ii = 1,ndim_file |
|
./pkg/mnc/mnc_grid.F |
186 |
MNC_GRID_INIT_ALL |
jj = mnc_f_alld(indf,ii+1) |
|
./pkg/mnc/mnc_grid.F |
72 |
MNC_GRID_INIT_ALL |
integer i,j,k,ii,jj,kk, n,nf, indf,indg,indd, fid, ngrid |
|
./pkg/mnc/mnc_utils.F |
275 |
MNC_CHK_VTYP_R_NCVAR |
integer ii,k, ind_cw_g, ig,ids,ide,nint, indd, nk |
|
./pkg/mnc/mnc_utils.F |
307 |
MNC_CHK_VTYP_R_NCVAR |
ii = ids + (k - 1) |
|
./pkg/mnc/mnc_utils.F |
310 |
MNC_CHK_VTYP_R_NCVAR |
indd = mnc_fd_ind(indf,ii) |
|
./model/src/calc_r_star.F |
264 |
CALC_R_STAR |
ii = sNx+i |
|
./model/src/calc_r_star.F |
268 |
CALC_R_STAR |
IF (kSurfC(ii, 1-j,bi,bj).GT.Nr) rStarFacC(ii, 1-j,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 |
273 |
CALC_R_STAR |
IF (kSurfW(ii, 1-j,bi,bj).GT.Nr) rStarFacW(ii, 1-j,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 |
278 |
CALC_R_STAR |
IF (kSurfS(ii, 1-j,bi,bj).GT.Nr) rStarFacS(ii, 1-j,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 |
40 |
PTRACERS_MNC_INIT |
DO ii = 1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_mnc_init.F |
47 |
PTRACERS_MNC_INIT |
ilnb = ILNBLNK(PTRACERS_names(ii)) |
|
./pkg/ptracers/ptracers_mnc_init.F |
50 |
PTRACERS_MNC_INIT |
& 'PTRACERS_names(',ii,') is blank--please name it in', |
|
./pkg/ptracers/ptracers_mnc_init.F |
56 |
PTRACERS_MNC_INIT |
& PTRACERS_names(ii),'Cen_xy_Hn__C__t',4,5,myThid) |
|
./pkg/ptracers/ptracers_mnc_init.F |
57 |
PTRACERS_MNC_INIT |
WRITE(name,'(a,a)') 'surf_',PTRACERS_names(ii)(1:ilnb) |
|
./pkg/ptracers/ptracers_mnc_init.F |
61 |
PTRACERS_MNC_INIT |
ilnb = ILNBLNK(PTRACERS_long_names(ii)) |
|
./pkg/ptracers/ptracers_mnc_init.F |
63 |
PTRACERS_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT(PTRACERS_names(ii), |
|
./pkg/ptracers/ptracers_mnc_init.F |
64 |
PTRACERS_MNC_INIT |
& 'long_name',PTRACERS_long_names(ii),myThid) |
|
./pkg/ptracers/ptracers_mnc_init.F |
68 |
PTRACERS_MNC_INIT |
ilnb = ILNBLNK(PTRACERS_units(ii)) |
|
./pkg/ptracers/ptracers_mnc_init.F |
70 |
PTRACERS_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT(PTRACERS_names(ii),'units', |
|
./pkg/ptracers/ptracers_mnc_init.F |
71 |
PTRACERS_MNC_INIT |
& PTRACERS_units(ii),myThid) |
|
./pkg/smooth/smooth_diff3d.F |
38 |
SMOOTH_DIFF3D |
integer ii, jj, kk |
|
./pkg/smooth/smooth_filtervar2d.F |
137 |
SMOOTH_FILTERVAR2D |
DO i=ii,sNx,diLoc |
|
./pkg/smooth/smooth_filtervar2d.F |
170 |
SMOOTH_FILTERVAR2D |
DO ii=1,nbRand |
|
./pkg/smooth/smooth_filtervar2d.F |
172 |
SMOOTH_FILTERVAR2D |
& 'smooth_filtervar2D: ',ii,' members done out of',nbRand |
|
./pkg/smooth/smooth_filtervar2d.F |
26 |
SMOOTH_FILTERVAR2D |
integer i,j,k, bi, bj, ii, jj, kk |
|
./pkg/smooth/smooth_filtervar2d.F |
84 |
SMOOTH_FILTERVAR2D |
DO ii=1,diLoc |
|
./pkg/smooth/smooth_filtervar2d.F |
96 |
SMOOTH_FILTERVAR2D |
DO i=ii,sNx,diLoc |
|
./pkg/smooth/smooth_filtervar3d.F |
113 |
SMOOTH_FILTERVAR3D |
DO ii=1,diLoc,2 |
|
./pkg/smooth/smooth_filtervar3d.F |
128 |
SMOOTH_FILTERVAR3D |
DO i=ii,sNx,diLoc |
|
./pkg/smooth/smooth_filtervar3d.F |
173 |
SMOOTH_FILTERVAR3D |
DO i=ii,sNx,diLoc |
|
./pkg/smooth/smooth_filtervar3d.F |
209 |
SMOOTH_FILTERVAR3D |
DO ii=1,nbRand |
|
./pkg/smooth/smooth_filtervar3d.F |
211 |
SMOOTH_FILTERVAR3D |
& 'smooth_filtervar3D: ',ii,' members done out of ',nbRand |
|
./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 |
160 |
THSICE_ALBEDO |
ii=i |
|
./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 |
245 |
THSICE_SOLVE4TEMP |
ii = i |
|
./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) |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
67 |
CTRL_PACK |
integer ii |
|
./model/src/port_rand.F |
52 |
NO PROCEDURE |
INTEGER i,ii,inext,inextp,k |
|
./model/src/port_rand.F |
65 |
NO PROCEDURE |
ii=mod(21*i,nff) |
|
./model/src/port_rand.F |
66 |
NO PROCEDURE |
ma(ii)=mk |
|
./model/src/port_rand.F |
69 |
NO PROCEDURE |
mj=ma(ii) |
|
./optim/optim_readdata.F |
303 |
OPTIM_READDATA |
read( funit ) (cbuff(ii), ii=1,cbuffindex) |
|
./optim/optim_readdata.F |
68 |
OPTIM_READDATA |
integer ii,k |
|
./optim/optim_writedata.F |
239 |
OPTIM_WRITEDATA |
write( funit ) (cbuff(ii), ii=1,cbuffindex) |
|
./optim/optim_writedata.F |
53 |
OPTIM_WRITEDATA |
integer ii |
|
./pkg/admtlm/admtlm_dsvd.F |
204 |
ADMTLM_DSVD |
integer l, ilinsysinfo, ii, jj |
|
./pkg/admtlm/admtlm_dsvd2model.F |
72 |
ADMTLM_DSVD2MODEL |
integer ii |
|
./pkg/admtlm/admtlm_model2dsvd.F |
69 |
ADMTLM_MODEL2DSVD |
integer ii |
|
./eesupp/src/mdsfindunit.F |
24 |
MDSFINDUNIT |
integer ii |
|
./eesupp/src/mdsfindunit.F |
32 |
MDSFINDUNIT |
do ii=9,999 |
|
./eesupp/src/mdsfindunit.F |
34 |
MDSFINDUNIT |
inquire(unit=ii,iostat=ios,opened=op) |
|
./eesupp/src/mdsfindunit.F |
37 |
MDSFINDUNIT |
& ' MDSFINDUNIT: inquiring unit number = ',ii |
|
./eesupp/src/mdsfindunit.F |
46 |
MDSFINDUNIT |
iounit=ii |
|
./eesupp/src/nml_change_syntax.F |
173 |
NML_CHANGE_SYNTAX |
ii = i4 |
|
./eesupp/src/nml_change_syntax.F |
174 |
NML_CHANGE_SYNTAX |
IF ( i3.NE.0 ) ii = i3 |
|
./eesupp/src/nml_change_syntax.F |
175 |
NML_CHANGE_SYNTAX |
IF ( ii.GT.i2+1 ) THEN |
|
./eesupp/src/nml_change_syntax.F |
176 |
NML_CHANGE_SYNTAX |
is = IFNBLNK(record(i2+1:ii-1)) |
|
./eesupp/src/nml_change_syntax.F |
177 |
NML_CHANGE_SYNTAX |
ie = ILNBLNK(record(i2+1:ii-1)) |
|
./eesupp/src/nml_change_syntax.F |
66 |
NML_CHANGE_SYNTAX |
INTEGER i, n, ii |
|
./pkg/ctrl/ctrl_pack.F |
67 |
CTRL_PACK |
integer ii |
|
./pkg/ctrl/ctrl_set_fname.F |
40 |
CTRL_SET_FNAME |
integer ii |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
230 |
CTRL_SET_PACK_XY |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
316 |
CTRL_SET_PACK_XY |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
343 |
CTRL_SET_PACK_XY |
integer ii |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
502 |
CTRL_SET_PACK_XY |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
53 |
CTRL_SET_PACK_XY |
integer ii |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
243 |
CTRL_SET_PACK_XYZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
270 |
CTRL_SET_PACK_XYZ |
integer ii |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
443 |
CTRL_SET_PACK_XYZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
54 |
CTRL_SET_PACK_XYZ |
integer ii |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
286 |
CTRL_SET_PACK_XZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
382 |
CTRL_SET_PACK_XZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
56 |
CTRL_SET_PACK_XZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
246 |
CTRL_SET_PACK_YZ |
ii=mod ( (i-1)*nr*sny+(k-1)*sny+j-1 , snx ) + 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 |
289 |
CTRL_SET_PACK_YZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
387 |
CTRL_SET_PACK_YZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
56 |
CTRL_SET_PACK_YZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
191 |
CTRL_SET_UNPACK_XY |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
299 |
CTRL_SET_UNPACK_XY |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
390 |
CTRL_SET_UNPACK_XY |
integer ii |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
495 |
CTRL_SET_UNPACK_XY |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
54 |
CTRL_SET_UNPACK_XY |
integer ii |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
211 |
CTRL_SET_UNPACK_XYZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
298 |
CTRL_SET_UNPACK_XYZ |
integer ii |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
407 |
CTRL_SET_UNPACK_XYZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
54 |
CTRL_SET_UNPACK_XYZ |
integer ii |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
239 |
CTRL_SET_UNPACK_XZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
329 |
CTRL_SET_UNPACK_XZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
57 |
CTRL_SET_UNPACK_XZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
239 |
CTRL_SET_UNPACK_YZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
247 |
CTRL_SET_UNPACK_YZ |
ii=mod((i-1)*nr*sny+(k-1)*sny+j-1,snx)+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 |
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 |
272 |
CTRL_SET_UNPACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
327 |
CTRL_SET_UNPACK_YZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
57 |
CTRL_SET_UNPACK_YZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_unpack.F |
70 |
CTRL_UNPACK |
integer ii |
|
./pkg/debug/fill_in_corners_rl.F |
38 |
FILL_IN_CORNERS_RL |
INTEGER ii, jj |
|
./pkg/debug/fill_in_corners_rl.F |
47 |
FILL_IN_CORNERS_RL |
ii = i + sNx+Olx |
|
./pkg/debug/fill_in_corners_rl.F |
49 |
FILL_IN_CORNERS_RL |
fld(ii,j,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 |
192 |
DIAGNOSTICS_OUT |
DO ii=1,2 |
|
./pkg/diagnostics/diagnostics_out.F |
195 |
DIAGNOSTICS_OUT |
misval_r4(ii) = misvalLoc |
|
./pkg/diagnostics/diagnostics_out.F |
196 |
DIAGNOSTICS_OUT |
misval_r8(ii) = misvalLoc |
|
./pkg/diagnostics/diagnostics_out.F |
197 |
DIAGNOSTICS_OUT |
misval_int(ii) = UNSET_I |
|
./pkg/diagnostics/diagnostics_out.F |
482 |
DIAGNOSTICS_OUT |
DO ii = 1,CW_DIMS |
|
./pkg/diagnostics/diagnostics_out.F |
484 |
DIAGNOSTICS_OUT |
dn(ii)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagnostics_out.F |
88 |
DIAGNOSTICS_OUT |
INTEGER ii, klev |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
108 |
DIAGNOSTICS_READ_PICKUP |
DO ii = 1,CW_DIMS |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
109 |
DIAGNOSTICS_READ_PICKUP |
dn(ii)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
46 |
DIAGNOSTICS_READ_PICKUP |
INTEGER i, ii |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
77 |
DIAGNOSTICS_READ_PICKUP |
DO ii = 1,CW_DIMS |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
78 |
DIAGNOSTICS_READ_PICKUP |
dn(ii)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagnostics_summary.F |
122 |
DIAGNOSTICS_SUMMARY |
ii = ipt+l*kdiag(jdiag(md,ld)) |
|
./pkg/diagnostics/diagnostics_summary.F |
127 |
DIAGNOSTICS_SUMMARY |
xNew=ndiag(ii,1,1) |
|
./pkg/diagnostics/diagnostics_summary.F |
36 |
DIAGNOSTICS_SUMMARY |
INTEGER xNew, xOld, ii, nDup |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
106 |
DIAGNOSTICS_WRITE_PICKUP |
DO ii = 1,CW_DIMS |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
107 |
DIAGNOSTICS_WRITE_PICKUP |
dn(ii)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
142 |
DIAGNOSTICS_WRITE_PICKUP |
DO ii = 1,CW_DIMS |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
143 |
DIAGNOSTICS_WRITE_PICKUP |
dn(ii)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
57 |
DIAGNOSTICS_WRITE_PICKUP |
INTEGER i, ii |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
86 |
DIAGNOSTICS_WRITE_PICKUP |
ii = ILNBLNK(suff) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
88 |
DIAGNOSTICS_WRITE_PICKUP |
& 'pickup_diagnostics.',suff(1:ii) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
185 |
DIAGSTATS_MNC_OUT |
DO ii = 1,CW_DIMS |
|
./pkg/diagnostics/diagstats_mnc_out.F |
187 |
DIAGSTATS_MNC_OUT |
dn(ii)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
60 |
DIAGSTATS_MNC_OUT |
INTEGER ii, ilen |
|
./pkg/exch2/w2_eeboot.F |
129 |
W2_EEBOOT |
ii = MOD(J,nSx*nPx) |
|
./pkg/exch2/w2_eeboot.F |
133 |
W2_EEBOOT |
np = 1 + jj/nSy + (ii/nSx)*nPy |
|
./pkg/exch2/w2_eeboot.F |
135 |
W2_EEBOOT |
bi = 1 + MOD(ii,nSx) |
|
./pkg/exch2/w2_eeboot.F |
190 |
W2_EEBOOT |
DO ii=1,nSx |
|
./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_eeboot.F |
72 |
W2_EEBOOT |
DO ii = 1,4 |
|
./pkg/exch2/w2_eeboot.F |
73 |
W2_EEBOOT |
exch2_pij(ii,J,I) = 0 |
|
./pkg/exch2/w2_print_e2setup.F |
134 |
W2_PRINT_E2SETUP |
ii = 0 |
|
./pkg/exch2/w2_print_e2setup.F |
136 |
W2_PRINT_E2SETUP |
& ii = 2 - MIN(1,exch2_jHi(nt,it)) |
|
./pkg/exch2/w2_print_e2setup.F |
138 |
W2_PRINT_E2SETUP |
& ii = 4 - MIN(1,exch2_iHi(nt,it)) |
|
./pkg/exch2/w2_print_e2setup.F |
141 |
W2_PRINT_E2SETUP |
& edge(ii), '.Edge Facet', jt, |
|
./pkg/exch2/w2_print_e2setup.F |
42 |
W2_PRINT_E2SETUP |
INTEGER i, j, js, jp, jt, ii, is, it, ns, nt, k, tx, ty |
|
./pkg/exch2/w2_print_e2setup.F |
77 |
W2_PRINT_E2SETUP |
ii = 0 |
|
./pkg/exch2/w2_print_e2setup.F |
79 |
W2_PRINT_E2SETUP |
& ii = 2 - MIN(1,exch2_jHi(nt,it)) |
|
./pkg/exch2/w2_print_e2setup.F |
81 |
W2_PRINT_E2SETUP |
& ii = 4 - MIN(1,exch2_iHi(nt,it)) |
|
./pkg/exch2/w2_print_e2setup.F |
84 |
W2_PRINT_E2SETUP |
& edge(ii), '.Edge Facet', jt, |
|
./pkg/exch2/w2_set_cs6_facets.F |
146 |
W2_SET_CS6_FACETS |
ii = MOD( NINT(facet_link(i,j)*10.), 10 ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
148 |
W2_SET_CS6_FACETS |
& .AND. ii.GE.1 .AND. ii.LE.4 ) THEN |
|
./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_f2f_index.F |
109 |
W2_SET_F2F_INDEX |
ii = MOD( NINT(facet_link(i,j)*10.), 10 ) |
|
./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 |
135 |
W2_SET_F2F_INDEX |
IF ( i.EQ.1 .AND. ii.EQ.2 ) THEN |
|
./pkg/exch2/w2_set_f2f_index.F |
139 |
W2_SET_F2F_INDEX |
ELSEIF ( i.EQ.2 .AND. ii.EQ.1 ) THEN |
|
./pkg/exch2/w2_set_f2f_index.F |
143 |
W2_SET_F2F_INDEX |
ELSEIF ( i.EQ.3 .AND. ii.EQ.4 ) THEN |
|
./pkg/exch2/w2_set_f2f_index.F |
147 |
W2_SET_F2F_INDEX |
ELSEIF ( i.EQ.4 .AND. ii.EQ.3 ) THEN |
|
./pkg/exch2/w2_set_f2f_index.F |
152 |
W2_SET_F2F_INDEX |
ELSEIF ( i.EQ.1 .AND. ii.EQ.4 ) THEN |
|
./pkg/exch2/w2_set_f2f_index.F |
161 |
W2_SET_F2F_INDEX |
ELSEIF ( i.EQ.2 .AND. ii.EQ.3 ) THEN |
|
./pkg/exch2/w2_set_f2f_index.F |
170 |
W2_SET_F2F_INDEX |
ELSEIF ( i.EQ.3 .AND. ii.EQ.2 ) THEN |
|
./pkg/exch2/w2_set_f2f_index.F |
179 |
W2_SET_F2F_INDEX |
ELSEIF ( i.EQ.4 .AND. ii.EQ.1 ) THEN |
|
./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 |
223 |
W2_SET_F2F_INDEX |
ii = MOD( NINT(facet_link(i,j)*10.), 10 ) |
|
./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 |
56 |
W2_SET_F2F_INDEX |
ii = MOD( NINT(facet_link(i,j)*10.), 10 ) |
|
./pkg/exch2/w2_set_f2f_index.F |
64 |
W2_SET_F2F_INDEX |
& .OR. ii.LT.1 .OR. ii.GT.4 ) THEN |
|
./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_map_tiles.F |
192 |
W2_SET_MAP_TILES |
ii = nbPts + exch2_tBasex(tId) + exch2_tBasey(tId)*fNx |
|
./pkg/exch2/w2_set_map_tiles.F |
193 |
W2_SET_MAP_TILES |
exch2_txGlobalo( tId ) = 1 + ii |
|
./pkg/exch2/w2_set_map_tiles.F |
197 |
W2_SET_MAP_TILES |
ii = nbPts + exch2_tBasex(tId) + exch2_tBasey(tId)*fNx |
|
./pkg/exch2/w2_set_map_tiles.F |
198 |
W2_SET_MAP_TILES |
exch2_txGlobalo( tId ) = 1 + MOD(ii,W2_mapIO) |
|
./pkg/exch2/w2_set_map_tiles.F |
199 |
W2_SET_MAP_TILES |
exch2_tyGlobalo( tId ) = 1 + ii/W2_mapIO |
|
./pkg/exch2/w2_set_map_tiles.F |
240 |
W2_SET_MAP_TILES |
INTEGER j, ii |
|
./pkg/exch2/w2_set_map_tiles.F |
255 |
W2_SET_MAP_TILES |
ii = 2 |
|
./pkg/exch2/w2_set_map_tiles.F |
256 |
W2_SET_MAP_TILES |
DO WHILE ( ii.LE.mnFld ) |
|
./pkg/exch2/w2_set_map_tiles.F |
257 |
W2_SET_MAP_TILES |
IF (localDBg) WRITE(0,'(A,I8)') ' GCD : try',ii |
|
./pkg/exch2/w2_set_map_tiles.F |
260 |
W2_SET_MAP_TILES |
flag = flag.AND.(MOD(fldList(j),ii).EQ.0 ) |
|
./pkg/exch2/w2_set_map_tiles.F |
263 |
W2_SET_MAP_TILES |
divide = divide*ii |
|
./pkg/exch2/w2_set_map_tiles.F |
265 |
W2_SET_MAP_TILES |
fldList(j) = fldList(j)/ii |
|
./pkg/exch2/w2_set_map_tiles.F |
268 |
W2_SET_MAP_TILES |
& 'FIND_GCD_N: com.fact=',ii |
|
./pkg/exch2/w2_set_map_tiles.F |
269 |
W2_SET_MAP_TILES |
mnFld = mnFld/ii |
|
./pkg/exch2/w2_set_map_tiles.F |
271 |
W2_SET_MAP_TILES |
ii = ii+2 |
|
./pkg/exch2/w2_set_map_tiles.F |
272 |
W2_SET_MAP_TILES |
IF (ii.EQ.4) ii=3 |
|
./pkg/exch2/w2_set_map_tiles.F |
47 |
W2_SET_MAP_TILES |
INTEGER j, ii, k, tId, tx, ty |
|
./pkg/exch2/w2_set_tile2tiles.F |
120 |
W2_SET_TILE2TILES |
ii = 1 + MOD(i,2) |
|
./pkg/exch2/w2_set_tile2tiles.F |
121 |
W2_SET_TILE2TILES |
it = 2*ii - 3 |
|
./pkg/exch2/w2_set_tile2tiles.F |
126 |
W2_SET_TILE2TILES |
ii = ii + 2 |
|
./pkg/exch2/w2_set_tile2tiles.F |
132 |
W2_SET_TILE2TILES |
tile_edge2edge(ns,is) = 10*i + ii |
|
./pkg/exch2/w2_set_tile2tiles.F |
149 |
W2_SET_TILE2TILES |
ii = MOD( NINT(facet_link(i,js)*10.), 10 ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
153 |
W2_SET_TILE2TILES |
ibnd1 = facet_pij(1,ii,jt)*ii1 |
|
./pkg/exch2/w2_set_tile2tiles.F |
154 |
W2_SET_TILE2TILES |
& + facet_pij(2,ii,jt)*jj1 + facet_oi(ii,jt) |
|
./pkg/exch2/w2_set_tile2tiles.F |
155 |
W2_SET_TILE2TILES |
ibnd2 = facet_pij(1,ii,jt)*ii2 |
|
./pkg/exch2/w2_set_tile2tiles.F |
156 |
W2_SET_TILE2TILES |
& + facet_pij(2,ii,jt)*jj2 + facet_oi(ii,jt) |
|
./pkg/exch2/w2_set_tile2tiles.F |
157 |
W2_SET_TILE2TILES |
jbnd1 = facet_pij(3,ii,jt)*ii1 |
|
./pkg/exch2/w2_set_tile2tiles.F |
158 |
W2_SET_TILE2TILES |
& + facet_pij(4,ii,jt)*jj1 + facet_oj(ii,jt) |
|
./pkg/exch2/w2_set_tile2tiles.F |
159 |
W2_SET_TILE2TILES |
jbnd2 = facet_pij(3,ii,jt)*ii2 |
|
./pkg/exch2/w2_set_tile2tiles.F |
160 |
W2_SET_TILE2TILES |
& + facet_pij(4,ii,jt)*jj2 + facet_oj(ii,jt) |
|
./pkg/exch2/w2_set_tile2tiles.F |
185 |
W2_SET_TILE2TILES |
tile_edge2edge(ns,is) = 10*i + ii |
|
./pkg/exch2/w2_set_tile2tiles.F |
273 |
W2_SET_TILE2TILES |
ii = MOD(tile_edge2edge(ns,is),10) |
|
./pkg/exch2/w2_set_tile2tiles.F |
274 |
W2_SET_TILE2TILES |
IF ( ii .NE. 0) THEN |
|
./pkg/exch2/w2_set_tile2tiles.F |
280 |
W2_SET_TILE2TILES |
ii = MOD(tile_edge2edge(nt,it),10) |
|
./pkg/exch2/w2_set_tile2tiles.F |
281 |
W2_SET_TILE2TILES |
IF ( exch2_neighbourId(nt,it).EQ.is .AND. ii.EQ.i ) THEN |
|
./pkg/exch2/w2_set_tile2tiles.F |
318 |
W2_SET_TILE2TILES |
ii = exch2_neighbourId(nt,it) |
|
./pkg/exch2/w2_set_tile2tiles.F |
320 |
W2_SET_TILE2TILES |
IF ( ii.NE.is .OR. nn.NE.ns ) THEN |
|
./pkg/exch2/w2_set_tile2tiles.F |
330 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I5,3(A,I3))') ' with tile', ii, ' :', |
|
./pkg/exch2/w2_set_tile2tiles.F |
331 |
W2_SET_TILE2TILES |
& nn,' (',tile_edge2edge(nn,ii),' )' |
|
./pkg/exch2/w2_set_tile2tiles.F |
43 |
W2_SET_TILE2TILES |
INTEGER i, k, ii, nn |
|
./pkg/exf/exf_interp.F |
100 |
EXF_INTERP |
integer ic, ii, icnt |
|
./pkg/exf/exf_interp.F |
254 |
EXF_INTERP |
ii = 0 |
|
./pkg/exf/exf_interp.F |
261 |
EXF_INTERP |
ii = ii+1 |
|
./pkg/exf/exf_interp.F |
262 |
EXF_INTERP |
inx(ii,1) = i |
|
./pkg/exf/exf_interp.F |
263 |
EXF_INTERP |
inx(ii,2) = j |
|
./pkg/exf/exf_interp.F |
266 |
EXF_INTERP |
icnt = ii |
|
./pkg/exf/exf_interp.F |
277 |
EXF_INTERP |
ii = 0 |
|
./pkg/exf/exf_interp.F |
284 |
EXF_INTERP |
ii = ii+1 |
|
./pkg/exf/exf_interp.F |
285 |
EXF_INTERP |
inx(ii,1) = i |
|
./pkg/exf/exf_interp.F |
286 |
EXF_INTERP |
inx(ii,2) = j |
|
./pkg/exf/exf_interp.F |
289 |
EXF_INTERP |
icnt = ii |