| 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_init_varia.F |
190 |
FLT_INIT_VARIA |
jG=bj+(myYGlobalLo-1)/sNy |
|
./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 |
60 |
FLT_INIT_VARIA |
INTEGER iG,jG,i,j |
|
./pkg/flt/flt_runga2.F |
102 |
FLT_RUNGA2 |
jG = myYGlobalLo + (bj-1)*sNy + jc-1 |
|
./pkg/flt/flt_runga2.F |
54 |
FLT_RUNGA2 |
INTEGER ic, jc, kc, iG, jG |
|
./pkg/flt/flt_runga4.F |
102 |
FLT_RUNGA4 |
jG = myYGlobalLo + (bj-1)*sNy + jc-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 |
94 |
MDS_CHECK4FILE |
jG = 1+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_check4file.F |
97 |
MDS_CHECK4FILE |
& filePfx(1:ip), '.', iG, '.', jG, fileSfx(1:is) |
|
./pkg/mdsio/mdsio_gl.F |
1019 |
MDSREADFIELD_2D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
1021 |
MDSREADFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
1057 |
MDSREADFIELD_2D_GL |
jG=bj+(jp-1)*nsy |
|
./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 |
1062 |
MDSREADFIELD_2D_GL |
jG = 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 |
1465 |
MDSWRITEFIELD_2D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
1467 |
MDSWRITEFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
1486 |
MDSWRITEFIELD_2D_GL |
jG = 0 |
|
./pkg/mdsio/mdsio_gl.F |
1545 |
MDSWRITEFIELD_2D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
1547 |
MDSWRITEFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
232 |
MDSREADFIELD_3D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
234 |
MDSREADFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
270 |
MDSREADFIELD_3D_GL |
jG=bj+(jp-1)*nsy |
|
./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 |
275 |
MDSREADFIELD_3D_GL |
jG = 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 |
676 |
MDSWRITEFIELD_3D_GL |
jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_gl.F |
678 |
MDSWRITEFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
697 |
MDSWRITEFIELD_3D_GL |
jG = 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 |
756 |
MDSWRITEFIELD_3D_GL |
jG=bj+(jp-1)*nsy ! 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 |
146 |
MDSREADFIELD_XZ_GL |
jG=bj+(jp-1)*nsy ! 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 |
179 |
MDSREADFIELD_XZ_GL |
jG = 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 |
386 |
MDSREADFIELD_YZ_GL |
jG=bj+(jp-1)*nsy ! 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 |
419 |
MDSREADFIELD_YZ_GL |
jG = 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 |
622 |
MDSWRITEFIELD_XZ_GL |
jG=bj+(jp-1)*nsy ! 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 |
642 |
MDSWRITEFIELD_XZ_GL |
jG = 0 |
|
./pkg/mdsio/mdsio_gl_slice.F |
699 |
MDSWRITEFIELD_XZ_GL |
jG=bj+(jp-1)*nsy ! 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 |
863 |
MDSWRITEFIELD_YZ_GL |
jG=bj+(jp-1)*nsy ! 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 |
883 |
MDSWRITEFIELD_YZ_GL |
jG = 0 |
|
./pkg/mdsio/mdsio_gl_slice.F |
940 |
MDSWRITEFIELD_YZ_GL |
jG=bj+(jp-1)*nsy ! 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 |
454 |
MDS_READ_FIELD |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_read_field.F |
456 |
MDS_READ_FIELD |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_read_meta.F |
158 |
MDS_READ_META |
jG = 1+(myYGlobalLo-1)/sNy |
|
./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 |
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_read_tape.F |
207 |
MDS_READ_TAPE |
jG = 1 + (myYGlobalLo-1)/sNy |
|
./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 |
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_wr_metafiles.F |
161 |
MDS_WR_METAFILES |
jG=bj+(myYGlobalLo-1)/sNy |
|
./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 |
498 |
MDS_WRITE_FIELD |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_write_field.F |
500 |
MDS_WRITE_FIELD |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_write_field.F |
532 |
MDS_WRITE_FIELD |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_write_field.F |
534 |
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_write_tape.F |
237 |
MDS_WRITE_TAPE |
jG = 1 + (myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_write_tape.F |
239 |
MDS_WRITE_TAPE |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_write_tape.F |
298 |
MDS_WRITE_TAPE |
jG = 1 + (myYGlobalLo-1)/sNy |
|
./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 |
352 |
MDS_WRITELOCAL |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_writelocal.F |
354 |
MDS_WRITELOCAL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_writelocal.F |
386 |
MDS_WRITELOCAL |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_writelocal.F |
388 |
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/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 |
59 |
OBCS_READPARMS |
INTEGER bi, bj, iG, jG, iGm, jGm |
|
./pkg/obcs/obcs_readparms.F |
602 |
OBCS_READPARMS |
jG = exch2_tyXStackLo(tN)+j-1 |
|
./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 |
609 |
OBCS_READPARMS |
jG = exch2_tyXStackLo(tN)+j-1 |
|
./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 |
618 |
OBCS_READPARMS |
jG = exch2_tyYStackLo(tN)+j-1 |
|
./pkg/obcs/obcs_readparms.F |
620 |
OBCS_READPARMS |
IF ( OB_Ieast(jG).NE.OB_indexUnset ) THEN |
|
./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 |
628 |
OBCS_READPARMS |
IF ( OB_Iwest(jG).NE.OB_indexUnset ) THEN |
|
./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 |
643 |
OBCS_READPARMS |
jG = myYGlobalLo+(bj-1)*sNy+j-1 |
|
./pkg/obcs/obcs_readparms.F |
647 |
OBCS_READPARMS |
jGm = 1+MOD( jG-1+Ny , Ny ) |
|
./pkg/obcs/obcs_readparms.F |
675 |
OBCS_READPARMS |
jG = myYGlobalLo+(bj-1)*sNy+j-1 |
|
./pkg/obcs/obcs_readparms.F |
676 |
OBCS_READPARMS |
jGm = 1+MOD( jG-1+Ny , Ny ) |
|
./pkg/obcs/obcs_readparms.F |
677 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jnorth(iGm) ) OB_Jn(i,bi,bj) = j |
|
./pkg/obcs/obcs_readparms.F |
683 |
OBCS_READPARMS |
jG = myYGlobalLo+(bj-1)*sNy+j-1 |
|
./pkg/obcs/obcs_readparms.F |
684 |
OBCS_READPARMS |
jGm = 1+MOD( jG-1+Ny , Ny ) |
|
./pkg/obcs/obcs_readparms.F |
685 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jsouth(iGm) ) OB_Js(i,bi,bj) = j |
|
./pkg/profiles/cost_profiles.F |
141 |
COST_PROFILES |
jG=bj+(myYGlobalLo-1)/sNy ! 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 |
420 |
COST_PROFILES |
jG=bj+(myYGlobalLo-1)/sNy ! 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 |
669 |
PROFILES_INIT_FIXED |
jG=bj+(myYGlobalLo-1)/sNy ! 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 |
876 |
PROFILES_INIT_FIXED |
jG=bj+(myYGlobalLo-1)/sNy ! 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 |
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_curvilinear_grid.F |
264 |
INI_CURVILINEAR_GRID |
jG = W2_myTileList(bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
265 |
INI_CURVILINEAR_GRID |
iG = exch2_myface(jG) |
|
./model/src/ini_curvilinear_grid.F |
266 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,I4)') 'tile:',jG |
|
./model/src/ini_curvilinear_grid.F |
270 |
INI_CURVILINEAR_GRID |
jG = bj+(myYGlobalLo-1)/sNy |
|
./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 |
58 |
INI_CURVILINEAR_GRID |
INTEGER iG, jG, iL, iLen |
|
./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' |
|
./verification/rotating_tank/code/apply_forcing.F |
421 |
APPLY_FORCING_T |
INTEGER iG, jG |
|
./verification/rotating_tank/code/apply_forcing.F |
698 |
APPLY_FORCING_T |
jG = myYGlobalLo-1+(bj-1)*sNy+J |
|
./verification/rotating_tank/code/apply_forcing.F |
702 |
APPLY_FORCING_T |
IF(jG .LE. 10) THEN |
|
./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) |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
45 |
CHEAPAML_COPY_EDGES |
INTEGER i, j, iG, jG |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
73 |
CHEAPAML_COPY_EDGES |
jG = 1 + myYGlobalLo-1+(bj-1)*sNy |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
74 |
CHEAPAML_COPY_EDGES |
IF (jG.EQ.1) THEN |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
81 |
CHEAPAML_COPY_EDGES |
jG = sNy + myYGlobalLo-1+(bj-1)*sNy |
|
./pkg/cheapaml/cheapaml_copy_edges.F |
82 |
CHEAPAML_COPY_EDGES |
IF (jG.GE.Ny) THEN |
|
./pkg/cheapaml/cheapaml_fields_load.F |
103 |
CHEAPAML_FIELDS_LOAD |
INTEGER i, j, iG, jG |
|
./pkg/cheapaml/cheapaml_fields_load.F |
455 |
CHEAPAML_FIELDS_LOAD |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_fields_load.F |
456 |
CHEAPAML_FIELDS_LOAD |
local = 225. _d 0 - (jG-1)*recipNym1*37.5 _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
508 |
CHEAPAML_FIELDS_LOAD |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_fields_load.F |
512 |
CHEAPAML_FIELDS_LOAD |
local = -5. _d 0*COS( 2. _d 0*PI*(jG-1)*recipNym1 ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
650 |
CHEAPAML_FIELDS_LOAD |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_fields_load.F |
708 |
CHEAPAML_FIELDS_LOAD |
ELSEIF ( .NOT.cheapamlYperiodic .AND. jG.LT.1 ) THEN |
|
./pkg/cheapaml/cheapaml_fields_load.F |
733 |
CHEAPAML_FIELDS_LOAD |
ELSEIF ( .NOT.cheapamlYperiodic .AND. jG.EQ.1 ) THEN |
|
./pkg/cheapaml/cheapaml_fields_load.F |
737 |
CHEAPAML_FIELDS_LOAD |
ELSEIF ( .NOT.cheapamlYperiodic .AND. jG.GT.Ny ) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
100 |
CHEAPAML_INIT_FIXED |
IF (jG.LT.Ny-xmw+1) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
104 |
CHEAPAML_INIT_FIXED |
xmf = 1. _d 0 - (Ny-jG)*recipMW |
|
./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 |
108 |
CHEAPAML_INIT_FIXED |
xmf = 1. _d 0 - (Nx-iG)*recipMW *(Ny-jG)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
112 |
CHEAPAML_INIT_FIXED |
xmf = 1. _d 0 - (jG-1)*recipMW |
|
./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 |
116 |
CHEAPAML_INIT_FIXED |
xmf = 1. _d 0 - (Nx-iG)*recipMW*(jG-1)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
194 |
CHEAPAML_INIT_FIXED |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
200 |
CHEAPAML_INIT_FIXED |
IF (jG.LE.xmw) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
201 |
CHEAPAML_INIT_FIXED |
& xmf = MAX( xmf, oneRL - (jG-1 )*tmpVar ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
202 |
CHEAPAML_INIT_FIXED |
IF (jG.GE.Ny-xmw+1) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
203 |
CHEAPAML_INIT_FIXED |
& xmf = MAX( xmf, oneRL - (Ny-jG)*tmpVar ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
44 |
CHEAPAML_INIT_FIXED |
INTEGER iG,jG |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
98 |
CHEAPAML_INIT_FIXED |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
99 |
CHEAPAML_INIT_FIXED |
IF (jG.GT.xmw) THEN |
|
./pkg/cheapaml/cheapaml_init_varia.F |
104 |
CHEAPAML_INIT_VARIA |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_init_varia.F |
106 |
CHEAPAML_INIT_VARIA |
localt = 25. _d 0 - (jG-1)*recipNym1*10. _d 0 |
|
./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 |
213 |
CHEAPAML_INIT_VARIA |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/cheapaml_init_varia.F |
226 |
CHEAPAML_INIT_VARIA |
ELSEIF ( .NOT.cheapamlYperiodic .AND. jG.LT.1 ) THEN |
|
./pkg/cheapaml/cheapaml_init_varia.F |
231 |
CHEAPAML_INIT_VARIA |
ELSEIF ( .NOT.cheapamlYperiodic .AND. jG.GT.Ny ) THEN |
|
./pkg/cheapaml/cheapaml_init_varia.F |
42 |
CHEAPAML_INIT_VARIA |
INTEGER iG,jG |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
241 |
GAD_2D_CALC_RHS |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
243 |
GAD_2D_CALC_RHS |
IF (jG.EQ.2) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
249 |
GAD_2D_CALC_RHS |
ELSEIF (jG.EQ.Ny-1) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
98 |
GAD_2D_CALC_RHS |
INTEGER i,j,iG,jG, ii, jj |
|
./pkg/cheapaml/gad_diff_2d_y.F |
46 |
GAD_DIFF_2D_Y |
INTEGER i,j,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_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 |
111 |
WRITE_FULLARRAY_RL |
jG=bjArg+(myYGlobalLo-1)/sNy |
|
./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 |
77 |
WRITE_FULLARRAY_RL |
jG=bj+(myYGlobalLo-1)/sNy |
|
./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 |
111 |
WRITE_FULLARRAY_RS |
jG=bjArg+(myYGlobalLo-1)/sNy |
|
./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 |
77 |
WRITE_FULLARRAY_RS |
jG=bj+(myYGlobalLo-1)/sNy |
|
./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' |