File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_init_veg.F |
115 |
FIZHI_INIT_VEG |
biglobal=bi+(myXGlobalLo-1)/im |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
90 |
FIZHI_INIT_VEGSURFTILES |
bislot = myXGlobalLo-1+(bi-1)*sNx |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
119 |
FIZHI_WRITE_VEGTILES |
iG = bi+(myXGlobalLo-1)/sNx |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
374 |
FIZHI_READ_VEGTILES |
iG = bi+(myXGlobalLo-1)/sNx |
./pkg/fizhi/update_ocean_exports.F |
85 |
UPDATE_OCEAN_EXPORTS |
bislot = myXGlobalLo-1+(bi-1)*sNx |
./pkg/flt/flt_runga2.F |
96 |
FLT_RUNGA2 |
iG = myXGlobalLo + (bi-1)*sNx + ic-1 |
./pkg/flt/flt_runga4.F |
96 |
FLT_RUNGA4 |
iG = myXGlobalLo + (bi-1)*sNx + ic-1 |
./pkg/flt/flt_traj.F |
110 |
FLT_TRAJ |
i0x = DFLOAT( myXGlobalLo-1 + (bi-1)*sNx ) |
./pkg/flt/flt_up.F |
97 |
FLT_UP |
i0x = DFLOAT( myXGlobalLo-1 + (bi-1)*sNx ) |
./pkg/mdsio/mdsio_read_field.F |
387 |
MDS_READ_FIELD |
tBx = myXGlobalLo-1 + (bi-1)*sNx |
./pkg/mdsio/mdsio_read_field.F |
438 |
MDS_READ_FIELD |
iG=bi+(myXGlobalLo-1)/sNx |
./pkg/mdsio/mdsio_read_meta.F |
155 |
MDS_READ_META |
iG = 1+(myXGlobalLo-1)/sNx |
./pkg/mdsio/mdsio_read_section.F |
169 |
MDS_READ_SEC_XZ |
iG=bi+(myXGlobalLo-1)/sNx |
./pkg/mdsio/mdsio_read_section.F |
215 |
MDS_READ_SEC_XZ |
iG = myXGlobalLo-1 + (bi-1)*sNx |
./pkg/mdsio/mdsio_read_section.F |
447 |
MDS_READ_SEC_YZ |
iG=bi+(myXGlobalLo-1)/sNx |
./pkg/mdsio/mdsio_read_section.F |
493 |
MDS_READ_SEC_YZ |
iG = (myXGlobalLo-1)/sNx + (bi-1) |
./pkg/mdsio/mdsio_readvec_loc.F |
163 |
MDS_READVEC_LOC |
iG=bi+(myXGlobalLo-1)/sNx |
./pkg/mdsio/mdsio_readvector.F |
154 |
MDSREADVECTOR |
iG=bi+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
./pkg/mdsio/mdsio_readvector.F |
186 |
MDSREADVECTOR |
iG = myXGlobalLo-1+(bi-1)*sNx |
./pkg/mdsio/mdsio_wr_metafiles.F |
157 |
MDS_WR_METAFILES |
iG=bi+(myXGlobalLo-1)/sNx |
./pkg/mdsio/mdsio_wr_metafiles.F |
164 |
MDS_WR_METAFILES |
tBx = myXGlobalLo-1 + (bi-1)*sNx |
./pkg/mdsio/mdsio_write_field.F |
422 |
MDS_WRITE_FIELD |
tBx = myXGlobalLo-1 + (bi-1)*sNx |
./pkg/mdsio/mdsio_write_field.F |
471 |
MDS_WRITE_FIELD |
iG=bi+(myXGlobalLo-1)/sNx |
./pkg/mdsio/mdsio_write_field.F |
505 |
MDS_WRITE_FIELD |
iG=bi+(myXGlobalLo-1)/sNx |
./pkg/mdsio/mdsio_write_section.F |
155 |
MDS_WRITE_SEC_XZ |
iG=bi+(myXGlobalLo-1)/sNx |
./pkg/mdsio/mdsio_write_section.F |
186 |
MDS_WRITE_SEC_XZ |
iG = myXGlobalLo-1 + (bi-1)*sNx |
./pkg/mdsio/mdsio_write_section.F |
408 |
MDS_WRITE_SEC_YZ |
iG=bi+(myXGlobalLo-1)/sNx |
./pkg/mdsio/mdsio_write_section.F |
439 |
MDS_WRITE_SEC_YZ |
iG = (myXGlobalLo-1)/sNx + (bi-1) |
./pkg/mdsio/mdsio_writelocal.F |
299 |
MDS_WRITELOCAL |
tBx = myXGlobalLo-1 + (bi-1)*sNx |
./pkg/mdsio/mdsio_writelocal.F |
347 |
MDS_WRITELOCAL |
iG=bi+(myXGlobalLo-1)/sNx |
./pkg/mdsio/mdsio_writelocal.F |
381 |
MDS_WRITELOCAL |
iG=bi+(myXGlobalLo-1)/sNx |
./pkg/mdsio/mdsio_writevec_loc.F |
161 |
MDS_WRITEVEC_LOC |
iG=bi+(myXGlobalLo-1)/sNx |
./pkg/mdsio/mdsio_writevec_loc.F |
227 |
MDS_WRITEVEC_LOC |
iG=bi+(myXGlobalLo-1)/sNx |
./pkg/mdsio/mdsio_writevector.F |
260 |
MDSWRITEVECTOR |
iG=bi+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
./pkg/mdsio/mdsio_writevector.F |
278 |
MDSWRITEVECTOR |
iG = myXGlobalLo-1+(bi-1)*sNx |
./pkg/mdsio/mdsio_writevector.F |
312 |
MDSWRITEVECTOR |
iG=bi+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
./pkg/mdsio/mdsio_writevector.F |
317 |
MDSWRITEVECTOR |
dimList(2,1) = ((myXGlobalLo-1)/sNx + (bi-1))*narr + 1 |
./pkg/mdsio/mdsio_writevector.F |
318 |
MDSWRITEVECTOR |
dimList(3,1) = ((myXGlobalLo-1)/sNx + bi )*narr |
./pkg/mnc/mnc_cw_cvars.F |
77 |
MNC_CW_WRITE_CVAR |
xtmin = sNx * ( bi+(myXGlobalLo-1)/sNx - 1 ) |
./pkg/mnc/mnc_cwrapper.F |
638 |
MNC_CW_GET_TILE_NUM |
iG = bi+(myXGlobalLo-1)/sNx |
./pkg/mnc/mnc_cwrapper.F |
731 |
MNC_CW_GET_XYFO |
ixoff = myXGlobalLo + bi * sNx |
./pkg/monitor/mon_vort3.F |
163 |
MON_VORT3 |
iG = bi+(myXGlobalLo-1)/sNx |
./pkg/obcs/obcs_readparms.F |
413 |
OBCS_READPARMS |
iG = myXGlobalLo-1+(bi-1)*sNx+I |
./pkg/obcs/obcs_readparms.F |
424 |
OBCS_READPARMS |
iG = myXGlobalLo-1+(bi-1)*sNx+I |
./pkg/ocn_compon_interf/cpl_register.F |
52 |
CPL_REGISTER |
iG0 = myXGlobalLo+(bi-1)*sNx |
./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 |
584 |
PROFILES_INIT_FIXED |
iG=bi+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
./pkg/regrid/regrid_init_varia.F |
101 |
REGRID_INIT_VARIA |
iG = bi + (myXGlobalLo-1)/sNx |
./pkg/regrid/regrid_init_varia.F |
107 |
REGRID_INIT_VARIA |
iminx = myXGlobalLo |
./pkg/regrid/regrid_init_varia.F |
108 |
REGRID_INIT_VARIA |
imaxx = myXGlobalLo + sNx - 1 |
./pkg/seaice/seaice_cost_export.F |
47 |
SEAICE_COST_EXPORT |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
./model/src/ini_cartesian_grid.F |
75 |
INI_CARTESIAN_GRID |
iGl(i,bi) = 1+MOD(myXGlobalLo-1+(bi-1)*sNx+i+Olx*Nx-1,Nx) |
./model/src/ini_cartesian_grid.F |
88 |
INI_CARTESIAN_GRID |
iG = myXGlobalLo + (bi-1)*sNx |
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
67 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
./model/src/ini_cori.F |
154 |
INI_CORI |
iG = bi+(myXGlobalLo-1)/sNx |
./model/src/ini_curvilinear_grid.F |
290 |
INI_CURVILINEAR_GRID |
iG = bi+(myXGlobalLo-1)/sNx |
./model/src/ini_cylinder_grid.F |
83 |
INI_CYLINDER_GRID |
iGl(i,bi) = 1+MOD(myXGlobalLo-1+(bi-1)*sNx+i+Olx*Nx-1,Nx) |
./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 |
./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/bottom_ctrl_5x5/code_ad/cost_test.F |
57 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+I |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
85 |
UPDATE_OCEAN_EXPORTS |
bislot = myXGlobalLo-1+(bi-1)*sNx |
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
46 |
UPDATE_OCEAN_EXPORTS |
biglobal=bi+(myXGlobalLo-1)/im2 |
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
71 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
./model/src/ini_spherical_polar_grid.F |
85 |
INI_SPHERICAL_POLAR_GRID |
iGl(i,bi) = 1+MOD(myXGlobalLo-1+(bi-1)*sNx+i+Olx*Nx-1,Nx) |
./model/src/ini_spherical_polar_grid.F |
98 |
INI_SPHERICAL_POLAR_GRID |
iG = myXGlobalLo + (bi-1)*sNx |
./verification/hs94.1x64x5/code_ad/cost_test.F |
71 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
./verification/rotating_tank/code/external_forcing.F |
368 |
EXTERNAL_FORCING_T |
iG = myXGlobalLo-1+(bi-1)*sNx+I |
./pkg/aim_compon_interf/cpl_register.F |
52 |
CPL_REGISTER |
iG0 = myXGlobalLo+(bi-1)*sNx |
./eesupp/src/gather_vector.F |
34 |
GATHER_VECTOR |
iG=1+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
./eesupp/src/gather_xz.F |
36 |
GATHER_XZ |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
./eesupp/src/ini_procs.F |
180 |
INI_PROCS |
myXGlobalLo = mpiXGlobalLo |
./eesupp/src/ini_procs.F |
188 |
INI_PROCS |
itemp(1) = myXGlobalLo |
./eesupp/src/ini_procs.F |
79 |
INI_PROCS |
myXGlobalLo = 1 |
./eesupp/src/mds_check4file.F |
87 |
MDS_CHECK4FILE |
iG = 1+(myXGlobalLo-1)/sNx |
./pkg/cheapaml/cheapaml_init_varia.F |
54 |
CHEAPAML_INIT_VARIA |
iG=myXGlobalLo-1+(bi-1)*sNx+i |
./eesupp/src/print.F |
1303 |
PRINT_MAPRL |
& '(',myXGlobalLo-1+(bxMin-1)*sNx+iMin, |
./eesupp/src/print.F |
1304 |
PRINT_MAPRL |
& ':',myXGlobalLo-1+(bxMax-1)*sNx+iMax, |
./eesupp/src/print.F |
1342 |
PRINT_MAPRL |
accBase = myXGlobalLo |
./eesupp/src/print.F |
1394 |
PRINT_MAPRL |
pltBase = myXGlobalLo |
./eesupp/src/print.F |
1400 |
PRINT_MAPRL |
accBase = myXGlobalLo |
./eesupp/src/print.F |
869 |
PRINT_MAPRS |
& '(',myXGlobalLo-1+(bxMin-1)*sNx+iMin, |
./eesupp/src/print.F |
870 |
PRINT_MAPRS |
& ':',myXGlobalLo-1+(bxMax-1)*sNx+iMax, |
./eesupp/src/print.F |
908 |
PRINT_MAPRS |
accBase = myXGlobalLo |
./eesupp/src/print.F |
960 |
PRINT_MAPRS |
pltBase = myXGlobalLo |
./eesupp/src/print.F |
966 |
PRINT_MAPRS |
accBase = myXGlobalLo |
./eesupp/src/scatter_vector.F |
34 |
SCATTER_VECTOR |
iG=1+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles |
./pkg/cost/cost_atlantic_heat.F |
141 |
COST_ATLANTIC_HEAT |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
./pkg/cost/cost_atlantic_heat.F |
74 |
COST_ATLANTIC_HEAT |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
./pkg/cost/cost_atlantic_heat.F |
98 |
COST_ATLANTIC_HEAT |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
./eesupp/src/scatter_xz.F |
37 |
SCATTER_XZ |
iG = myXGlobalLo-1+(bi-1)*sNx+i |
./pkg/cost/cost_test.F |
68 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
./pkg/cost/cost_vector.F |
65 |
COST_VECTOR |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
./eesupp/inc/EEPARAMS.h |
224 |
NO PROCEDURE |
& myPx, myPy, myXGlobalLo, myYGlobalLo, nThreads, |
./eesupp/inc/EEPARAMS.h |
242 |
NO PROCEDURE |
INTEGER myXGlobalLo |
./pkg/debug/write_fullarray_rl.F |
103 |
WRITE_FULLARRAY_RL |
iG=biArg+(myXGlobalLo-1)/sNx |
./pkg/debug/write_fullarray_rl.F |
74 |
WRITE_FULLARRAY_RL |
iG=bi+(myXGlobalLo-1)/sNx |
./pkg/diagnostics/diagnostics_summary.F |
58 |
DIAGNOSTICS_SUMMARY |
outpSummary = ( myXGlobalLo.EQ.1 .AND. myYGlobalLo.EQ.1 ) |
./pkg/ecco/cost_averagesfields.F |
529 |
COST_AVERAGESFIELDS |
ig = myXGlobalLo-1+(bi-1)*sNx+i |