| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_dsvd.F |
204 |
ADMTLM_DSVD |
integer l, ilinsysinfo, 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 |
104 |
PTRACERS_WRITE_TIMEAVE |
DO jj = 1,MAX_LEN_FNAM |
|
./pkg/ptracers/ptracers_write_timeave.F |
105 |
PTRACERS_WRITE_TIMEAVE |
name(jj:jj) = ' ' |
|
./pkg/ptracers/ptracers_write_timeave.F |
53 |
PTRACERS_WRITE_TIMEAVE |
INTEGER ii,jj, ilnb |
|
./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 |
229 |
CALC_R_STAR |
jj = sNy+j |
|
./model/src/calc_r_star.F |
233 |
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 |
234 |
CALC_R_STAR |
IF (ksurfC(ii, jj, bi,bj).GT.Nr) rStarFacC(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
238 |
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 |
239 |
CALC_R_STAR |
IF (ksurfW(ii, jj, bi,bj).GT.Nr) rStarFacW(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
243 |
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 |
244 |
CALC_R_STAR |
IF (ksurfS(ii, jj, bi,bj).GT.Nr) rStarFacS(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
56 |
CALC_R_STAR |
INTEGER ii,jj |
|
./pkg/mdsio/mdsio_gl.F |
1201 |
MDSWRITEFIELD_2D_GL |
integer ii,jj |
|
./pkg/mdsio/mdsio_gl.F |
486 |
MDSWRITEFIELD_3D_GL |
integer ii,jj |
|
./pkg/mdsio/mdsio_gl.F |
810 |
MDSREADFIELD_2D_GL |
integer ii,jj |
|
./pkg/mdsio/mdsio_gl.F |
96 |
MDSREADFIELD_3D_GL |
integer ii,jj |
|
./pkg/mdsio/mdsio_gl_slice.F |
309 |
MDSREADFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
444 |
MDSREADFIELD_YZ_GL |
do jj=1,sNy |
|
./pkg/mdsio/mdsio_gl_slice.F |
445 |
MDSREADFIELD_YZ_GL |
arr_gl(bi,ip,jj,bj,jp,k)=arr(jj,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl_slice.F |
760 |
MDSWRITEFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
817 |
MDSWRITEFIELD_YZ_GL |
do jj=1,sNy |
|
./pkg/mdsio/mdsio_gl_slice.F |
818 |
MDSWRITEFIELD_YZ_GL |
arr(jj,k,bi,bj)=arr_gl(bi,ip,jj,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
202 |
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 |
209 |
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 |
cbuff(cbuffindex) = globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
53 |
CTRL_SET_PACK_YZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
198 |
CTRL_SET_PACK_XZ |
jj=mod((j-1)*nr+k-1,sny)+1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
205 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) * |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
213 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) / |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
221 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
53 |
CTRL_SET_PACK_XZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
193 |
CTRL_SET_UNPACK_XZ |
jj=mod((j-1)*nr+k-1,sny)+1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
202 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
205 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
206 |
CTRL_SET_UNPACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk)/ |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
214 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
52 |
CTRL_SET_UNPACK_XZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
199 |
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 |
203 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
206 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
207 |
CTRL_SET_UNPACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk)/ |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
215 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
52 |
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 |