| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_eeboot.F |
40 |
W2_EEBOOT |
INTEGER ii, I, J |
|
./pkg/exch2/w2_eeboot.F |
65 |
W2_EEBOOT |
DO ii = 1,4 |
|
./pkg/exch2/w2_eeboot.F |
66 |
W2_EEBOOT |
exch2_pij(ii,J,I) = 0 |
|
./pkg/exch2/w2_map_procs.F |
46 |
W2_MAP_PROCS |
INTEGER np, ii, jj, bi, bj |
|
./pkg/exch2/w2_map_procs.F |
86 |
W2_MAP_PROCS |
ii = MOD(J,nSx*nPx) |
|
./pkg/exch2/w2_map_procs.F |
90 |
W2_MAP_PROCS |
np = 1 + jj/nSy + (ii/nSx)*nPy |
|
./pkg/exch2/w2_map_procs.F |
92 |
W2_MAP_PROCS |
bi = 1 + MOD(ii,nSx) |
|
./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_cumsum.F |
112 |
W2_SET_MAP_CUMSUM |
ii = MOD( NINT(facet_link(i,j)*10.), 10 ) |
|
./pkg/exch2/w2_set_map_cumsum.F |
116 |
W2_SET_MAP_CUMSUM |
IF ( i.EQ.W2_NORTH .AND. ii.EQ.W2_SOUTH ) THEN |
|
./pkg/exch2/w2_set_map_cumsum.F |
129 |
W2_SET_MAP_CUMSUM |
IF ( i.EQ.W2_EAST .AND. ii.EQ.W2_WEST ) THEN |
|
./pkg/exch2/w2_set_map_cumsum.F |
145 |
W2_SET_MAP_CUMSUM |
IF ( i.EQ.W2_SOUTH .AND. ii.EQ.W2_NORTH ) THEN |
|
./pkg/exch2/w2_set_map_cumsum.F |
158 |
W2_SET_MAP_CUMSUM |
IF ( i.EQ.W2_WEST .AND. ii.EQ.W2_EAST ) THEN |
|
./pkg/exch2/w2_set_map_cumsum.F |
176 |
W2_SET_MAP_CUMSUM |
IF ( ( i.EQ.W2_NORTH .AND. ii.EQ.W2_WEST ) .OR. |
|
./pkg/exch2/w2_set_map_cumsum.F |
177 |
W2_SET_MAP_CUMSUM |
& ( i.EQ.W2_WEST .AND. ii.EQ.W2_NORTH ) ) THEN |
|
./pkg/exch2/w2_set_map_cumsum.F |
191 |
W2_SET_MAP_CUMSUM |
IF ( ( i.EQ.W2_EAST .AND. ii.EQ.W2_SOUTH ) .OR. |
|
./pkg/exch2/w2_set_map_cumsum.F |
192 |
W2_SET_MAP_CUMSUM |
& ( i.EQ.W2_SOUTH .AND. ii.EQ.W2_EAST ) ) THEN |
|
./pkg/exch2/w2_set_map_cumsum.F |
42 |
W2_SET_MAP_CUMSUM |
INTEGER tN, i, j, k, ii, jj |
|
./pkg/exch2/w2_set_map_tiles.F |
198 |
W2_SET_MAP_TILES |
ii = nbPts + exch2_tBasex(tId) + exch2_tBasey(tId)*fNx |
|
./pkg/exch2/w2_set_map_tiles.F |
199 |
W2_SET_MAP_TILES |
exch2_txGlobalo( tId ) = 1 + ii |
|
./pkg/exch2/w2_set_map_tiles.F |
203 |
W2_SET_MAP_TILES |
ii = nbPts + exch2_tBasex(tId) + exch2_tBasey(tId)*fNx |
|
./pkg/exch2/w2_set_map_tiles.F |
204 |
W2_SET_MAP_TILES |
exch2_txGlobalo( tId ) = 1 + MOD(ii,W2_mapIO) |
|
./pkg/exch2/w2_set_map_tiles.F |
205 |
W2_SET_MAP_TILES |
exch2_tyGlobalo( tId ) = 1 + ii/W2_mapIO |
|
./pkg/exch2/w2_set_map_tiles.F |
246 |
W2_SET_MAP_TILES |
INTEGER j, ii |
|
./pkg/exch2/w2_set_map_tiles.F |
261 |
W2_SET_MAP_TILES |
ii = 2 |
|
./pkg/exch2/w2_set_map_tiles.F |
262 |
W2_SET_MAP_TILES |
DO WHILE ( ii.LE.mnFld ) |
|
./pkg/exch2/w2_set_map_tiles.F |
263 |
W2_SET_MAP_TILES |
IF (localDBg) WRITE(0,'(A,I8)') ' GCD : try',ii |
|
./pkg/exch2/w2_set_map_tiles.F |
266 |
W2_SET_MAP_TILES |
flag = flag.AND.(MOD(fldList(j),ii).EQ.0 ) |
|
./pkg/exch2/w2_set_map_tiles.F |
269 |
W2_SET_MAP_TILES |
divide = divide*ii |
|
./pkg/exch2/w2_set_map_tiles.F |
271 |
W2_SET_MAP_TILES |
fldList(j) = fldList(j)/ii |
|
./pkg/exch2/w2_set_map_tiles.F |
274 |
W2_SET_MAP_TILES |
& 'FIND_GCD_N: com.fact=',ii |
|
./pkg/exch2/w2_set_map_tiles.F |
275 |
W2_SET_MAP_TILES |
mnFld = mnFld/ii |
|
./pkg/exch2/w2_set_map_tiles.F |
277 |
W2_SET_MAP_TILES |
ii = ii+2 |
|
./pkg/exch2/w2_set_map_tiles.F |
278 |
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/fizhi/fizhi_moist.F |
1661 |
CLOUD |
integer nt,km1,ic1,i,L,len1,len2,isav,len11,ii |
|
./pkg/flt/flt_traj.F |
129 |
FLT_TRAJ |
& ' FLT_TRAJ: ', (flt_io_buff(ii,ip,bi,bj),ii=1,5) |
|
./pkg/flt/flt_traj.F |
155 |
FLT_TRAJ |
DO ii=1,nFlds |
|
./pkg/flt/flt_traj.F |
156 |
FLT_TRAJ |
flt_io_buff(ii,ip,bi,bj) = tmp(ii) |
|
./pkg/flt/flt_traj.F |
185 |
FLT_TRAJ |
ii = NINT(tmp(7)) |
|
./pkg/flt/flt_traj.F |
187 |
FLT_TRAJ |
IF ( ii.EQ.0 ) ii = 13 |
|
./pkg/flt/flt_traj.F |
188 |
FLT_TRAJ |
IF ( ii.NE.nFlds ) THEN |
|
./pkg/flt/flt_traj.F |
193 |
FLT_TRAJ |
& 'previous file (',fn(1:18),') value =',ii |
|
./pkg/flt/flt_traj.F |
223 |
FLT_TRAJ |
DO ii=8,nFlds |
|
./pkg/flt/flt_traj.F |
224 |
FLT_TRAJ |
tmp(ii) = 0. |
|
./pkg/flt/flt_traj.F |
48 |
FLT_TRAJ |
INTEGER ip, kp, ii |
|
./pkg/flt/flt_up.F |
146 |
FLT_UP |
DO ii=9,nFlds |
|
./pkg/flt/flt_up.F |
147 |
FLT_UP |
tmp(ii) = flt_nan |
|
./pkg/flt/flt_up.F |
151 |
FLT_UP |
DO ii=1,nFlds |
|
./pkg/flt/flt_up.F |
152 |
FLT_UP |
flt_io_buff(ii,ip,bi,bj) = tmp(ii) |
|
./pkg/flt/flt_up.F |
183 |
FLT_UP |
ii = NINT(tmp(7)) |
|
./pkg/flt/flt_up.F |
185 |
FLT_UP |
IF ( ii.EQ.0 ) ii = 9+4*Nr |
|
./pkg/flt/flt_up.F |
186 |
FLT_UP |
IF ( ii.NE.nFlds ) THEN |
|
./pkg/flt/flt_up.F |
191 |
FLT_UP |
& 'previous file (',fn(1:14),') value =',ii |
|
./pkg/flt/flt_up.F |
221 |
FLT_UP |
DO ii=8,nFlds |
|
./pkg/flt/flt_up.F |
222 |
FLT_UP |
tmp(ii) = 0. |
|
./pkg/flt/flt_up.F |
46 |
FLT_UP |
INTEGER ip, k, ii |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
22 |
GAD_OSC_MUL_R |
integer ii |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
36 |
GAD_OSC_MUL_R |
do ii = ir-hh, ir+hh |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
39 |
GAD_OSC_MUL_R |
dels = (ii - ir) * 2. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
41 |
GAD_OSC_MUL_R |
dfs1 = ohat(1,ii) |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
42 |
GAD_OSC_MUL_R |
dfs2 = ohat(2,ii) |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
54 |
GAD_OSC_MUL_R |
mval = mval * mask(ii) |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
22 |
GAD_OSC_MUL_X |
integer ii |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
36 |
GAD_OSC_MUL_X |
do ii = ix-hh, ix+hh |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
39 |
GAD_OSC_MUL_X |
dels = (ii - ix) * 2. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
41 |
GAD_OSC_MUL_X |
dfs1 = ohat(1,ii) |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
42 |
GAD_OSC_MUL_X |
dfs2 = ohat(2,ii) |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
54 |
GAD_OSC_MUL_X |
mval = mval * mask(ii) |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
22 |
GAD_OSC_MUL_Y |
integer ii |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
36 |
GAD_OSC_MUL_Y |
do ii = iy-hh, iy+hh |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
39 |
GAD_OSC_MUL_Y |
dels = (ii - iy) * 2. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
41 |
GAD_OSC_MUL_Y |
dfs1 = ohat(1,ii) |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
42 |
GAD_OSC_MUL_Y |
dfs2 = ohat(2,ii) |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
54 |
GAD_OSC_MUL_Y |
mval = mval * mask(ii) |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
116 |
GAD_PPM_HAT_R |
do ii = +1, +3 |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
118 |
GAD_PPM_HAT_R |
lhat(ii) = scal(1) * uhat(ii) |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
119 |
GAD_PPM_HAT_R |
& + scal(2) * lhat(ii) |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
129 |
GAD_PPM_HAT_R |
do ii = +1, +3 |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
131 |
GAD_PPM_HAT_R |
fhat(ii,ir) = lhat(ii) |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
56 |
GAD_PPM_HAT_R |
integer ii,ir |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
117 |
GAD_PPM_HAT_X |
do ii = +1, +3 |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
119 |
GAD_PPM_HAT_X |
lhat(ii) = scal(1) * uhat(ii) |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
120 |
GAD_PPM_HAT_X |
& + scal(2) * lhat(ii) |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
130 |
GAD_PPM_HAT_X |
do ii = +1, +3 |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
132 |
GAD_PPM_HAT_X |
fhat(ii,ix) = lhat(ii) |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
57 |
GAD_PPM_HAT_X |
integer ii,ix |
|
./pkg/generic_advdiff/gad_ppm_hat_y.F |
118 |
GAD_PPM_HAT_Y |
do ii = +1, +3 |
|
./pkg/generic_advdiff/gad_ppm_hat_y.F |
120 |
GAD_PPM_HAT_Y |
lhat(ii) = scal(1) * uhat(ii) |
|
./pkg/generic_advdiff/gad_ppm_hat_y.F |
121 |
GAD_PPM_HAT_Y |
& + scal(2) * lhat(ii) |
|
./pkg/generic_advdiff/gad_ppm_hat_y.F |
131 |
GAD_PPM_HAT_Y |
do ii = +1, +3 |
|
./pkg/generic_advdiff/gad_ppm_hat_y.F |
133 |
GAD_PPM_HAT_Y |
fhat(ii,iy) = lhat(ii) |
|
./pkg/generic_advdiff/gad_ppm_hat_y.F |
57 |
GAD_PPM_HAT_Y |
integer ii,iy |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
136 |
GAD_PQM_HAT_R |
do ii = +1, +5 |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
138 |
GAD_PQM_HAT_R |
lhat(ii) = scal(1) * uhat(ii) |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
139 |
GAD_PQM_HAT_R |
& + scal(2) * lhat(ii) |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
149 |
GAD_PQM_HAT_R |
do ii = +1, +5 |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
151 |
GAD_PQM_HAT_R |
fhat(ii,ir) = lhat(ii) |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
62 |
GAD_PQM_HAT_R |
integer ii,ir |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
138 |
GAD_PQM_HAT_X |
do ii = +1, +5 |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
140 |
GAD_PQM_HAT_X |
lhat(ii) = scal(1) * uhat(ii) |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
141 |
GAD_PQM_HAT_X |
& + scal(2) * lhat(ii) |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
151 |
GAD_PQM_HAT_X |
do ii = +1, +5 |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
153 |
GAD_PQM_HAT_X |
fhat(ii,ix) = lhat(ii) |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
158 |
GAD_PQM_HAT_X |
do ii = +1, +5 |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
159 |
GAD_PQM_HAT_X |
fhat(ii,ix) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
62 |
GAD_PQM_HAT_X |
integer ii,ix |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
139 |
GAD_PQM_HAT_Y |
do ii = +1, +5 |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
141 |
GAD_PQM_HAT_Y |
lhat(ii) = scal(1) * uhat(ii) |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
142 |
GAD_PQM_HAT_Y |
& + scal(2) * lhat(ii) |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
152 |
GAD_PQM_HAT_Y |
do ii = +1, +5 |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
154 |
GAD_PQM_HAT_Y |
fhat(ii,iy) = lhat(ii) |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
159 |
GAD_PQM_HAT_Y |
do ii = +1, +5 |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
160 |
GAD_PQM_HAT_Y |
fhat(ii,iy) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
62 |
GAD_PQM_HAT_Y |
integer ii,iy |
|
./pkg/mdsio/mdsio_gl.F |
1105 |
MDSREADFIELD_2D_GL |
do ii=1,sNx |
|
./pkg/mdsio/mdsio_gl.F |
1106 |
MDSREADFIELD_2D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
1292 |
MDSWRITEFIELD_2D_GL |
integer ii,jj |
|
./pkg/mdsio/mdsio_gl.F |
318 |
MDSREADFIELD_3D_GL |
do ii=1,sNx |
|
./pkg/mdsio/mdsio_gl.F |
319 |
MDSREADFIELD_3D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
504 |
MDSWRITEFIELD_3D_GL |
integer ii,jj |
|
./pkg/mdsio/mdsio_gl.F |
82 |
MDSREADFIELD_3D_GL |
integer ii,jj |
|
./pkg/mdsio/mdsio_gl.F |
869 |
MDSREADFIELD_2D_GL |
integer ii,jj |
|
./pkg/mdsio/mdsio_gl_slice.F |
221 |
MDSREADFIELD_XZ_GL |
do ii=1,sNx |
|
./pkg/mdsio/mdsio_gl_slice.F |
222 |
MDSREADFIELD_XZ_GL |
arr_gl(ii,bi,ip,bj,jp,k)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl_slice.F |
567 |
MDSWRITEFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
638 |
MDSWRITEFIELD_XZ_GL |
do ii=1,sNx |
|
./pkg/mdsio/mdsio_gl_slice.F |
639 |
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 |
215 |
MDS_READ_META |
ii = LEN(simulName) |
|
./pkg/mdsio/mdsio_read_meta.F |
217 |
MDS_READ_META |
ii = MIN(ii+17,iL-4) |
|
./pkg/mdsio/mdsio_read_meta.F |
218 |
MDS_READ_META |
simulName = lineBuf(18:ii) |
|
./pkg/mdsio/mdsio_read_meta.F |
245 |
MDS_READ_META |
ii = ILNBLNK(lineBuf) |
|
./pkg/mdsio/mdsio_read_meta.F |
246 |
MDS_READ_META |
IF ( ii.LT.20 ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
251 |
MDS_READ_META |
ELSEIF ( ii.LT.30 ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
339 |
MDS_READ_META |
ii = LEN(titleLine) |
|
./pkg/mdsio/mdsio_read_meta.F |
341 |
MDS_READ_META |
ii = MIN(ii+4,iL-3) |
|
./pkg/mdsio/mdsio_read_meta.F |
342 |
MDS_READ_META |
titleLine = lineBuf(5:ii) |
|
./pkg/mdsio/mdsio_read_meta.F |
396 |
MDS_READ_META |
& nDimFil, ' , j=', j, ' , ii=', ii |
|
./pkg/mdsio/mdsio_read_meta.F |
88 |
MDS_READ_META |
INTEGER i,j,ii |
|
./pkg/mdsio/mdsio_read_whalos.F |
90 |
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 |
114 |
MDS_WRITE_META |
ii = 0 |
|
./pkg/mdsio/mdsio_write_meta.F |
116 |
MDS_WRITE_META |
ii = MAX(dimList(1,j),ii) |
|
./pkg/mdsio/mdsio_write_meta.F |
119 |
MDS_WRITE_META |
IF ( ii.LT.10000 ) THEN |
|
./pkg/mdsio/mdsio_write_meta.F |
176 |
MDS_WRITE_META |
ii = MIN(nTimRec,20) |
|
./pkg/mdsio/mdsio_write_meta.F |
177 |
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 |
77 |
MDS_WRITE_META |
INTEGER i,j,ii,iL |
|
./pkg/mdsio/mdsio_write_whalos.F |
92 |
MDS_WRITE_WHALOS |
integer i,j,k,bi,bj,ii |
|
./model/src/calc_r_star.F |
278 |
CALC_R_STAR |
ii = sNx+i |
|
./model/src/calc_r_star.F |
282 |
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 |
284 |
CALC_R_STAR |
IF (kSurfC(ii, jj, bi,bj).GT.Nr) rStarFacC(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
287 |
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 |
289 |
CALC_R_STAR |
IF (kSurfW(ii, jj, bi,bj).GT.Nr) rStarFacW(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
292 |
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 |
294 |
CALC_R_STAR |
IF (kSurfS(ii, jj, bi,bj).GT.Nr) rStarFacS(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
60 |
CALC_R_STAR |
INTEGER ii,jj |
|
./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) |
|
./pkg/obcs/obcs_mon_stats.F |
113 |
OBCS_MON_STATS_EW_RL |
ii = iEb(j,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
116 |
OBCS_MON_STATS_EW_RL |
IF ( ii.NE.iNone .AND. ii.GT.1 ) THEN |
|
./pkg/obcs/obcs_mon_stats.F |
117 |
OBCS_MON_STATS_EW_RL |
iB = ii |
|
./pkg/obcs/obcs_mon_stats.F |
119 |
OBCS_MON_STATS_EW_RL |
& *( mskInC(ii-1,j,bi,bj)-mskInC(ii,j,bi,bj) ) |
|
./pkg/obcs/obcs_mon_stats.F |
122 |
OBCS_MON_STATS_EW_RL |
tmpV = arr(ii,j,k,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
185 |
OBCS_MON_STATS_EW_RL |
ii = iWb(j,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
188 |
OBCS_MON_STATS_EW_RL |
IF ( ii.NE.iNone .AND. ii.LT.sNx ) THEN |
|
./pkg/obcs/obcs_mon_stats.F |
189 |
OBCS_MON_STATS_EW_RL |
iB = ii+1 |
|
./pkg/obcs/obcs_mon_stats.F |
191 |
OBCS_MON_STATS_EW_RL |
& *( mskInC(ii+1,j,bi,bj)-mskInC(ii,j,bi,bj) ) |
|
./pkg/obcs/obcs_mon_stats.F |
194 |
OBCS_MON_STATS_EW_RL |
IF ( gPos.EQ.1 .OR. gPos.EQ.3 ) ii = iB |
|
./pkg/obcs/obcs_mon_stats.F |
195 |
OBCS_MON_STATS_EW_RL |
tmpV = arr(ii,j,k,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
82 |
OBCS_MON_STATS_EW_RL |
INTEGER ii, iB |
|
./pkg/profiles/profiles_findunit.F |
24 |
PROFILES_FINDUNIT |
INTEGER ii |
|
./pkg/profiles/profiles_findunit.F |
32 |
PROFILES_FINDUNIT |
DO ii=2000,9999 |
|
./pkg/profiles/profiles_findunit.F |
35 |
PROFILES_FINDUNIT |
IF ( ii.NE.errorMessageUnit |
|
./pkg/profiles/profiles_findunit.F |
36 |
PROFILES_FINDUNIT |
& .AND. ii.NE.standardMessageUnit |
|
./pkg/profiles/profiles_findunit.F |
37 |
PROFILES_FINDUNIT |
& .AND. ii.NE.scrUnit1 .AND. ii.NE.scrUnit2 |
|
./pkg/profiles/profiles_findunit.F |
38 |
PROFILES_FINDUNIT |
& .AND. ii.NE.eeDataUnit .AND. ii.NE.modelDataUnit |
|
./pkg/profiles/profiles_findunit.F |
40 |
PROFILES_FINDUNIT |
INQUIRE(unit=ii,iostat=ios,opened=op) |
|
./pkg/profiles/profiles_findunit.F |
43 |
PROFILES_FINDUNIT |
& ' PROFILES_FINDUNIT: inquiring unit number =', ii |
|
./pkg/profiles/profiles_findunit.F |
53 |
PROFILES_FINDUNIT |
ioUnit=ii |
|
./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/seaice/seaice_fgmres.F |
140 |
SEAICE_MAP_RS2VEC |
INTEGER ii, jj, m |
|
./pkg/seaice/seaice_fgmres.F |
147 |
SEAICE_MAP_RS2VEC |
ii = 0 |
|
./pkg/seaice/seaice_fgmres.F |
152 |
SEAICE_MAP_RS2VEC |
ii = jj + 2*I |
|
./pkg/seaice/seaice_fgmres.F |
153 |
SEAICE_MAP_RS2VEC |
vector(ii-1,bi,bj) = xfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
154 |
SEAICE_MAP_RS2VEC |
vector(ii, bi,bj) = yfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
161 |
SEAICE_MAP_RS2VEC |
ii = jj + 2*I |
|
./pkg/seaice/seaice_fgmres.F |
162 |
SEAICE_MAP_RS2VEC |
xfld2d(I,J,bi,bj) = vector(ii-1,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
163 |
SEAICE_MAP_RS2VEC |
yfld2d(I,J,bi,bj) = vector(ii, bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
172 |
SEAICE_MAP_RS2VEC |
ii = jj + I |
|
./pkg/seaice/seaice_fgmres.F |
173 |
SEAICE_MAP_RS2VEC |
vector(ii, bi,bj) = xfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
174 |
SEAICE_MAP_RS2VEC |
vector(ii+m,bi,bj) = yfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
181 |
SEAICE_MAP_RS2VEC |
ii = jj + I |
|
./pkg/seaice/seaice_fgmres.F |
182 |
SEAICE_MAP_RS2VEC |
xfld2d(I,J,bi,bj) = vector(ii, bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
183 |
SEAICE_MAP_RS2VEC |
yfld2d(I,J,bi,bj) = vector(ii+m,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
343 |
SEAICE_FGMRES |
integer i1, ii, j, jj, k, k1!, n1 |
|
./pkg/seaice/seaice_fgmres.F |
48 |
SEAICE_MAP2VEC |
INTEGER ii, jj, m |
|
./pkg/seaice/seaice_fgmres.F |
548 |
SEAICE_FGMRES |
do ii=2,i |
|
./pkg/seaice/seaice_fgmres.F |
549 |
SEAICE_FGMRES |
k=i-ii+1 |
|
./pkg/seaice/seaice_fgmres.F |
55 |
SEAICE_MAP2VEC |
ii = 0 |
|
./pkg/seaice/seaice_fgmres.F |
60 |
SEAICE_MAP2VEC |
ii = jj + 2*I |
|
./pkg/seaice/seaice_fgmres.F |
61 |
SEAICE_MAP2VEC |
vector(ii-1,bi,bj) = xfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
62 |
SEAICE_MAP2VEC |
vector(ii, bi,bj) = yfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
69 |
SEAICE_MAP2VEC |
ii = jj + 2*I |
|
./pkg/seaice/seaice_fgmres.F |
70 |
SEAICE_MAP2VEC |
xfld2d(I,J,bi,bj) = vector(ii-1,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
71 |
SEAICE_MAP2VEC |
yfld2d(I,J,bi,bj) = vector(ii, bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
80 |
SEAICE_MAP2VEC |
ii = jj + I |
|
./pkg/seaice/seaice_fgmres.F |
81 |
SEAICE_MAP2VEC |
vector(ii, bi,bj) = xfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
82 |
SEAICE_MAP2VEC |
vector(ii+m,bi,bj) = yfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
89 |
SEAICE_MAP2VEC |
ii = jj + I |
|
./pkg/seaice/seaice_fgmres.F |
90 |
SEAICE_MAP2VEC |
xfld2d(I,J,bi,bj) = vector(ii, bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
91 |
SEAICE_MAP2VEC |
yfld2d(I,J,bi,bj) = vector(ii+m,bi,bj) |
|
./pkg/smooth/smooth_diff3d.F |
37 |
SMOOTH_DIFF3D |
integer ii, jj, kk |
|
./pkg/smooth/smooth_filtervar2d.F |
138 |
SMOOTH_FILTERVAR2D |
DO i=ii,sNx,diLoc |
|
./pkg/smooth/smooth_filtervar2d.F |
169 |
SMOOTH_FILTERVAR2D |
DO ii=1,nbRand |
|
./pkg/smooth/smooth_filtervar2d.F |
171 |
SMOOTH_FILTERVAR2D |
& 'smooth_filtervar2D: ',ii,' members done out of',nbRand |
|
./pkg/smooth/smooth_filtervar2d.F |
28 |
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 |
112 |
SMOOTH_FILTERVAR3D |
DO ii=1,diLoc,2 |
|
./pkg/smooth/smooth_filtervar3d.F |
127 |
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 |
208 |
SMOOTH_FILTERVAR3D |
DO ii=1,nbRand |
|
./pkg/smooth/smooth_filtervar3d.F |
210 |
SMOOTH_FILTERVAR3D |
& 'smooth_filtervar3D: ',ii,' members done out of ',nbRand |
|
./pkg/smooth/smooth_filtervar3d.F |
28 |
SMOOTH_FILTERVAR3D |
integer i,j,k, bi, bj, ii, jj, kk |
|
./pkg/smooth/smooth_init3d.F |
35 |
SMOOTH_INIT3D |
integer ii,jj,kk |
|
./pkg/thsice/thsice_albedo.F |
160 |
THSICE_ALBEDO |
ii=i |
|
./pkg/thsice/thsice_albedo.F |
177 |
THSICE_ALBEDO |
& 'THSICE_ALBEDO: Problem, e.g., at:', myIter,ii,jj,bi,bj |
|
./pkg/thsice/thsice_albedo.F |
180 |
THSICE_ALBEDO |
& 'THSICE_ALBEDO: albedo=', sAlb(ii,jj),ageSnw(ii,jj), |
|
./pkg/thsice/thsice_albedo.F |
181 |
THSICE_ALBEDO |
& hsnow(ii,jj) |
|
./pkg/thsice/thsice_albedo.F |
88 |
THSICE_ALBEDO |
INTEGER ii,jj,icount |
|
./pkg/thsice/thsice_solve4temp.F |
157 |
THSICE_SOLVE4TEMP |
INTEGER ii, jj, icount, stdUnit |
|
./pkg/thsice/thsice_solve4temp.F |
264 |
THSICE_SOLVE4TEMP |
ii = i |
|
./pkg/thsice/thsice_solve4temp.F |
347 |
THSICE_SOLVE4TEMP |
& 'THSICE_SOLVE4TEMP: the last one was at (',ii,',',jj, |
|
./pkg/thsice/thsice_solve4temp.F |
348 |
THSICE_SOLVE4TEMP |
& ') with hIce = ', hIce(ii,jj) |
|
./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) |
|
./model/src/solve_uv_tridiago.F |
148 |
SOLVE_UV_TRIDIAGO |
DO ii= 1,sNx-1 |
|
./model/src/solve_uv_tridiago.F |
149 |
SOLVE_UV_TRIDIAGO |
i = sNx - ii |
|
./model/src/solve_uv_tridiago.F |
79 |
SOLVE_UV_TRIDIAGO |
INTEGER ii, im, ip |
|
./optim/optim_readdata.F |
357 |
OPTIM_READDATA |
read( funit ) (cbuff(ii), ii=1,cbuffindex) |
|
./optim/optim_readdata.F |
72 |
OPTIM_READDATA |
integer ii,k |
|
./optim/optim_writedata.F |
248 |
OPTIM_WRITEDATA |
write( funit ) (cbuff(ii), ii=1,cbuffindex) |
|
./optim/optim_writedata.F |
57 |
OPTIM_WRITEDATA |
integer ii |
|
./pkg/admtlm/admtlm_dsvd.F |
204 |
ADMTLM_DSVD |
integer l, ilinsysinfo, ii, jj |
|
./pkg/admtlm/admtlm_dsvd2model.F |
73 |
ADMTLM_DSVD2MODEL |
integer ii |
|
./pkg/admtlm/admtlm_model2dsvd.F |
71 |
ADMTLM_MODEL2DSVD |
integer ii |
|
./pkg/autodiff/autodiff_findunit.F |
24 |
AUTODIFF_FINDUNIT |
INTEGER ii |
|
./pkg/autodiff/autodiff_findunit.F |
32 |
AUTODIFF_FINDUNIT |
DO ii=1000,1999 |
|
./pkg/autodiff/autodiff_findunit.F |
35 |
AUTODIFF_FINDUNIT |
IF ( ii.NE.errorMessageUnit |
|
./pkg/autodiff/autodiff_findunit.F |
36 |
AUTODIFF_FINDUNIT |
& .AND. ii.NE.standardMessageUnit |
|
./pkg/autodiff/autodiff_findunit.F |
37 |
AUTODIFF_FINDUNIT |
& .AND. ii.NE.scrUnit1 .AND. ii.NE.scrUnit2 |
|
./pkg/autodiff/autodiff_findunit.F |
38 |
AUTODIFF_FINDUNIT |
& .AND. ii.NE.eeDataUnit .AND. ii.NE.modelDataUnit |
|
./pkg/autodiff/autodiff_findunit.F |
40 |
AUTODIFF_FINDUNIT |
INQUIRE(unit=ii,iostat=ios,opened=op) |
|
./pkg/autodiff/autodiff_findunit.F |
43 |
AUTODIFF_FINDUNIT |
& ' AUTODIFF_FINDUNIT: inquiring unit number =', ii |
|
./pkg/autodiff/autodiff_findunit.F |
52 |
AUTODIFF_FINDUNIT |
ioUnit=ii |
|
./eesupp/src/mdsfindunit.F |
24 |
MDSFINDUNIT |
INTEGER ii |
|
./eesupp/src/mdsfindunit.F |
33 |
MDSFINDUNIT |
DO ii=31,999 |
|
./eesupp/src/mdsfindunit.F |
35 |
MDSFINDUNIT |
DO ii=9,999 |
|
./eesupp/src/mdsfindunit.F |
39 |
MDSFINDUNIT |
IF ( ii.NE.errorMessageUnit |
|
./eesupp/src/mdsfindunit.F |
40 |
MDSFINDUNIT |
& .AND. ii.NE.standardMessageUnit |
|
./eesupp/src/mdsfindunit.F |
41 |
MDSFINDUNIT |
& .AND. ii.NE.scrUnit1 .AND. ii.NE.scrUnit2 |
|
./eesupp/src/mdsfindunit.F |
42 |
MDSFINDUNIT |
& .AND. ii.NE.eeDataUnit .AND. ii.NE.modelDataUnit |
|
./eesupp/src/mdsfindunit.F |
44 |
MDSFINDUNIT |
INQUIRE(unit=ii,iostat=ios,opened=op) |
|
./eesupp/src/mdsfindunit.F |
47 |
MDSFINDUNIT |
& ' MDSFINDUNIT: inquiring unit number =', ii |
|
./eesupp/src/mdsfindunit.F |
56 |
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 |
|
./eesupp/src/reset_halo.F |
114 |
RESET_HALO_RS |
INTEGER ii, i, j |
|
./eesupp/src/reset_halo.F |
128 |
RESET_HALO_RS |
DO ii=1-OLx,OLx |
|
./eesupp/src/reset_halo.F |
129 |
RESET_HALO_RS |
i = ii |
|
./eesupp/src/reset_halo.F |
130 |
RESET_HALO_RS |
IF ( ii.GE.1 ) i= ii+sNx |
|
./eesupp/src/reset_halo.F |
47 |
RESET_HALO_RL |
INTEGER ii, i, j |
|
./eesupp/src/reset_halo.F |
61 |
RESET_HALO_RL |
DO ii=1-OLx,OLx |
|
./eesupp/src/reset_halo.F |
62 |
RESET_HALO_RL |
i = ii |
|
./eesupp/src/reset_halo.F |
63 |
RESET_HALO_RL |
IF ( ii.GE.1 ) i= ii+sNx |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
148 |
GAD_2D_CALC_RHS |
DO ii=1-OLx,1 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
149 |
GAD_2D_CALC_RHS |
localT(ii,j)=localT(i,j) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
154 |
GAD_2D_CALC_RHS |
DO ii=sNx,sNx+OLx |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
155 |
GAD_2D_CALC_RHS |
localT(ii,j)=localT(i,j) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
212 |
GAD_2D_CALC_RHS |
DO ii=1-OLx,1 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
213 |
GAD_2D_CALC_RHS |
localT(ii,j)=tracer(ii,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
218 |
GAD_2D_CALC_RHS |
DO ii=sNx,sNx+OLx |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
219 |
GAD_2D_CALC_RHS |
localT(ii,j)=tracer(ii,j,bi,bj) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
98 |
GAD_2D_CALC_RHS |
INTEGER i,j,iG,jG, ii, jj |
|
./pkg/ctrl/ctrl_pack.F |
85 |
CTRL_PACK |
integer ii |
|
./pkg/ctrl/ctrl_set_fname.F |
40 |
CTRL_SET_FNAME |
integer ii |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
256 |
CTRL_SET_PACK_XY |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
350 |
CTRL_SET_PACK_XY |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
377 |
CTRL_SET_PACK_XY |
integer ii |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
50 |
CTRL_SET_PACK_XY |
integer ii |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
557 |
CTRL_SET_PACK_XY |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
263 |
CTRL_SET_PACK_XYZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
290 |
CTRL_SET_PACK_XYZ |
integer ii |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
476 |
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 |
244 |
CTRL_SET_PACK_XZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
317 |
CTRL_SET_PACK_XZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
57 |
CTRL_SET_PACK_XZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
205 |
CTRL_SET_PACK_YZ |
ii=mod ( (i-1)*nr*sny+(k-1)*sny+j-1 , snx ) + 1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
212 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
217 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) * |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
225 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) / |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
236 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
248 |
CTRL_SET_PACK_YZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
321 |
CTRL_SET_PACK_YZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
57 |
CTRL_SET_PACK_YZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
208 |
CTRL_SET_UNPACK_XY |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
318 |
CTRL_SET_UNPACK_XY |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
411 |
CTRL_SET_UNPACK_XY |
integer ii |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
51 |
CTRL_SET_UNPACK_XY |
integer ii |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
531 |
CTRL_SET_UNPACK_XY |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
232 |
CTRL_SET_UNPACK_XYZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
319 |
CTRL_SET_UNPACK_XYZ |
integer ii |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
441 |
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 |
220 |
CTRL_SET_UNPACK_XZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
307 |
CTRL_SET_UNPACK_XZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
58 |
CTRL_SET_UNPACK_XZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
220 |
CTRL_SET_UNPACK_YZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
228 |
CTRL_SET_UNPACK_YZ |
ii=mod((i-1)*nr*sny+(k-1)*sny+j-1,snx)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
233 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
240 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
241 |
CTRL_SET_UNPACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk)/ |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
249 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
253 |
CTRL_SET_UNPACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
307 |
CTRL_SET_UNPACK_YZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
58 |
CTRL_SET_UNPACK_YZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_unpack.F |
88 |
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_mnc_out.F |
259 |
DIAGNOSTICS_MNC_OUT |
INTEGER ii, klev |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
277 |
DIAGNOSTICS_MNC_OUT |
DO ii = 1,CW_DIMS |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
280 |
DIAGNOSTICS_MNC_OUT |
dn(ii) = ' ' |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
282 |
DIAGNOSTICS_MNC_OUT |
DO ii=1,2 |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
283 |
DIAGNOSTICS_MNC_OUT |
misval_r4(ii) = misValLoc |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
284 |
DIAGNOSTICS_MNC_OUT |
misval_r8(ii) = misValLoc |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
285 |
DIAGNOSTICS_MNC_OUT |
misval_int(ii) = UNSET_I |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
62 |
DIAGNOSTICS_MNC_SET |
INTEGER ii, klev |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
86 |
DIAGNOSTICS_MNC_SET |
DO ii=1,2 |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
87 |
DIAGNOSTICS_MNC_SET |
misval_r4(ii) = misValLoc |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
88 |
DIAGNOSTICS_MNC_SET |
misval_r8(ii) = misValLoc |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
89 |
DIAGNOSTICS_MNC_SET |
misval_int(ii) = UNSET_I |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
107 |
DIAGNOSTICS_READ_PICKUP |
DO ii = 1,CW_DIMS |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
108 |
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 |
76 |
DIAGNOSTICS_READ_PICKUP |
DO ii = 1,CW_DIMS |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
77 |
DIAGNOSTICS_READ_PICKUP |
dn(ii)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagnostics_summary.F |
123 |
DIAGNOSTICS_SUMMARY |
ii = ipt+l*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_summary.F |
128 |
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 |