| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
116 |
FIZHI_WRITE_VEGTILES |
iG = tn |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
119 |
FIZHI_WRITE_VEGTILES |
iG = bi+(myXGlobalLo-1)/sNx |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
121 |
FIZHI_WRITE_VEGTILES |
tn = (jG - 1)*(nPx*nSx) + iG |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
125 |
FIZHI_WRITE_VEGTILES |
& 'pickup_vegtiles.',fn(1:ilst),'.',iG,'.',jG,'.data' |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
371 |
FIZHI_READ_VEGTILES |
iG = tn |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
374 |
FIZHI_READ_VEGTILES |
iG = bi+(myXGlobalLo-1)/sNx |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
376 |
FIZHI_READ_VEGTILES |
tn = (jG - 1)*(nPx*nSx) + iG |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
380 |
FIZHI_READ_VEGTILES |
& fn(1:ilst),'.',iG,'.',jG,'.data' |
|
./pkg/flt/flt_runga2.F |
44 |
FLT_RUNGA2 |
INTEGER ic, jc, kc, iG, jG |
|
./pkg/flt/flt_runga2.F |
96 |
FLT_RUNGA2 |
iG = myXGlobalLo + (bi-1)*sNx + ic-1 |
|
./pkg/flt/flt_runga4.F |
44 |
FLT_RUNGA4 |
INTEGER ic, jc, kc, iG, jG |
|
./pkg/flt/flt_runga4.F |
96 |
FLT_RUNGA4 |
iG = myXGlobalLo + (bi-1)*sNx + ic-1 |
|
./pkg/grdchk/grdchk_get_position.F |
48 |
GRDCHK_GET_POSITION |
integer iG,jG |
|
./pkg/mdsio/mdsio_gl.F |
1021 |
MDSREADFIELD_2D_GL |
iG=bi+(ip-1)*nsx |
|
./pkg/mdsio/mdsio_gl.F |
1023 |
MDSREADFIELD_2D_GL |
irec=1 + INT(iG/sNx) + nSx*nPx*(jG+j-1) + nSx*nPx*Ny*(k-1) |
|
./pkg/mdsio/mdsio_gl.F |
1026 |
MDSREADFIELD_2D_GL |
iG = 0 |
|
./pkg/mdsio/mdsio_gl.F |
1241 |
MDSWRITEFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
1416 |
MDSWRITEFIELD_2D_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
1419 |
MDSWRITEFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
1437 |
MDSWRITEFIELD_2D_GL |
iG = 0 |
|
./pkg/mdsio/mdsio_gl.F |
1492 |
MDSWRITEFIELD_2D_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
1495 |
MDSWRITEFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
222 |
MDSREADFIELD_3D_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
225 |
MDSREADFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
260 |
MDSREADFIELD_3D_GL |
iG=bi+(ip-1)*nsx |
|
./pkg/mdsio/mdsio_gl.F |
262 |
MDSREADFIELD_3D_GL |
irec=1 + INT(iG/sNx) + nSx*nPx*(jG+j-1) + nSx*nPx*Ny*(k-1) |
|
./pkg/mdsio/mdsio_gl.F |
265 |
MDSREADFIELD_3D_GL |
iG = 0 |
|
./pkg/mdsio/mdsio_gl.F |
479 |
MDSWRITEFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
653 |
MDSWRITEFIELD_3D_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
656 |
MDSWRITEFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
674 |
MDSWRITEFIELD_3D_GL |
iG = 0 |
|
./pkg/mdsio/mdsio_gl.F |
729 |
MDSWRITEFIELD_3D_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
732 |
MDSWRITEFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
73 |
MDSREADFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
834 |
MDSREADFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
983 |
MDSREADFIELD_2D_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
986 |
MDSREADFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
136 |
MDSREADFIELD_XZ_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
139 |
MDSREADFIELD_XZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
169 |
MDSREADFIELD_XZ_GL |
iG = 0 |
|
./pkg/mdsio/mdsio_gl_slice.F |
300 |
MDSREADFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
363 |
MDSREADFIELD_YZ_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
366 |
MDSREADFIELD_YZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
396 |
MDSREADFIELD_YZ_GL |
iG = 0 |
|
./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 |
586 |
MDSWRITEFIELD_XZ_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
589 |
MDSWRITEFIELD_XZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
606 |
MDSWRITEFIELD_XZ_GL |
iG = 0 |
|
./pkg/mdsio/mdsio_gl_slice.F |
659 |
MDSWRITEFIELD_XZ_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
662 |
MDSWRITEFIELD_XZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./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_gl_slice.F |
769 |
MDSWRITEFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
814 |
MDSWRITEFIELD_YZ_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
817 |
MDSWRITEFIELD_YZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
834 |
MDSWRITEFIELD_YZ_GL |
iG = 0 |
|
./pkg/mdsio/mdsio_gl_slice.F |
887 |
MDSWRITEFIELD_YZ_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
890 |
MDSWRITEFIELD_YZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_read_field.F |
110 |
MDS_READ_FIELD |
INTEGER iG,jG,bi,bj |
|
./pkg/mdsio/mdsio_read_field.F |
438 |
MDS_READ_FIELD |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_read_field.F |
441 |
MDS_READ_FIELD |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_read_meta.F |
155 |
MDS_READ_META |
iG = 1+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_read_meta.F |
158 |
MDS_READ_META |
& pfName(1:pL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_read_meta.F |
88 |
MDS_READ_META |
INTEGER iG,jG |
|
./pkg/mdsio/mdsio_read_section.F |
169 |
MDS_READ_SEC_XZ |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_read_section.F |
172 |
MDS_READ_SEC_XZ |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_read_section.F |
215 |
MDS_READ_SEC_XZ |
iG = myXGlobalLo-1 + (bi-1)*sNx |
|
./pkg/mdsio/mdsio_read_section.F |
217 |
MDS_READ_SEC_XZ |
irec=1 + INT(iG/sNx) + nSx*nPx*(k-1) |
|
./pkg/mdsio/mdsio_read_section.F |
221 |
MDS_READ_SEC_XZ |
iG = 0 |
|
./pkg/mdsio/mdsio_read_section.F |
361 |
MDS_READ_SEC_YZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_read_section.F |
447 |
MDS_READ_SEC_YZ |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_read_section.F |
450 |
MDS_READ_SEC_YZ |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_read_section.F |
493 |
MDS_READ_SEC_YZ |
iG = (myXGlobalLo-1)/sNx + (bi-1) |
|
./pkg/mdsio/mdsio_read_section.F |
499 |
MDS_READ_SEC_YZ |
iG = 0 |
|
./pkg/mdsio/mdsio_read_section.F |
84 |
MDS_READ_SEC_XZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_readvec_loc.F |
163 |
MDS_READVEC_LOC |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_readvec_loc.F |
166 |
MDS_READVEC_LOC |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_readvec_loc.F |
82 |
MDS_READVEC_LOC |
INTEGER iG,jG,dUnit,IL,pIL,iLfn |
|
./pkg/mdsio/mdsio_readvector.F |
154 |
MDSREADVECTOR |
iG=bi+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_readvector.F |
157 |
MDSREADVECTOR |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_readvector.F |
186 |
MDSREADVECTOR |
iG = myXGlobalLo-1+(bi-1)*sNx |
|
./pkg/mdsio/mdsio_readvector.F |
188 |
MDSREADVECTOR |
irec = 1 + int(iG/sNx) + (jG/sNy)*nSx*nPx + |
|
./pkg/mdsio/mdsio_readvector.F |
191 |
MDSREADVECTOR |
iG = 0 |
|
./pkg/mdsio/mdsio_readvector.F |
59 |
MDSREADVECTOR |
INTEGER iG,jG,irec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
157 |
MDS_WR_METAFILES |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
160 |
MDS_WR_METAFILES |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
163 |
MDS_WR_METAFILES |
& pfName(1:pIL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
94 |
MDS_WR_METAFILES |
INTEGER iG,jG, bi,bj, IL,pIL |
|
./pkg/mdsio/mdsio_write_field.F |
127 |
MDS_WRITE_FIELD |
INTEGER iG,jG,bi,bj |
|
./pkg/mdsio/mdsio_write_field.F |
471 |
MDS_WRITE_FIELD |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_write_field.F |
474 |
MDS_WRITE_FIELD |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_write_field.F |
505 |
MDS_WRITE_FIELD |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_write_field.F |
508 |
MDS_WRITE_FIELD |
& pfName(1:pIL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_write_section.F |
155 |
MDS_WRITE_SEC_XZ |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_write_section.F |
158 |
MDS_WRITE_SEC_XZ |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_write_section.F |
186 |
MDS_WRITE_SEC_XZ |
iG = myXGlobalLo-1 + (bi-1)*sNx |
|
./pkg/mdsio/mdsio_write_section.F |
188 |
MDS_WRITE_SEC_XZ |
irec=1 + INT(iG/sNx) + nSx*nPx*(k-1) |
|
./pkg/mdsio/mdsio_write_section.F |
192 |
MDS_WRITE_SEC_XZ |
iG = 0 |
|
./pkg/mdsio/mdsio_write_section.F |
345 |
MDS_WRITE_SEC_YZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_section.F |
408 |
MDS_WRITE_SEC_YZ |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_write_section.F |
411 |
MDS_WRITE_SEC_YZ |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_write_section.F |
439 |
MDS_WRITE_SEC_YZ |
iG = (myXGlobalLo-1)/sNx + (bi-1) |
|
./pkg/mdsio/mdsio_write_section.F |
445 |
MDS_WRITE_SEC_YZ |
iG = 0 |
|
./pkg/mdsio/mdsio_write_section.F |
91 |
MDS_WRITE_SEC_XZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_writelocal.F |
114 |
MDS_WRITELOCAL |
INTEGER iG,jG |
|
./pkg/mdsio/mdsio_writelocal.F |
347 |
MDS_WRITELOCAL |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_writelocal.F |
350 |
MDS_WRITELOCAL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_writelocal.F |
381 |
MDS_WRITELOCAL |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_writelocal.F |
384 |
MDS_WRITELOCAL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
161 |
MDS_WRITEVEC_LOC |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_writevec_loc.F |
164 |
MDS_WRITEVEC_LOC |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
227 |
MDS_WRITEVEC_LOC |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_writevec_loc.F |
230 |
MDS_WRITEVEC_LOC |
& pfName(1:pIL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
232 |
MDS_WRITEVEC_LOC |
dimList(2,1)=iG |
|
./pkg/mdsio/mdsio_writevec_loc.F |
233 |
MDS_WRITEVEC_LOC |
dimList(3,1)=iG |
|
./pkg/mdsio/mdsio_writevec_loc.F |
83 |
MDS_WRITEVEC_LOC |
INTEGER iG,jG,iRec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_writevector.F |
260 |
MDSWRITEVECTOR |
iG=bi+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_writevector.F |
263 |
MDSWRITEVECTOR |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_writevector.F |
278 |
MDSWRITEVECTOR |
iG = myXGlobalLo-1+(bi-1)*sNx |
|
./pkg/mdsio/mdsio_writevector.F |
280 |
MDSWRITEVECTOR |
irec = 1 + int(iG/sNx) + (jG/sNy)*nSx*nPx + |
|
./pkg/mdsio/mdsio_writevector.F |
283 |
MDSWRITEVECTOR |
iG = 0 |
|
./pkg/mdsio/mdsio_writevector.F |
312 |
MDSWRITEVECTOR |
iG=bi+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_writevector.F |
315 |
MDSWRITEVECTOR |
& pfName(1:pIL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_writevector.F |
69 |
MDSWRITEVECTOR |
INTEGER iG,jG,irec,dUnit,IL,pIL |
|
./pkg/mnc/mnc_cwrapper.F |
626 |
MNC_CW_GET_TILE_NUM |
integer iG,jG |
|
./pkg/mnc/mnc_cwrapper.F |
628 |
MNC_CW_GET_TILE_NUM |
iG = 0 |
|
./pkg/mnc/mnc_cwrapper.F |
638 |
MNC_CW_GET_TILE_NUM |
iG = bi+(myXGlobalLo-1)/sNx |
|
./pkg/mnc/mnc_cwrapper.F |
641 |
MNC_CW_GET_TILE_NUM |
uniq_tnum = (jG - 1)*(nPx*nSx) + iG |
|
./pkg/monitor/mon_vort3.F |
163 |
MON_VORT3 |
iG = bi+(myXGlobalLo-1)/sNx |
|
./pkg/monitor/mon_vort3.F |
166 |
MON_VORT3 |
iG = exch2_myFace(myTile) |
|
./pkg/monitor/mon_vort3.F |
178 |
MON_VORT3 |
southEastCorner = southEastCorner .AND. iG.EQ.2 |
|
./pkg/monitor/mon_vort3.F |
179 |
MON_VORT3 |
northWestCorner = northWestCorner .AND. iG.EQ.1 |
|
./pkg/monitor/mon_vort3.F |
55 |
MON_VORT3 |
INTEGER iG |
|
./pkg/obcs/obcs_readparms.F |
384 |
OBCS_READPARMS |
iG = exch2_txXStackLo(tN)+I-1 |
|
./pkg/obcs/obcs_readparms.F |
385 |
OBCS_READPARMS |
IF (jG.EQ.OB_Jnorth(iG)) OB_Jn(I,bi,bj)=J |
|
./pkg/obcs/obcs_readparms.F |
386 |
OBCS_READPARMS |
IF (jG.EQ.OB_Jsouth(iG)) OB_Js(I,bi,bj)=J |
|
./pkg/obcs/obcs_readparms.F |
396 |
OBCS_READPARMS |
iG = exch2_txYStackLo(tN)+I-1 |
|
./pkg/obcs/obcs_readparms.F |
397 |
OBCS_READPARMS |
IF (iG.EQ.OB_Ieast(jG)) OB_Ie(J,bi,bj)=I |
|
./pkg/obcs/obcs_readparms.F |
398 |
OBCS_READPARMS |
IF (iG.EQ.OB_Iwest(jG)) OB_Iw(J,bi,bj)=I |
|
./pkg/obcs/obcs_readparms.F |
413 |
OBCS_READPARMS |
iG = myXGlobalLo-1+(bi-1)*sNx+I |
|
./pkg/obcs/obcs_readparms.F |
414 |
OBCS_READPARMS |
iGm = 1+mod( iG-1+Nx , Nx ) |
|
./pkg/obcs/obcs_readparms.F |
416 |
OBCS_READPARMS |
IF (iG.EQ.OB_Ieast(jGm)) OB_Ie(J,bi,bj)=I |
|
./pkg/obcs/obcs_readparms.F |
417 |
OBCS_READPARMS |
IF (iG.EQ.OB_Iwest(jGm)) OB_Iw(J,bi,bj)=I |
|
./pkg/obcs/obcs_readparms.F |
424 |
OBCS_READPARMS |
iG = myXGlobalLo-1+(bi-1)*sNx+I |
|
./pkg/obcs/obcs_readparms.F |
425 |
OBCS_READPARMS |
iGm = 1+mod( iG-1+Nx , Nx ) |
|
./pkg/obcs/obcs_readparms.F |
51 |
OBCS_READPARMS |
INTEGER bi, bj, iG, jG, iGm, jGm |
|
./pkg/profiles/cost_profiles.F |
44 |
COST_PROFILES |
integer bi,bj,iG,jG,err,fid |
|
./pkg/profiles/profiles_init_fixed.F |
32 |
PROFILES_INIT_FIXED |
integer k,l,m,q,bi,bj,iG,jG, myThid,num_file,length_for_tile |
|
./pkg/profiles/profiles_init_fixed.F |
489 |
PROFILES_INIT_FIXED |
iG=bi+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
|
./pkg/profiles/profiles_init_fixed.F |
495 |
PROFILES_INIT_FIXED |
& profilesfile(1:IL),'.',iG,'.',jG,'.equi.nc' |
|
./pkg/profiles/profiles_init_fixed.F |
497 |
PROFILES_INIT_FIXED |
& profilesfile(1:IL),'.',iG,'.',jG,'.equi.nc' |
|
./pkg/profiles/profiles_init_fixed.F |
517 |
PROFILES_INIT_FIXED |
& profilesfile(1:IL),'.',iG,'.',jG,'.equi.data' |
|
./pkg/profiles/profiles_init_fixed.F |
519 |
PROFILES_INIT_FIXED |
& profilesfile(1:IL),'.',iG,'.',jG,'.equi.data' |
|
./pkg/profiles/profiles_init_fixed.F |
584 |
PROFILES_INIT_FIXED |
iG=bi+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
|
./pkg/profiles/profiles_init_fixed.F |
589 |
PROFILES_INIT_FIXED |
& 'profilesXCincl1PointOverlap.',iG,'.',jG,'.',sNx,'.',sNy,'.data' |
|
./pkg/profiles/profiles_init_fixed.F |
609 |
PROFILES_INIT_FIXED |
& 'profilesYCincl1PointOverlap.',iG,'.',jG,'.',sNx,'.',sNy,'.data' |
|
./pkg/profiles/profiles_interp.F |
58 |
PROFILES_INTERP |
integer i,j,k,kk,kcur,iG,jG,bi,bj |
|
./pkg/profiles/profiles_interp_gg.F |
63 |
PROFILES_INTERP_GG |
integer q,i,j,k,kk,kcur,iG,jG,bi,bj |
|
./pkg/profiles/profiles_interp_mean.F |
58 |
PROFILES_INTERP_MEAN |
integer i,j,k,kk,kcur,iG,jG,bi,bj |
|
./pkg/profiles/profiles_interp_mean_gg.F |
63 |
PROFILES_INTERP_MEAN_GG |
integer q,i,j,k,kk,kcur,iG,jG,bi,bj |
|
./pkg/regrid/regrid_init_varia.F |
101 |
REGRID_INIT_VARIA |
iG = bi + (myXGlobalLo-1)/sNx |
|
./pkg/regrid/regrid_init_varia.F |
103 |
REGRID_INIT_VARIA |
uniq_tnum = (jG - 1)*(nPx*nSx) + iG |
|
./model/src/ini_cartesian_grid.F |
101 |
INI_CARTESIAN_GRID |
DO i=1, iG-1 |
|
./model/src/ini_cartesian_grid.F |
106 |
INI_CARTESIAN_GRID |
xG0 = xG0 - delX( 1+MOD(Olx*Nx-1+iG-i,Nx) ) |
|
./model/src/ini_cartesian_grid.F |
66 |
INI_CARTESIAN_GRID |
INTEGER iG, jG, bi, bj, i, j |
|
./model/src/ini_cartesian_grid.F |
88 |
INI_CARTESIAN_GRID |
iG = myXGlobalLo + (bi-1)*sNx |
|
./model/src/ini_cori.F |
154 |
INI_CORI |
iG = bi+(myXGlobalLo-1)/sNx |
|
./model/src/ini_cori.F |
155 |
INI_CORI |
myTile = iG |
|
./model/src/ini_cori.F |
158 |
INI_CORI |
iG = exch2_myface(myTile) |
|
./model/src/ini_cori.F |
160 |
INI_CORI |
WRITE(fName,'(2A,I3.3,A)') 'fCoriG','.face',iG,'.bin' |
|
./model/src/ini_cori.F |
49 |
INI_CORI |
INTEGER myTile, iG, iLen |
|
./model/src/ini_curvilinear_grid.F |
286 |
INI_CURVILINEAR_GRID |
iG = exch2_myface(jG) |
|
./model/src/ini_curvilinear_grid.F |
290 |
INI_CURVILINEAR_GRID |
iG = bi+(myXGlobalLo-1)/sNx |
|
./model/src/ini_curvilinear_grid.F |
292 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(2(A,I3))') 'tile:',iG,' ,',jG |
|
./model/src/ini_curvilinear_grid.F |
293 |
INI_CURVILINEAR_GRID |
iG = iG + (jG-1)*(nSx*nPx) |
|
./model/src/ini_curvilinear_grid.F |
298 |
INI_CURVILINEAR_GRID |
WRITE(fName,'("tile",I3.3,".mitgrid")') iG |
|
./model/src/ini_curvilinear_grid.F |
301 |
INI_CURVILINEAR_GRID |
& '.face',iG,'.bin' |
|
./model/src/ini_curvilinear_grid.F |
56 |
INI_CURVILINEAR_GRID |
INTEGER iG, jG, iL, iLen |
|
./model/src/ini_cylinder_grid.F |
109 |
INI_CYLINDER_GRID |
DO i=1, iG-1 |
|
./model/src/ini_cylinder_grid.F |
114 |
INI_CYLINDER_GRID |
xG0 = xG0 - delX( 1+mod(Olx*Nx-1+iG-i,Nx) ) |
|
./model/src/ini_cylinder_grid.F |
53 |
INI_CYLINDER_GRID |
INTEGER iG, jG |
|
./model/src/ini_cylinder_grid.F |
96 |
INI_CYLINDER_GRID |
iG = myXGlobalLo + (bi-1)*sNx |
|
./model/src/ini_depths.F |
232 |
INI_DEPTHS |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./model/src/ini_depths.F |
254 |
INI_DEPTHS |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./model/src/ini_depths.F |
57 |
INI_DEPTHS |
INTEGER iG, jG |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
232 |
INI_DEPTHS |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
254 |
INI_DEPTHS |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
57 |
INI_DEPTHS |
INTEGER iG, jG |
|
./verification/flt_example/extra/cvprofiles.F |
254 |
NO PROCEDURE |
do iG=1,iGmax |
|
./verification/flt_example/extra/cvprofiles.F |
258 |
NO PROCEDURE |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./verification/flt_example/extra/cvprofiles.F |
542 |
NO PROCEDURE |
do iG=1,iGmax |
|
./verification/flt_example/extra/cvprofiles.F |
546 |
NO PROCEDURE |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./verification/flt_example/extra/cvprofiles.F |
572 |
NO PROCEDURE |
do iG=1,iGmax |
|
./verification/flt_example/extra/cvprofiles.F |
576 |
NO PROCEDURE |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./verification/flt_example/extra/cvprofiles.F |
602 |
NO PROCEDURE |
do iG=1,iGmax |
|
./verification/flt_example/extra/cvprofiles.F |
606 |
NO PROCEDURE |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./model/src/ini_model_io.F |
52 |
INI_MODEL_IO |
INTEGER iG,jG,np |
|
./model/src/ini_spherical_polar_grid.F |
111 |
INI_SPHERICAL_POLAR_GRID |
DO i=1, iG-1 |
|
./model/src/ini_spherical_polar_grid.F |
116 |
INI_SPHERICAL_POLAR_GRID |
xG0 = xG0 - delX( 1+MOD(Olx*Nx-1+iG-i,Nx) ) |
|
./model/src/ini_spherical_polar_grid.F |
55 |
INI_SPHERICAL_POLAR_GRID |
INTEGER iG, jG |
|
./model/src/ini_spherical_polar_grid.F |
98 |
INI_SPHERICAL_POLAR_GRID |
iG = myXGlobalLo + (bi-1)*sNx |
|
./verification/rotating_tank/code/external_forcing.F |
252 |
EXTERNAL_FORCING_T |
INTEGER iG, jG |
|
./verification/rotating_tank/code/external_forcing.F |
368 |
EXTERNAL_FORCING_T |
iG = myXGlobalLo-1+(bi-1)*sNx+I |
|
./eesupp/src/gather_vector.F |
20 |
GATHER_VECTOR |
INTEGER iG,jG,lG, l |
|
./eesupp/src/gather_vector.F |
34 |
GATHER_VECTOR |
iG=1+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
|
./eesupp/src/gather_vector.F |
36 |
GATHER_VECTOR |
lG= (jG-1)*nPx*length + (iG-1)*length + l |
|
./eesupp/src/gather_vector.F |
51 |
GATHER_VECTOR |
iG=mpi_myXGlobalLo(npe+1)/sNx+1 |
|
./eesupp/src/gather_vector.F |
54 |
GATHER_VECTOR |
lG= (jG-1)*nPx*length + (iG-1)*length + l |
|
./eesupp/src/gather_vector.F |
68 |
GATHER_VECTOR |
iG=mpi_myXGlobalLo(npe+1)/sNx+1 |
|
./eesupp/src/gather_vector.F |
78 |
GATHER_VECTOR |
lG= (jG-1)*nPx*length + (iG-1)*length + l |
|
./eesupp/src/gather_xz.F |
18 |
GATHER_XZ |
INTEGER iG, i, bi, bj |
|
./eesupp/src/gather_xz.F |
36 |
GATHER_XZ |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./eesupp/src/gather_xz.F |
37 |
GATHER_XZ |
global(iG) = local(i,bi,bj) |
|
./eesupp/src/gather_xz.F |
56 |
GATHER_XZ |
iG = mpi_myXGlobalLo(npe+1)-1+(bi-1)*sNx+i |
|
./eesupp/src/gather_xz.F |
57 |
GATHER_XZ |
global(iG) = local(i,bi,bj) |
|
./eesupp/src/gather_xz.F |
75 |
GATHER_XZ |
iG = mpi_myXGlobalLo(npe+1)-1+(bi-1)*sNx+i |
|
./eesupp/src/gather_xz.F |
76 |
GATHER_XZ |
global(iG) = temp(i,bi,bj) |
|
./eesupp/src/mds_check4file.F |
50 |
MDS_CHECK4FILE |
INTEGER iG, jG |
|
./eesupp/src/mds_check4file.F |
87 |
MDS_CHECK4FILE |
iG = 1+(myXGlobalLo-1)/sNx |
|
./eesupp/src/mds_check4file.F |
90 |
MDS_CHECK4FILE |
& filePfx(1:ip), '.', iG, '.', jG, fileSfx(1:is) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
54 |
CHEAPAML_INIT_VARIA |
iG=myXGlobalLo-1+(bi-1)*sNx+i |
|
./eesupp/src/scatter_vector.F |
19 |
SCATTER_VECTOR |
INTEGER iG,jG,lG, l |
|
./eesupp/src/scatter_vector.F |
34 |
SCATTER_VECTOR |
iG=1+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
|
./eesupp/src/scatter_vector.F |
36 |
SCATTER_VECTOR |
lG= (jG-1)*nPx*length + (iG-1)*length + l |
|
./eesupp/src/scatter_vector.F |
50 |
SCATTER_VECTOR |
iG=mpi_myXGlobalLo(npe+1)/sNx+1 |
|
./eesupp/src/scatter_vector.F |
53 |
SCATTER_VECTOR |
lG= (jG-1)*nPx*length + (iG-1)*length + l |
|
./eesupp/src/scatter_vector.F |
59 |
SCATTER_VECTOR |
iG = mpi_myXGlobalLo(npe+1)/sNx+1 |
|
./eesupp/src/scatter_vector.F |
62 |
SCATTER_VECTOR |
lG= (jG-1)*nPx*length + (iG-1)*length + l |
|
./eesupp/src/scatter_xz.F |
18 |
SCATTER_XZ |
INTEGER iG, i, bi, bj |
|
./eesupp/src/scatter_xz.F |
37 |
SCATTER_XZ |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./eesupp/src/scatter_xz.F |
38 |
SCATTER_XZ |
local(i,bi,bj) = global(iG) |
|
./eesupp/src/scatter_xz.F |
56 |
SCATTER_XZ |
iG = mpi_myXGlobalLo(npe+1)-1+(bi-1)*sNx+i |
|
./eesupp/src/scatter_xz.F |
57 |
SCATTER_XZ |
local(i,bi,bj) = global(iG) |
|
./eesupp/src/scatter_xz.F |
67 |
SCATTER_XZ |
iG = mpi_myXGlobalLo(npe+1)-1+(bi-1)*sNx+i |
|
./eesupp/src/scatter_xz.F |
68 |
SCATTER_XZ |
temp(i,bi,bj) = global(iG) |
|
./pkg/debug/write_fullarray_rl.F |
103 |
WRITE_FULLARRAY_RL |
iG=biArg+(myXGlobalLo-1)/sNx |
|
./pkg/debug/write_fullarray_rl.F |
107 |
WRITE_FULLARRAY_RL |
& fnam(s1Lo:s1Hi),'.',myIter,'.',iG,'.',jG,'.data' |
|
./pkg/debug/write_fullarray_rl.F |
51 |
WRITE_FULLARRAY_RL |
INTEGER i,j,k,bi,bj,iG,jG |
|
./pkg/debug/write_fullarray_rl.F |
74 |
WRITE_FULLARRAY_RL |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/debug/write_fullarray_rl.F |
78 |
WRITE_FULLARRAY_RL |
& fnam(s1Lo:s1Hi),'.',myIter,'.',iG,'.',jG,'.data' |