| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_dsvd2model.F |
72 |
ADMTLM_DSVD2MODEL |
integer ii |
|
./pkg/admtlm/admtlm_dsvd.F |
204 |
ADMTLM_DSVD |
integer l, ilinsysinfo, ii, jj |
|
./pkg/admtlm/admtlm_model2dsvd.F |
69 |
ADMTLM_MODEL2DSVD |
integer 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/ptracers/ptracers_write_timeave.F |
101 |
PTRACERS_WRITE_TIMEAVE |
DO ii = 1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_write_timeave.F |
102 |
PTRACERS_WRITE_TIMEAVE |
CALL MNC_CW_RL_W(pf,'ptr_tave',0,0,PTRACERS_names(ii), |
|
./pkg/ptracers/ptracers_write_timeave.F |
103 |
PTRACERS_WRITE_TIMEAVE |
& ptracertave(1-OLx,1-OLy,1,1,1,ii),myThid) |
|
./pkg/ptracers/ptracers_write_timeave.F |
107 |
PTRACERS_WRITE_TIMEAVE |
ilnb = ILNBLNK(PTRACERS_names(ii)) |
|
./pkg/ptracers/ptracers_write_timeave.F |
108 |
PTRACERS_WRITE_TIMEAVE |
WRITE(name,'(a,a)') 'surf_',PTRACERS_names(ii)(1:ilnb) |
|
./pkg/ptracers/ptracers_write_timeave.F |
110 |
PTRACERS_WRITE_TIMEAVE |
& ptracerFluxtave(1-OLx,1-OLy,1,1,ii),myThid) |
|
./pkg/ptracers/ptracers_write_timeave.F |
53 |
PTRACERS_WRITE_TIMEAVE |
INTEGER ii,jj, ilnb |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
110 |
DIAGNOSTICS_WRITE_PICKUP |
DO ii = 1,CW_DIMS |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
111 |
DIAGNOSTICS_WRITE_PICKUP |
dn(ii)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
146 |
DIAGNOSTICS_WRITE_PICKUP |
DO ii = 1,CW_DIMS |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
147 |
DIAGNOSTICS_WRITE_PICKUP |
dn(ii)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
61 |
DIAGNOSTICS_WRITE_PICKUP |
INTEGER ii |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
90 |
DIAGNOSTICS_WRITE_PICKUP |
ii = ILNBLNK(suff) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
92 |
DIAGNOSTICS_WRITE_PICKUP |
& 'pickup_diagnostics.',suff(1:ii) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
109 |
DIAGNOSTICS_READ_PICKUP |
DO ii = 1,CW_DIMS |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
110 |
DIAGNOSTICS_READ_PICKUP |
dn(ii)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
47 |
DIAGNOSTICS_READ_PICKUP |
INTEGER ii |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
78 |
DIAGNOSTICS_READ_PICKUP |
DO ii = 1,CW_DIMS |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
79 |
DIAGNOSTICS_READ_PICKUP |
dn(ii)(1:NLEN) = dn_blnk(1:NLEN) |
|
./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/diagnostics/diagnostics_out.F |
357 |
DIAGNOSTICS_OUT |
DO ii = 1,CW_DIMS |
|
./pkg/diagnostics/diagnostics_out.F |
359 |
DIAGNOSTICS_OUT |
dn(ii)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagnostics_out.F |
76 |
DIAGNOSTICS_OUT |
INTEGER ii |
|
./pkg/diagnostics/diagnostics_summary.F |
115 |
DIAGNOSTICS_SUMMARY |
ii = ipt+l*kdiag(jdiag(md,ld)) |
|
./pkg/diagnostics/diagnostics_summary.F |
120 |
DIAGNOSTICS_SUMMARY |
xNew=ndiag(ii,1,1) |
|
./pkg/diagnostics/diagnostics_summary.F |
36 |
DIAGNOSTICS_SUMMARY |
INTEGER xNew, xOld, ii, nDup |
|
./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 |
260 |
MNC_CHK_VTYP_R_NCVAR |
integer ii,k, ind_cw_g, ig,ids,ide,nint, indd, cw_len, nk |
|
./pkg/mnc/mnc_utils.F |
293 |
MNC_CHK_VTYP_R_NCVAR |
ii = ids + (k - 1) |
|
./pkg/mnc/mnc_utils.F |
296 |
MNC_CHK_VTYP_R_NCVAR |
indd = mnc_fd_ind(indf,ii) |
|
./pkg/fizhi/fizhi_moist.F |
1601 |
CLOUD |
integer nt,km1,ic1,i,L,len1,len2,isav,len11,ii |
|
./model/src/port_rand.F |
47 |
NO PROCEDURE |
integer i,ii,inext,inextp,k |
|
./model/src/port_rand.F |
60 |
NO PROCEDURE |
ii=mod(21*i,nff) |
|
./model/src/port_rand.F |
61 |
NO PROCEDURE |
ma(ii)=mk |
|
./model/src/port_rand.F |
64 |
NO PROCEDURE |
mj=ma(ii) |
|
./model/src/calc_r_star.F |
228 |
CALC_R_STAR |
ii = sNx+i |
|
./model/src/calc_r_star.F |
232 |
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 |
234 |
CALC_R_STAR |
IF (ksurfC(ii, jj, bi,bj).GT.Nr) rStarFacC(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
237 |
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 |
239 |
CALC_R_STAR |
IF (ksurfW(ii, jj, bi,bj).GT.Nr) rStarFacW(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
242 |
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 |
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 |
|
./model/src/ini_curvilinear_grid.F |
586 |
READSYMTILE_RS |
READ(dUnit,rec=I+iBase)(buf(ii),ii=1,dNx+1) |
|
./optim/optim_readdata.F |
304 |
OPTIM_READDATA |
read( funit ) (cbuff(ii), ii=1,cbuffindex) |
|
./optim/optim_readdata.F |
69 |
OPTIM_READDATA |
integer ii,k |
|
./optim/optim_writedata.F |
240 |
OPTIM_WRITEDATA |
write( funit ) (cbuff(ii), ii=1,cbuffindex) |
|
./optim/optim_writedata.F |
54 |
OPTIM_WRITEDATA |
integer ii |
|
./eesupp/src/mdsfindunit.F |
24 |
MDSFINDUNIT |
integer ii |
|
./eesupp/src/mdsfindunit.F |
32 |
MDSFINDUNIT |
do ii=9,99 |
|
./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 |
|
./pkg/mdsio/mdsio_slice.F |
1021 |
MDS_SEG8TORL_2D |
integer ii |
|
./pkg/mdsio/mdsio_slice.F |
1024 |
MDS_SEG8TORL_2D |
do ii=1,sn |
|
./pkg/mdsio/mdsio_slice.F |
1025 |
MDS_SEG8TORL_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_slice.F |
1028 |
MDS_SEG8TORL_2D |
do ii=1,sn |
|
./pkg/mdsio/mdsio_slice.F |
1029 |
MDS_SEG8TORL_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_slice.F |
1061 |
MDS_SEG8TORS_2D |
integer ii |
|
./pkg/mdsio/mdsio_slice.F |
1064 |
MDS_SEG8TORS_2D |
do ii=1,sn |
|
./pkg/mdsio/mdsio_slice.F |
1065 |
MDS_SEG8TORS_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_slice.F |
1068 |
MDS_SEG8TORS_2D |
do ii=1,sn |
|
./pkg/mdsio/mdsio_slice.F |
1069 |
MDS_SEG8TORS_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_slice.F |
941 |
MDS_SEG4TORL_2D |
integer ii |
|
./pkg/mdsio/mdsio_slice.F |
944 |
MDS_SEG4TORL_2D |
do ii=1,sn |
|
./pkg/mdsio/mdsio_slice.F |
945 |
MDS_SEG4TORL_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_slice.F |
948 |
MDS_SEG4TORL_2D |
do ii=1,sn |
|
./pkg/mdsio/mdsio_slice.F |
949 |
MDS_SEG4TORL_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_slice.F |
981 |
MDS_SEG4TORS_2D |
integer ii |
|
./pkg/mdsio/mdsio_slice.F |
984 |
MDS_SEG4TORS_2D |
do ii=1,sn |
|
./pkg/mdsio/mdsio_slice.F |
985 |
MDS_SEG4TORS_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_slice.F |
988 |
MDS_SEG4TORS_2D |
do ii=1,sn |
|
./pkg/mdsio/mdsio_slice.F |
989 |
MDS_SEG4TORS_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_writemeta.F |
48 |
MDSWRITEMETA |
integer i,ii,mUnit |
|
./pkg/mdsio/mdsio_writemeta.F |
79 |
MDSWRITEMETA |
do ii=1,ndims |
|
./pkg/mdsio/mdsio_writemeta.F |
80 |
MDSWRITEMETA |
if (ii.lt.ndims) then |
|
./pkg/mdsio/mdsio_writemeta.F |
81 |
MDSWRITEMETA |
write(mUnit,'(10x,3(i5,","))') (dimList(i,ii),i=1,3) |
|
./pkg/mdsio/mdsio_writemeta.F |
83 |
MDSWRITEMETA |
write(mUnit,'(10x,i5,",",i5,",",i5)') (dimList(i,ii),i=1,3) |
|
./pkg/mdsio/mdsio_seg8torl.F |
26 |
MDS_SEG8TORL |
integer ii |
|
./pkg/mdsio/mdsio_seg8torl.F |
29 |
MDS_SEG8TORL |
do ii=1,sNx |
|
./pkg/mdsio/mdsio_seg8torl.F |
30 |
MDS_SEG8TORL |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg8torl.F |
33 |
MDS_SEG8TORL |
do ii=1,sNx |
|
./pkg/mdsio/mdsio_seg8torl.F |
34 |
MDS_SEG8TORL |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_seg8tors.F |
26 |
MDS_SEG8TORS |
integer ii |
|
./pkg/mdsio/mdsio_seg8tors.F |
29 |
MDS_SEG8TORS |
do ii=1,sNx |
|
./pkg/mdsio/mdsio_seg8tors.F |
30 |
MDS_SEG8TORS |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg8tors.F |
33 |
MDS_SEG8TORS |
do ii=1,sNx |
|
./pkg/mdsio/mdsio_seg8tors.F |
34 |
MDS_SEG8TORS |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
1021 |
MDSREADFIELD_2D_GL |
do ii=1,sNx |
|
./pkg/mdsio/mdsio_gl.F |
1022 |
MDSREADFIELD_2D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
1201 |
MDSWRITEFIELD_2D_GL |
integer ii,jj |
|
./pkg/mdsio/mdsio_gl.F |
307 |
MDSREADFIELD_3D_GL |
do ii=1,sNx |
|
./pkg/mdsio/mdsio_gl.F |
308 |
MDSREADFIELD_3D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./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_seg4tors.F |
26 |
MDS_SEG4TORS |
integer ii |
|
./pkg/mdsio/mdsio_seg4tors.F |
29 |
MDS_SEG4TORS |
do ii=1,sNx |
|
./pkg/mdsio/mdsio_seg4tors.F |
30 |
MDS_SEG4TORS |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg4tors.F |
33 |
MDS_SEG4TORS |
do ii=1,sNx |
|
./pkg/mdsio/mdsio_seg4tors.F |
34 |
MDS_SEG4TORS |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl_slice.F |
222 |
MDSREADFIELD_XZ_GL |
do ii=1,sNx |
|
./pkg/mdsio/mdsio_gl_slice.F |
223 |
MDSREADFIELD_XZ_GL |
arr_gl(ii,bi,ip,bj,jp,k)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl_slice.F |
545 |
MDSWRITEFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
602 |
MDSWRITEFIELD_XZ_GL |
do ii=1,sNx |
|
./pkg/mdsio/mdsio_gl_slice.F |
603 |
MDSWRITEFIELD_XZ_GL |
arr(ii,k,bi,bj)=arr_gl(ii,bi,ip,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl_slice.F |
86 |
MDSREADFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_seg4torl.F |
26 |
MDS_SEG4TORL |
integer ii |
|
./pkg/mdsio/mdsio_seg4torl.F |
29 |
MDS_SEG4TORL |
do ii=1,sNx |
|
./pkg/mdsio/mdsio_seg4torl.F |
30 |
MDS_SEG4TORL |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg4torl.F |
33 |
MDS_SEG4TORL |
do ii=1,sNx |
|
./pkg/mdsio/mdsio_seg4torl.F |
34 |
MDS_SEG4TORL |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
201 |
CTRL_SET_PACK_YZ |
ii=mod((i-1)*nr*sny+(k-1)*sny+j-1,snx)+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 |
237 |
CTRL_SET_PACK_YZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
322 |
CTRL_SET_PACK_YZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
53 |
CTRL_SET_PACK_YZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
212 |
CTRL_SET_PACK_XY |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
284 |
CTRL_SET_PACK_XY |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
49 |
CTRL_SET_PACK_XY |
integer ii |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
207 |
CTRL_SET_UNPACK_XYZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
50 |
CTRL_SET_UNPACK_XYZ |
integer ii |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
233 |
CTRL_SET_PACK_XZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
315 |
CTRL_SET_PACK_XZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
53 |
CTRL_SET_PACK_XZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_fname.F |
40 |
CTRL_SET_FNAME |
integer ii |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
235 |
CTRL_SET_PACK_XYZ |
write(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
50 |
CTRL_SET_PACK_XYZ |
integer ii |
|
./pkg/ctrl/ctrl_unpack.F |
70 |
CTRL_UNPACK |
integer ii |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
190 |
CTRL_SET_UNPACK_XZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
265 |
CTRL_SET_UNPACK_XZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
52 |
CTRL_SET_UNPACK_XZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_pack.F |
67 |
CTRL_PACK |
integer ii |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
190 |
CTRL_SET_UNPACK_YZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
198 |
CTRL_SET_UNPACK_YZ |
ii=mod((i-1)*nr*sny+(k-1)*sny+j-1,snx)+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 |
264 |
CTRL_SET_UNPACK_YZ |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
52 |
CTRL_SET_UNPACK_YZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
187 |
CTRL_SET_UNPACK_XY |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
281 |
CTRL_SET_UNPACK_XY |
read(cunit) (cbuff(ii), ii=1,cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
50 |
CTRL_SET_UNPACK_XY |
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 |