| 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_init_varia.F |
189 |
FLT_INIT_VARIA |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/flt/flt_init_varia.F |
191 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(A,I4,A,I4)') 'iG,jG=',iG,',',jG |
|
./pkg/flt/flt_init_varia.F |
202 |
FLT_INIT_VARIA |
npart(ip,bi,bj) = (iG-1)*6*6+ip |
|
./pkg/flt/flt_init_varia.F |
60 |
FLT_INIT_VARIA |
INTEGER iG,jG,i,j |
|
./pkg/flt/flt_runga2.F |
101 |
FLT_RUNGA2 |
iG = myXGlobalLo + (bi-1)*sNx + ic-1 |
|
./pkg/flt/flt_runga2.F |
54 |
FLT_RUNGA2 |
INTEGER ic, jc, kc, iG, jG |
|
./pkg/flt/flt_runga4.F |
101 |
FLT_RUNGA4 |
iG = myXGlobalLo + (bi-1)*sNx + ic-1 |
|
./pkg/flt/flt_runga4.F |
54 |
FLT_RUNGA4 |
INTEGER ic, jc, kc, iG, jG |
|
./pkg/grdchk/grdchk_get_position.F |
58 |
GRDCHK_GET_POSITION |
integer iG,jG |
|
./pkg/mdsio/mdsio_check4file.F |
100 |
MDS_CHECK4FILE |
& filePfx(1:ip), '.', iG, '.', jG, fileSfx(1:is) |
|
./pkg/mdsio/mdsio_check4file.F |
54 |
MDS_CHECK4FILE |
INTEGER iG, jG |
|
./pkg/mdsio/mdsio_check4file.F |
93 |
MDS_CHECK4FILE |
iG = 1+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_check4file.F |
97 |
MDS_CHECK4FILE |
& filePfx(1:ip), '.', iG, '.', jG, fileSfx(1:is) |
|
./pkg/mdsio/mdsio_gl.F |
1018 |
MDSREADFIELD_2D_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
1021 |
MDSREADFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
1056 |
MDSREADFIELD_2D_GL |
iG=bi+(ip-1)*nsx |
|
./pkg/mdsio/mdsio_gl.F |
1058 |
MDSREADFIELD_2D_GL |
irec=1 + INT(iG/sNx) + nSx*nPx*(jG+j-1) + nSx*nPx*Ny*(k-1) |
|
./pkg/mdsio/mdsio_gl.F |
1061 |
MDSREADFIELD_2D_GL |
iG = 0 |
|
./pkg/mdsio/mdsio_gl.F |
1280 |
MDSWRITEFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
1464 |
MDSWRITEFIELD_2D_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
1467 |
MDSWRITEFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
1485 |
MDSWRITEFIELD_2D_GL |
iG = 0 |
|
./pkg/mdsio/mdsio_gl.F |
1544 |
MDSWRITEFIELD_2D_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
1547 |
MDSWRITEFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
231 |
MDSREADFIELD_3D_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
234 |
MDSREADFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
269 |
MDSREADFIELD_3D_GL |
iG=bi+(ip-1)*nsx |
|
./pkg/mdsio/mdsio_gl.F |
271 |
MDSREADFIELD_3D_GL |
irec=1 + INT(iG/sNx) + nSx*nPx*(jG+j-1) + nSx*nPx*Ny*(k-1) |
|
./pkg/mdsio/mdsio_gl.F |
274 |
MDSREADFIELD_3D_GL |
iG = 0 |
|
./pkg/mdsio/mdsio_gl.F |
492 |
MDSWRITEFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
675 |
MDSWRITEFIELD_3D_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
678 |
MDSWRITEFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
696 |
MDSWRITEFIELD_3D_GL |
iG = 0 |
|
./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 |
755 |
MDSWRITEFIELD_3D_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
758 |
MDSWRITEFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
860 |
MDSREADFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
145 |
MDSREADFIELD_XZ_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
148 |
MDSREADFIELD_XZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
178 |
MDSREADFIELD_XZ_GL |
iG = 0 |
|
./pkg/mdsio/mdsio_gl_slice.F |
313 |
MDSREADFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
385 |
MDSREADFIELD_YZ_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
388 |
MDSREADFIELD_YZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
418 |
MDSREADFIELD_YZ_GL |
iG = 0 |
|
./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 |
621 |
MDSWRITEFIELD_XZ_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
624 |
MDSWRITEFIELD_XZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
641 |
MDSWRITEFIELD_XZ_GL |
iG = 0 |
|
./pkg/mdsio/mdsio_gl_slice.F |
698 |
MDSWRITEFIELD_XZ_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
701 |
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 |
808 |
MDSWRITEFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
862 |
MDSWRITEFIELD_YZ_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
865 |
MDSWRITEFIELD_YZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
882 |
MDSWRITEFIELD_YZ_GL |
iG = 0 |
|
./pkg/mdsio/mdsio_gl_slice.F |
939 |
MDSWRITEFIELD_YZ_GL |
iG=bi+(ip-1)*nsx ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl_slice.F |
942 |
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 |
453 |
MDS_READ_FIELD |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_read_field.F |
456 |
MDS_READ_FIELD |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_read_meta.F |
157 |
MDS_READ_META |
iG = 1+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_read_meta.F |
160 |
MDS_READ_META |
& pfName(1:pL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_read_meta.F |
89 |
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_read_tape.F |
206 |
MDS_READ_TAPE |
iG = 1 + (myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_read_tape.F |
209 |
MDS_READ_TAPE |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_read_tape.F |
63 |
MDS_READ_TAPE |
INTEGER iG, jG, jRec, 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_wr_metafiles.F |
160 |
MDS_WR_METAFILES |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
163 |
MDS_WR_METAFILES |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
166 |
MDS_WR_METAFILES |
& pfName(1:pIL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
97 |
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 |
497 |
MDS_WRITE_FIELD |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_write_field.F |
500 |
MDS_WRITE_FIELD |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_write_field.F |
531 |
MDS_WRITE_FIELD |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_write_field.F |
534 |
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_write_tape.F |
236 |
MDS_WRITE_TAPE |
iG = 1 + (myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_write_tape.F |
239 |
MDS_WRITE_TAPE |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_write_tape.F |
297 |
MDS_WRITE_TAPE |
iG = 1 + (myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_write_tape.F |
300 |
MDS_WRITE_TAPE |
& pfName(1:pIL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_write_tape.F |
70 |
MDS_WRITE_TAPE |
INTEGER iG, jG, jRec, dUnit, IL, pIL |
|
./pkg/mdsio/mdsio_writelocal.F |
114 |
MDS_WRITELOCAL |
INTEGER iG,jG |
|
./pkg/mdsio/mdsio_writelocal.F |
351 |
MDS_WRITELOCAL |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_writelocal.F |
354 |
MDS_WRITELOCAL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_writelocal.F |
385 |
MDS_WRITELOCAL |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/mdsio/mdsio_writelocal.F |
388 |
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/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 |
597 |
OBCS_READPARMS |
iG = exch2_txXStackLo(tN)+i-1 |
|
./pkg/obcs/obcs_readparms.F |
599 |
OBCS_READPARMS |
IF ( OB_Jnorth(iG).NE.OB_indexUnset ) THEN |
|
./pkg/obcs/obcs_readparms.F |
59 |
OBCS_READPARMS |
INTEGER bi, bj, iG, jG, iGm, jGm |
|
./pkg/obcs/obcs_readparms.F |
603 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jnorth(iG) ) OB_Jn(i,bi,bj) = j |
|
./pkg/obcs/obcs_readparms.F |
607 |
OBCS_READPARMS |
IF ( OB_Jsouth(iG).NE.OB_indexUnset ) THEN |
|
./pkg/obcs/obcs_readparms.F |
610 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jsouth(iG) ) OB_Js(i,bi,bj) = j |
|
./pkg/obcs/obcs_readparms.F |
623 |
OBCS_READPARMS |
iG = exch2_txYStackLo(tN)+i-1 |
|
./pkg/obcs/obcs_readparms.F |
624 |
OBCS_READPARMS |
IF ( iG.EQ.OB_Ieast(jG) ) OB_Ie(j,bi,bj) = i |
|
./pkg/obcs/obcs_readparms.F |
630 |
OBCS_READPARMS |
iG = exch2_txYStackLo(tN)+i-1 |
|
./pkg/obcs/obcs_readparms.F |
631 |
OBCS_READPARMS |
IF ( iG.EQ.OB_Iwest(jG) ) OB_Iw(j,bi,bj) = i |
|
./pkg/obcs/obcs_readparms.F |
653 |
OBCS_READPARMS |
iG = myXGlobalLo+(bi-1)*sNx+i-1 |
|
./pkg/obcs/obcs_readparms.F |
654 |
OBCS_READPARMS |
iGm = 1+MOD( iG-1+Nx , Nx ) |
|
./pkg/obcs/obcs_readparms.F |
655 |
OBCS_READPARMS |
IF ( iG.EQ.OB_Ieast(jGm) ) OB_Ie(j,bi,bj) = i |
|
./pkg/obcs/obcs_readparms.F |
661 |
OBCS_READPARMS |
iG = myXGlobalLo+(bi-1)*sNx+i-1 |
|
./pkg/obcs/obcs_readparms.F |
662 |
OBCS_READPARMS |
iGm = 1+MOD( iG-1+Nx , Nx ) |
|
./pkg/obcs/obcs_readparms.F |
663 |
OBCS_READPARMS |
IF ( iG.EQ.OB_Iwest(jGm) ) OB_Iw(j,bi,bj) = i |
|
./pkg/obcs/obcs_readparms.F |
669 |
OBCS_READPARMS |
iG = myXGlobalLo+(bi-1)*sNx+i-1 |
|
./pkg/obcs/obcs_readparms.F |
670 |
OBCS_READPARMS |
iGm = 1+MOD( iG-1+Nx , Nx ) |
|
./pkg/profiles/cost_profiles.F |
140 |
COST_PROFILES |
iG=bi+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
|
./pkg/profiles/cost_profiles.F |
148 |
COST_PROFILES |
& profilesDir(1:JL),profilesfile(1:IL),'.',iG,'.',jG,'.equi.nc' |
|
./pkg/profiles/cost_profiles.F |
419 |
COST_PROFILES |
iG=bi+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
|
./pkg/profiles/cost_profiles.F |
427 |
COST_PROFILES |
& profilesDir(1:JL),profilesfile(1:IL),'.',iG,'.',jG,'.equi.nc' |
|
./pkg/profiles/cost_profiles.F |
46 |
COST_PROFILES |
integer bi,bj,iG,jG,fid |
|
./pkg/profiles/profiles_init_fixed.F |
41 |
PROFILES_INIT_FIXED |
integer i,j,k,l,m,bi,bj,iG,jG,num_file,ProfNo_tile |
|
./pkg/profiles/profiles_init_fixed.F |
668 |
PROFILES_INIT_FIXED |
iG=bi+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
|
./pkg/profiles/profiles_init_fixed.F |
676 |
PROFILES_INIT_FIXED |
& profilesDir(1:JL),profilesfile(1:IL),'.',iG,'.',jG,'.equi.nc' |
|
./pkg/profiles/profiles_init_fixed.F |
679 |
PROFILES_INIT_FIXED |
& profilesfile(1:IL),'.',iG,'.',jG,'.equi.nc' |
|
./pkg/profiles/profiles_init_fixed.F |
705 |
PROFILES_INIT_FIXED |
& profilesDir(1:JL),profilesfile(1:IL),'.',iG,'.',jG,'.equi.data' |
|
./pkg/profiles/profiles_init_fixed.F |
708 |
PROFILES_INIT_FIXED |
& profilesfile(1:IL),'.',iG,'.',jG,'.equi.data' |
|
./pkg/profiles/profiles_init_fixed.F |
875 |
PROFILES_INIT_FIXED |
iG=bi+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
|
./pkg/profiles/profiles_init_fixed.F |
880 |
PROFILES_INIT_FIXED |
& 'profilesXCincl1PointOverlap.',iG,'.',jG,'.',sNx,'.',sNy,'.data' |
|
./pkg/profiles/profiles_init_fixed.F |
900 |
PROFILES_INIT_FIXED |
& 'profilesYCincl1PointOverlap.',iG,'.',jG,'.',sNx,'.',sNy,'.data' |
|
./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_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 |
265 |
INI_CURVILINEAR_GRID |
iG = exch2_myface(jG) |
|
./model/src/ini_curvilinear_grid.F |
269 |
INI_CURVILINEAR_GRID |
iG = bi+(myXGlobalLo-1)/sNx |
|
./model/src/ini_curvilinear_grid.F |
271 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(2(A,I3))') 'tile:',iG,' ,',jG |
|
./model/src/ini_curvilinear_grid.F |
272 |
INI_CURVILINEAR_GRID |
iG = iG + (jG-1)*(nSx*nPx) |
|
./model/src/ini_curvilinear_grid.F |
277 |
INI_CURVILINEAR_GRID |
WRITE(fName,'("tile",I3.3,".mitgrid")') iG |
|
./model/src/ini_curvilinear_grid.F |
280 |
INI_CURVILINEAR_GRID |
& '.face',iG,'.bin' |
|
./model/src/ini_curvilinear_grid.F |
58 |
INI_CURVILINEAR_GRID |
INTEGER iG, jG, iL, iLen |
|
./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' |
|
./verification/rotating_tank/code/apply_forcing.F |
421 |
APPLY_FORCING_T |
INTEGER iG, jG |
|
./verification/rotating_tank/code/apply_forcing.F |
699 |
APPLY_FORCING_T |
iG = myXGlobalLo-1+(bi-1)*sNx+I |
|
./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) |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
45 |
CHEAPAML_COPY_EDGES |
INTEGER i, j, iG, jG |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
54 |
CHEAPAML_COPY_EDGES |
iG = 1 + myXGlobalLo-1+(bi-1)*sNx |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
55 |
CHEAPAML_COPY_EDGES |
IF (iG.EQ.1) THEN |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
62 |
CHEAPAML_COPY_EDGES |
iG = sNx + myXGlobalLo-1+(bi-1)*sNx |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
63 |
CHEAPAML_COPY_EDGES |
IF (iG.GE.Nx) THEN |
|
./pkg/cheapaml/cheapaml_fields_load.F |
103 |
CHEAPAML_FIELDS_LOAD |
INTEGER i, j, iG, jG |
|
./pkg/cheapaml/cheapaml_fields_load.F |
652 |
CHEAPAML_FIELDS_LOAD |
iG=myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cheapaml/cheapaml_fields_load.F |
654 |
CHEAPAML_FIELDS_LOAD |
IF ( .NOT.cheapamlXperiodic .AND. iG.LT.1 ) THEN |
|
./pkg/cheapaml/cheapaml_fields_load.F |
679 |
CHEAPAML_FIELDS_LOAD |
ELSEIF ( .NOT.cheapamlXperiodic .AND. iG.EQ.1 ) THEN |
|
./pkg/cheapaml/cheapaml_fields_load.F |
683 |
CHEAPAML_FIELDS_LOAD |
ELSEIF ( .NOT.cheapamlXperiodic .AND. iG.GT.Nx ) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
101 |
CHEAPAML_INIT_FIXED |
IF (iG.LE.xmw) xmf = 1. _d 0 - (iG-1 )*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
102 |
CHEAPAML_INIT_FIXED |
IF (iG.GE.Nx-xmw+1) xmf = 1. _d 0 - (Nx-iG)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
105 |
CHEAPAML_INIT_FIXED |
IF (iG.LE.xmw) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
106 |
CHEAPAML_INIT_FIXED |
xmf = 1. _d 0 - (iG-1 )*recipMW *(Ny-jG)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
107 |
CHEAPAML_INIT_FIXED |
ELSEIF (iG.GE.Nx-xmw+1) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
108 |
CHEAPAML_INIT_FIXED |
xmf = 1. _d 0 - (Nx-iG)*recipMW *(Ny-jG)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
113 |
CHEAPAML_INIT_FIXED |
IF (iG.LE.xmw) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
114 |
CHEAPAML_INIT_FIXED |
xmf = 1. _d 0 - (iG-1 )*recipMW*(jG-1)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
115 |
CHEAPAML_INIT_FIXED |
ELSEIF (iG.GE.Nx-xmw+1) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
116 |
CHEAPAML_INIT_FIXED |
xmf = 1. _d 0 - (Nx-iG)*recipMW*(jG-1)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
193 |
CHEAPAML_INIT_FIXED |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
196 |
CHEAPAML_INIT_FIXED |
IF (iG.LE.xmw) xmf = oneRL - (iG-1 )*tmpVar |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
197 |
CHEAPAML_INIT_FIXED |
IF (iG.GE.Nx-xmw+1) xmf = oneRL - (Nx-iG)*tmpVar |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
44 |
CHEAPAML_INIT_FIXED |
INTEGER iG,jG |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
97 |
CHEAPAML_INIT_FIXED |
iG=myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cheapaml/cheapaml_init_varia.F |
105 |
CHEAPAML_INIT_VARIA |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cheapaml/cheapaml_init_varia.F |
108 |
CHEAPAML_INIT_VARIA |
& + 10. _d 0*EXP( -( (jG-30)**2+(iG-30)**2 )/100. _d 0 ) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
215 |
CHEAPAML_INIT_VARIA |
iG=myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cheapaml/cheapaml_init_varia.F |
216 |
CHEAPAML_INIT_VARIA |
IF ( .NOT.cheapamlXperiodic .AND. iG.LT.1 ) THEN |
|
./pkg/cheapaml/cheapaml_init_varia.F |
221 |
CHEAPAML_INIT_VARIA |
ELSEIF ( .NOT.cheapamlXperiodic .AND. iG.GT.Nx ) THEN |
|
./pkg/cheapaml/cheapaml_init_varia.F |
42 |
CHEAPAML_INIT_VARIA |
INTEGER iG,jG |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
145 |
GAD_2D_CALC_RHS |
iG=myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
146 |
GAD_2D_CALC_RHS |
IF (iG.EQ.2) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
152 |
GAD_2D_CALC_RHS |
ELSEIF (iG.EQ.Nx-1) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
209 |
GAD_2D_CALC_RHS |
iG=myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
210 |
GAD_2D_CALC_RHS |
IF (iG.EQ.2) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
216 |
GAD_2D_CALC_RHS |
ELSEIF (iG.EQ.Nx-1) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
98 |
GAD_2D_CALC_RHS |
INTEGER i,j,iG,jG, ii, jj |
|
./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 |
110 |
WRITE_FULLARRAY_RL |
iG=biArg+(myXGlobalLo-1)/sNx |
|
./pkg/debug/write_fullarray_rl.F |
115 |
WRITE_FULLARRAY_RL |
& fnam(s1Lo:s1Hi),'.',myIter,'.',iG,'.',jG,'.data' |
|
./pkg/debug/write_fullarray_rl.F |
118 |
WRITE_FULLARRAY_RL |
& fnam(s1Lo:s1Hi),'.',iG,'.',jG,'.data' |
|
./pkg/debug/write_fullarray_rl.F |
50 |
WRITE_FULLARRAY_RL |
INTEGER i,j,k,bi,bj,iG,jG |
|
./pkg/debug/write_fullarray_rl.F |
76 |
WRITE_FULLARRAY_RL |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/debug/write_fullarray_rl.F |
81 |
WRITE_FULLARRAY_RL |
& fnam(s1Lo:s1Hi),'.',myIter,'.',iG,'.',jG,'.data' |
|
./pkg/debug/write_fullarray_rl.F |
84 |
WRITE_FULLARRAY_RL |
& fnam(s1Lo:s1Hi),'.',iG,'.',jG,'.data' |
|
./pkg/debug/write_fullarray_rs.F |
110 |
WRITE_FULLARRAY_RS |
iG=biArg+(myXGlobalLo-1)/sNx |
|
./pkg/debug/write_fullarray_rs.F |
115 |
WRITE_FULLARRAY_RS |
& fnam(s1Lo:s1Hi),'.',myIter,'.',iG,'.',jG,'.data' |
|
./pkg/debug/write_fullarray_rs.F |
118 |
WRITE_FULLARRAY_RS |
& fnam(s1Lo:s1Hi),'.',iG,'.',jG,'.data' |
|
./pkg/debug/write_fullarray_rs.F |
50 |
WRITE_FULLARRAY_RS |
INTEGER i,j,k,bi,bj,iG,jG |
|
./pkg/debug/write_fullarray_rs.F |
76 |
WRITE_FULLARRAY_RS |
iG=bi+(myXGlobalLo-1)/sNx |
|
./pkg/debug/write_fullarray_rs.F |
81 |
WRITE_FULLARRAY_RS |
& fnam(s1Lo:s1Hi),'.',myIter,'.',iG,'.',jG,'.data' |
|
./pkg/debug/write_fullarray_rs.F |
84 |
WRITE_FULLARRAY_RS |
& fnam(s1Lo:s1Hi),'.',iG,'.',jG,'.data' |