| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
117 |
FIZHI_WRITE_VEGTILES |
jG = 1 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
120 |
FIZHI_WRITE_VEGTILES |
jG = bj+(myYGlobalLo-1)/sNy |
|
./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 |
372 |
FIZHI_READ_VEGTILES |
jG = 1 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
375 |
FIZHI_READ_VEGTILES |
jG = bj+(myYGlobalLo-1)/sNy |
|
./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 |
97 |
FLT_RUNGA2 |
jG = myYGlobalLo + (bj-1)*sNy + jc-1 |
|
./pkg/flt/flt_runga4.F |
44 |
FLT_RUNGA4 |
INTEGER ic, jc, kc, iG, jG |
|
./pkg/flt/flt_runga4.F |
97 |
FLT_RUNGA4 |
jG = myYGlobalLo + (bj-1)*sNy + jc-1 |
|
./pkg/grdchk/grdchk_get_position.F |
48 |
GRDCHK_GET_POSITION |
integer iG,jG |
|
./pkg/mdsio/mdsio_gl.F |
1022 |
MDSREADFIELD_2D_GL |
jG=bj+(jp-1)*nsy |
|
./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 |
1027 |
MDSREADFIELD_2D_GL |
jG = 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 |
1417 |
MDSWRITEFIELD_2D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
1419 |
MDSWRITEFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
1438 |
MDSWRITEFIELD_2D_GL |
jG = 0 |
|
./pkg/mdsio/mdsio_gl.F |
1493 |
MDSWRITEFIELD_2D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
1495 |
MDSWRITEFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
223 |
MDSREADFIELD_3D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
225 |
MDSREADFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
261 |
MDSREADFIELD_3D_GL |
jG=bj+(jp-1)*nsy |
|
./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 |
266 |
MDSREADFIELD_3D_GL |
jG = 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 |
654 |
MDSWRITEFIELD_3D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
656 |
MDSWRITEFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
675 |
MDSWRITEFIELD_3D_GL |
jG = 0 |
|
./pkg/mdsio/mdsio_gl.F |
730 |
MDSWRITEFIELD_3D_GL |
jG=bj+(jp-1)*nsy ! 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 |
984 |
MDSREADFIELD_2D_GL |
jG=bj+(jp-1)*nsy ! 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 |
137 |
MDSREADFIELD_XZ_GL |
jG=bj+(jp-1)*nsy ! 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 |
170 |
MDSREADFIELD_XZ_GL |
jG = 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 |
364 |
MDSREADFIELD_YZ_GL |
jG=bj+(jp-1)*nsy ! 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 |
397 |
MDSREADFIELD_YZ_GL |
jG = 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 |
587 |
MDSWRITEFIELD_XZ_GL |
jG=bj+(jp-1)*nsy ! 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 |
607 |
MDSWRITEFIELD_XZ_GL |
jG = 0 |
|
./pkg/mdsio/mdsio_gl_slice.F |
660 |
MDSWRITEFIELD_XZ_GL |
jG=bj+(jp-1)*nsy ! 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 |
815 |
MDSWRITEFIELD_YZ_GL |
jG=bj+(jp-1)*nsy ! 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 |
835 |
MDSWRITEFIELD_YZ_GL |
jG = 0 |
|
./pkg/mdsio/mdsio_gl_slice.F |
888 |
MDSWRITEFIELD_YZ_GL |
jG=bj+(jp-1)*nsy ! 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 |
439 |
MDS_READ_FIELD |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_read_field.F |
441 |
MDS_READ_FIELD |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_read_meta.F |
156 |
MDS_READ_META |
jG = 1+(myYGlobalLo-1)/sNy |
|
./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 |
170 |
MDS_READ_SEC_XZ |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_read_section.F |
172 |
MDS_READ_SEC_XZ |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_read_section.F |
216 |
MDS_READ_SEC_XZ |
jG = (myYGlobalLo-1)/sNy + (bj-1) |
|
./pkg/mdsio/mdsio_read_section.F |
222 |
MDS_READ_SEC_XZ |
jG = 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 |
448 |
MDS_READ_SEC_YZ |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_read_section.F |
450 |
MDS_READ_SEC_YZ |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_read_section.F |
494 |
MDS_READ_SEC_YZ |
jG = myYGlobalLo-1 + (bj-1)*sNy |
|
./pkg/mdsio/mdsio_read_section.F |
495 |
MDS_READ_SEC_YZ |
irec=1 + INT(jG/sNy) + nSy*nPy*(k-1) |
|
./pkg/mdsio/mdsio_read_section.F |
500 |
MDS_READ_SEC_YZ |
jG = 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 |
164 |
MDS_READVEC_LOC |
jG=bj+(myYGlobalLo-1)/sNy |
|
./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 |
155 |
MDSREADVECTOR |
jG=bj+(myYGlobalLo-1)/sNy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_readvector.F |
157 |
MDSREADVECTOR |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_readvector.F |
187 |
MDSREADVECTOR |
jG = myYGlobalLo-1+(bj-1)*sNy |
|
./pkg/mdsio/mdsio_readvector.F |
188 |
MDSREADVECTOR |
irec = 1 + int(iG/sNx) + (jG/sNy)*nSx*nPx + |
|
./pkg/mdsio/mdsio_readvector.F |
192 |
MDSREADVECTOR |
jG = 0 |
|
./pkg/mdsio/mdsio_readvector.F |
59 |
MDSREADVECTOR |
INTEGER iG,jG,irec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
158 |
MDS_WR_METAFILES |
jG=bj+(myYGlobalLo-1)/sNy |
|
./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 |
472 |
MDS_WRITE_FIELD |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_write_field.F |
474 |
MDS_WRITE_FIELD |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_write_field.F |
506 |
MDS_WRITE_FIELD |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_write_field.F |
508 |
MDS_WRITE_FIELD |
& pfName(1:pIL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_write_section.F |
156 |
MDS_WRITE_SEC_XZ |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_write_section.F |
158 |
MDS_WRITE_SEC_XZ |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_write_section.F |
187 |
MDS_WRITE_SEC_XZ |
jG = (myYGlobalLo-1)/sNy + (bj-1) |
|
./pkg/mdsio/mdsio_write_section.F |
193 |
MDS_WRITE_SEC_XZ |
jG = 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 |
409 |
MDS_WRITE_SEC_YZ |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_write_section.F |
411 |
MDS_WRITE_SEC_YZ |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_write_section.F |
440 |
MDS_WRITE_SEC_YZ |
jG = myYGlobalLo-1 + (bj-1)*sNy |
|
./pkg/mdsio/mdsio_write_section.F |
441 |
MDS_WRITE_SEC_YZ |
irec=1 + INT(jG/sNy) + nSy*nPy*(k-1) |
|
./pkg/mdsio/mdsio_write_section.F |
446 |
MDS_WRITE_SEC_YZ |
jG = 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 |
348 |
MDS_WRITELOCAL |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_writelocal.F |
350 |
MDS_WRITELOCAL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_writelocal.F |
382 |
MDS_WRITELOCAL |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_writelocal.F |
384 |
MDS_WRITELOCAL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
162 |
MDS_WRITEVEC_LOC |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_writevec_loc.F |
164 |
MDS_WRITEVEC_LOC |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
228 |
MDS_WRITEVEC_LOC |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_writevec_loc.F |
230 |
MDS_WRITEVEC_LOC |
& pfName(1:pIL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
235 |
MDS_WRITEVEC_LOC |
dimList(2,2)=jG |
|
./pkg/mdsio/mdsio_writevec_loc.F |
236 |
MDS_WRITEVEC_LOC |
dimList(3,2)=jG |
|
./pkg/mdsio/mdsio_writevec_loc.F |
83 |
MDS_WRITEVEC_LOC |
INTEGER iG,jG,iRec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_writevector.F |
261 |
MDSWRITEVECTOR |
jG=bj+(myYGlobalLo-1)/sNy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_writevector.F |
263 |
MDSWRITEVECTOR |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_writevector.F |
279 |
MDSWRITEVECTOR |
jG = myYGlobalLo-1+(bj-1)*sNy |
|
./pkg/mdsio/mdsio_writevector.F |
280 |
MDSWRITEVECTOR |
irec = 1 + int(iG/sNx) + (jG/sNy)*nSx*nPx + |
|
./pkg/mdsio/mdsio_writevector.F |
284 |
MDSWRITEVECTOR |
jG = 0 |
|
./pkg/mdsio/mdsio_writevector.F |
313 |
MDSWRITEVECTOR |
jG=bj+(myYGlobalLo-1)/sNy ! 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 |
629 |
MNC_CW_GET_TILE_NUM |
jG = 0 |
|
./pkg/mnc/mnc_cwrapper.F |
639 |
MNC_CW_GET_TILE_NUM |
jG = bj+(myYGlobalLo-1)/sNy |
|
./pkg/mnc/mnc_cwrapper.F |
641 |
MNC_CW_GET_TILE_NUM |
uniq_tnum = (jG - 1)*(nPx*nSx) + iG |
|
./pkg/obcs/obcs_readparms.F |
381 |
OBCS_READPARMS |
jG = exch2_tyXStackLo(tN)+J-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 |
393 |
OBCS_READPARMS |
jG = exch2_tyYStackLo(tN)+J-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 |
406 |
OBCS_READPARMS |
jG = myYGlobalLo-1+(bj-1)*sNy+J |
|
./pkg/obcs/obcs_readparms.F |
410 |
OBCS_READPARMS |
jGm = 1+mod( jG-1+Ny , Ny ) |
|
./pkg/obcs/obcs_readparms.F |
421 |
OBCS_READPARMS |
jG = myYGlobalLo-1+(bj-1)*sNy+J |
|
./pkg/obcs/obcs_readparms.F |
422 |
OBCS_READPARMS |
jGm = 1+mod( jG-1+Ny , Ny ) |
|
./pkg/obcs/obcs_readparms.F |
427 |
OBCS_READPARMS |
IF (jG.EQ.OB_Jnorth(iGm)) OB_Jn(I,bi,bj)=J |
|
./pkg/obcs/obcs_readparms.F |
428 |
OBCS_READPARMS |
IF (jG.EQ.OB_Jsouth(iGm)) OB_Js(I,bi,bj)=J |
|
./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 |
490 |
PROFILES_INIT_FIXED |
jG=bj+(myYGlobalLo-1)/sNy ! 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 |
585 |
PROFILES_INIT_FIXED |
jG=bj+(myYGlobalLo-1)/sNy ! 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 |
102 |
REGRID_INIT_VARIA |
jG = bj + (myYGlobalLo-1)/sNy |
|
./pkg/regrid/regrid_init_varia.F |
103 |
REGRID_INIT_VARIA |
uniq_tnum = (jG - 1)*(nPx*nSx) + iG |
|
./model/src/ini_cartesian_grid.F |
110 |
INI_CARTESIAN_GRID |
DO j=1, jG-1 |
|
./model/src/ini_cartesian_grid.F |
115 |
INI_CARTESIAN_GRID |
yG0 = yG0 - delY( 1+MOD(Oly*Ny-1+jG-j,Ny) ) |
|
./model/src/ini_cartesian_grid.F |
66 |
INI_CARTESIAN_GRID |
INTEGER iG, jG, bi, bj, i, j |
|
./model/src/ini_cartesian_grid.F |
87 |
INI_CARTESIAN_GRID |
jG = myYGlobalLo + (bj-1)*sNy |
|
./model/src/ini_curvilinear_grid.F |
285 |
INI_CURVILINEAR_GRID |
jG = W2_myTileList(bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
286 |
INI_CURVILINEAR_GRID |
iG = exch2_myface(jG) |
|
./model/src/ini_curvilinear_grid.F |
287 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,I4)') 'tile:',jG |
|
./model/src/ini_curvilinear_grid.F |
291 |
INI_CURVILINEAR_GRID |
jG = bj+(myYGlobalLo-1)/sNy |
|
./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 |
56 |
INI_CURVILINEAR_GRID |
INTEGER iG, jG, iL, iLen |
|
./model/src/ini_cylinder_grid.F |
118 |
INI_CYLINDER_GRID |
DO j=1, jG-1 |
|
./model/src/ini_cylinder_grid.F |
123 |
INI_CYLINDER_GRID |
yG0 = yG0 - delY( 1+mod(Oly*Ny-1+jG-j,Ny) ) |
|
./model/src/ini_cylinder_grid.F |
53 |
INI_CYLINDER_GRID |
INTEGER iG, jG |
|
./model/src/ini_cylinder_grid.F |
95 |
INI_CYLINDER_GRID |
jG = myYGlobalLo + (bj-1)*sNy |
|
./model/src/ini_depths.F |
233 |
INI_DEPTHS |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./model/src/ini_depths.F |
255 |
INI_DEPTHS |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./model/src/ini_depths.F |
57 |
INI_DEPTHS |
INTEGER iG, jG |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
233 |
INI_DEPTHS |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
255 |
INI_DEPTHS |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
57 |
INI_DEPTHS |
INTEGER iG, jG |
|
./verification/flt_example/extra/cvprofiles.F |
255 |
NO PROCEDURE |
do jG=1,jGmax |
|
./verification/flt_example/extra/cvprofiles.F |
258 |
NO PROCEDURE |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./verification/flt_example/extra/cvprofiles.F |
543 |
NO PROCEDURE |
do jG=1,jGmax |
|
./verification/flt_example/extra/cvprofiles.F |
546 |
NO PROCEDURE |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./verification/flt_example/extra/cvprofiles.F |
573 |
NO PROCEDURE |
do jG=1,jGmax |
|
./verification/flt_example/extra/cvprofiles.F |
576 |
NO PROCEDURE |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./verification/flt_example/extra/cvprofiles.F |
603 |
NO PROCEDURE |
do jG=1,jGmax |
|
./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 |
120 |
INI_SPHERICAL_POLAR_GRID |
DO j=1, jG-1 |
|
./model/src/ini_spherical_polar_grid.F |
125 |
INI_SPHERICAL_POLAR_GRID |
yG0 = yG0 - delY( 1+MOD(Oly*Ny-1+jG-j,Ny) ) |
|
./model/src/ini_spherical_polar_grid.F |
331 |
INI_SPHERICAL_POLAR_GRID |
jG = myYGlobalLo + (bj-1)*sNy + j-1 |
|
./model/src/ini_spherical_polar_grid.F |
332 |
INI_SPHERICAL_POLAR_GRID |
jG = MIN(MAX(1,jG),Ny) |
|
./model/src/ini_spherical_polar_grid.F |
336 |
INI_SPHERICAL_POLAR_GRID |
cosFacV(j,bi,bj)=COS((yC(1,j,bi,bj)-0.5*delY(jG))*deg2rad) |
|
./model/src/ini_spherical_polar_grid.F |
55 |
INI_SPHERICAL_POLAR_GRID |
INTEGER iG, jG |
|
./model/src/ini_spherical_polar_grid.F |
97 |
INI_SPHERICAL_POLAR_GRID |
jG = myYGlobalLo + (bj-1)*sNy |
|
./verification/rotating_tank/code/external_forcing.F |
252 |
EXTERNAL_FORCING_T |
INTEGER iG, jG |
|
./verification/rotating_tank/code/external_forcing.F |
367 |
EXTERNAL_FORCING_T |
jG = myYGlobalLo-1+(bj-1)*sNy+J |
|
./verification/rotating_tank/code/external_forcing.F |
371 |
EXTERNAL_FORCING_T |
IF(jG .LE. 10) THEN |
|
./eesupp/src/gather_vector.F |
20 |
GATHER_VECTOR |
INTEGER iG,jG,lG, l |
|
./eesupp/src/gather_vector.F |
35 |
GATHER_VECTOR |
jG=1+(myYGlobalLo-1)/sNy ! 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 |
52 |
GATHER_VECTOR |
jG=mpi_myYGlobalLo(npe+1)/sNy+1 |
|
./eesupp/src/gather_vector.F |
54 |
GATHER_VECTOR |
lG= (jG-1)*nPx*length + (iG-1)*length + l |
|
./eesupp/src/gather_vector.F |
69 |
GATHER_VECTOR |
jG=mpi_myYGlobalLo(npe+1)/sNy+1 |
|
./eesupp/src/gather_vector.F |
78 |
GATHER_VECTOR |
lG= (jG-1)*nPx*length + (iG-1)*length + l |
|
./eesupp/src/gather_yz.F |
18 |
GATHER_YZ |
INTEGER jG, j, bi, bj |
|
./eesupp/src/gather_yz.F |
36 |
GATHER_YZ |
jG = myYGlobalLo-1+(bi-1)*sNy+j |
|
./eesupp/src/gather_yz.F |
37 |
GATHER_YZ |
global(jG) = local(j,bi,bj) |
|
./eesupp/src/gather_yz.F |
56 |
GATHER_YZ |
jG = mpi_myYGlobalLo(npe+1)-1+(bi-1)*sNy+j |
|
./eesupp/src/gather_yz.F |
57 |
GATHER_YZ |
global(jG) = local(j,bi,bj) |
|
./eesupp/src/gather_yz.F |
75 |
GATHER_YZ |
jG = mpi_myYGlobalLo(npe+1)-1+(bi-1)*sNy+j |
|
./eesupp/src/gather_yz.F |
76 |
GATHER_YZ |
global(jG) = temp(j,bi,bj) |
|
./eesupp/src/mds_check4file.F |
50 |
MDS_CHECK4FILE |
INTEGER iG, jG |
|
./eesupp/src/mds_check4file.F |
88 |
MDS_CHECK4FILE |
jG = 1+(myYGlobalLo-1)/sNy |
|
./eesupp/src/mds_check4file.F |
90 |
MDS_CHECK4FILE |
& filePfx(1:ip), '.', iG, '.', jG, fileSfx(1:is) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
116 |
CHEAPAML_FIELDS_LOAD |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_fields_load.F |
119 |
CHEAPAML_FIELDS_LOAD |
if ( jG .le. 3 ) local = local + 200 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
131 |
CHEAPAML_FIELDS_LOAD |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_fields_load.F |
161 |
CHEAPAML_FIELDS_LOAD |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_fields_load.F |
174 |
CHEAPAML_FIELDS_LOAD |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_fields_load.F |
301 |
CHEAPAML_FIELDS_LOAD |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_fields_load.F |
303 |
CHEAPAML_FIELDS_LOAD |
IF ( jG .le. 3 ) local =local + 200 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
318 |
CHEAPAML_FIELDS_LOAD |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_fields_load.F |
356 |
CHEAPAML_FIELDS_LOAD |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_fields_load.F |
376 |
CHEAPAML_FIELDS_LOAD |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_init_varia.F |
53 |
CHEAPAML_INIT_VARIA |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/gad_diff_2d_y.F |
35 |
GAD_DIFF_2D_Y |
INTEGER bi,bj,k,jG |
|
./pkg/cheapaml/gad_diff_2d_y.F |
60 |
GAD_DIFF_2D_Y |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/gad_diff_2d_y.F |
61 |
GAD_DIFF_2D_Y |
if(jG.eq.ny.or.jG.eq.1)dfy(i,j)=0.d0 |
|
./eesupp/src/scatter_vector.F |
19 |
SCATTER_VECTOR |
INTEGER iG,jG,lG, l |
|
./eesupp/src/scatter_vector.F |
35 |
SCATTER_VECTOR |
jG=1+(myYGlobalLo-1)/sNy ! 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 |
51 |
SCATTER_VECTOR |
jG=mpi_myYGlobalLo(npe+1)/sNy+1 |
|
./eesupp/src/scatter_vector.F |
53 |
SCATTER_VECTOR |
lG= (jG-1)*nPx*length + (iG-1)*length + l |
|
./eesupp/src/scatter_vector.F |
60 |
SCATTER_VECTOR |
jG = mpi_myYGlobalLo(npe+1)/sNy+1 |
|
./eesupp/src/scatter_vector.F |
62 |
SCATTER_VECTOR |
lG= (jG-1)*nPx*length + (iG-1)*length + l |
|
./eesupp/src/scatter_yz.F |
18 |
SCATTER_YZ |
INTEGER jG, j, bi, bj |
|
./eesupp/src/scatter_yz.F |
37 |
SCATTER_YZ |
jG = myYGlobalLo-1+(bi-1)*sNy+j |
|
./eesupp/src/scatter_yz.F |
38 |
SCATTER_YZ |
local(j,bi,bj) = global(jG) |
|
./eesupp/src/scatter_yz.F |
56 |
SCATTER_YZ |
jG = mpi_myYGlobalLo(npe+1)-1+(bi-1)*sNy+j |
|
./eesupp/src/scatter_yz.F |
57 |
SCATTER_YZ |
local(j,bi,bj) = global(jG) |
|
./eesupp/src/scatter_yz.F |
67 |
SCATTER_YZ |
jG = mpi_myYGlobalLo(npe+1)-1+(bi-1)*sNy+j |
|
./eesupp/src/scatter_yz.F |
68 |
SCATTER_YZ |
temp(j,bi,bj) = global(jG) |
|
./pkg/debug/write_fullarray_rl.F |
104 |
WRITE_FULLARRAY_RL |
jG=bjArg+(myYGlobalLo-1)/sNy |
|
./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 |
75 |
WRITE_FULLARRAY_RL |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/debug/write_fullarray_rl.F |
78 |
WRITE_FULLARRAY_RL |
& fnam(s1Lo:s1Hi),'.',myIter,'.',iG,'.',jG,'.data' |