| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_init_veg.F |
116 |
FIZHI_INIT_VEG |
bjglobal=bj+(myYGlobalLo-1)/jm |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
91 |
FIZHI_INIT_VEGSURFTILES |
bjslot = myYGlobalLo-1+(bj-1)*sNy |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
120 |
FIZHI_WRITE_VEGTILES |
jG = bj+(myYGlobalLo-1)/sNy |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
375 |
FIZHI_READ_VEGTILES |
jG = bj+(myYGlobalLo-1)/sNy |
|
./pkg/fizhi/update_ocean_exports.F |
86 |
UPDATE_OCEAN_EXPORTS |
bjslot = myYGlobalLo-1+(bj-1)*sNy |
|
./pkg/flt/flt_runga2.F |
97 |
FLT_RUNGA2 |
jG = myYGlobalLo + (bj-1)*sNy + jc-1 |
|
./pkg/flt/flt_runga4.F |
97 |
FLT_RUNGA4 |
jG = myYGlobalLo + (bj-1)*sNy + jc-1 |
|
./pkg/flt/flt_traj.F |
111 |
FLT_TRAJ |
j0y = DFLOAT( myYGlobalLo-1 + (bj-1)*sNy ) |
|
./pkg/flt/flt_up.F |
98 |
FLT_UP |
j0y = DFLOAT( myYGlobalLo-1 + (bj-1)*sNy ) |
|
./pkg/mdsio/mdsio_read_field.F |
388 |
MDS_READ_FIELD |
tBy = myYGlobalLo-1 + (bj-1)*sNy |
|
./pkg/mdsio/mdsio_read_field.F |
439 |
MDS_READ_FIELD |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_read_meta.F |
156 |
MDS_READ_META |
jG = 1+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_read_section.F |
170 |
MDS_READ_SEC_XZ |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_read_section.F |
216 |
MDS_READ_SEC_XZ |
jG = (myYGlobalLo-1)/sNy + (bj-1) |
|
./pkg/mdsio/mdsio_read_section.F |
448 |
MDS_READ_SEC_YZ |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_read_section.F |
494 |
MDS_READ_SEC_YZ |
jG = myYGlobalLo-1 + (bj-1)*sNy |
|
./pkg/mdsio/mdsio_readvec_loc.F |
164 |
MDS_READVEC_LOC |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_readvector.F |
155 |
MDSREADVECTOR |
jG=bj+(myYGlobalLo-1)/sNy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_readvector.F |
187 |
MDSREADVECTOR |
jG = myYGlobalLo-1+(bj-1)*sNy |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
158 |
MDS_WR_METAFILES |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
165 |
MDS_WR_METAFILES |
tBy = myYGlobalLo-1 + (bj-1)*sNy |
|
./pkg/mdsio/mdsio_write_field.F |
423 |
MDS_WRITE_FIELD |
tBy = myYGlobalLo-1 + (bj-1)*sNy |
|
./pkg/mdsio/mdsio_write_field.F |
472 |
MDS_WRITE_FIELD |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_write_field.F |
506 |
MDS_WRITE_FIELD |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_write_section.F |
156 |
MDS_WRITE_SEC_XZ |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_write_section.F |
187 |
MDS_WRITE_SEC_XZ |
jG = (myYGlobalLo-1)/sNy + (bj-1) |
|
./pkg/mdsio/mdsio_write_section.F |
409 |
MDS_WRITE_SEC_YZ |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_write_section.F |
440 |
MDS_WRITE_SEC_YZ |
jG = myYGlobalLo-1 + (bj-1)*sNy |
|
./pkg/mdsio/mdsio_writelocal.F |
300 |
MDS_WRITELOCAL |
tBy = myYGlobalLo-1 + (bj-1)*sNy |
|
./pkg/mdsio/mdsio_writelocal.F |
348 |
MDS_WRITELOCAL |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_writelocal.F |
382 |
MDS_WRITELOCAL |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_writevec_loc.F |
162 |
MDS_WRITEVEC_LOC |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_writevec_loc.F |
228 |
MDS_WRITEVEC_LOC |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/mdsio/mdsio_writevector.F |
261 |
MDSWRITEVECTOR |
jG=bj+(myYGlobalLo-1)/sNy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_writevector.F |
279 |
MDSWRITEVECTOR |
jG = myYGlobalLo-1+(bj-1)*sNy |
|
./pkg/mdsio/mdsio_writevector.F |
313 |
MDSWRITEVECTOR |
jG=bj+(myYGlobalLo-1)/sNy ! Kludge until unstructered tiles |
|
./pkg/mdsio/mdsio_writevector.F |
320 |
MDSWRITEVECTOR |
dimList(2,2) = (myYGlobalLo-1)/sNy + bj |
|
./pkg/mdsio/mdsio_writevector.F |
321 |
MDSWRITEVECTOR |
dimList(3,2) = (myYGlobalLo-1)/sNy + bj |
|
./pkg/mnc/mnc_cw_cvars.F |
78 |
MNC_CW_WRITE_CVAR |
ytmin = sNy * ( bj+(myYGlobalLo-1)/sNy - 1 ) |
|
./pkg/mnc/mnc_cwrapper.F |
639 |
MNC_CW_GET_TILE_NUM |
jG = bj+(myYGlobalLo-1)/sNy |
|
./pkg/mnc/mnc_cwrapper.F |
732 |
MNC_CW_GET_XYFO |
iyoff = myYGlobalLo + bj * sNy |
|
./pkg/obcs/obcs_readparms.F |
406 |
OBCS_READPARMS |
jG = myYGlobalLo-1+(bj-1)*sNy+J |
|
./pkg/obcs/obcs_readparms.F |
421 |
OBCS_READPARMS |
jG = myYGlobalLo-1+(bj-1)*sNy+J |
|
./pkg/ocn_compon_interf/cpl_register.F |
51 |
CPL_REGISTER |
jG0 = myYGlobalLo+(bj-1)*sNy |
|
./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 |
585 |
PROFILES_INIT_FIXED |
jG=bj+(myYGlobalLo-1)/sNy ! Kludge until unstructered tiles |
|
./pkg/regrid/regrid_init_varia.F |
102 |
REGRID_INIT_VARIA |
jG = bj + (myYGlobalLo-1)/sNy |
|
./pkg/regrid/regrid_init_varia.F |
109 |
REGRID_INIT_VARIA |
iminy = myYGlobalLo |
|
./pkg/regrid/regrid_init_varia.F |
110 |
REGRID_INIT_VARIA |
imaxy = myYGlobalLo + sNy - 1 |
|
./pkg/seaice/seaice_cost_export.F |
51 |
SEAICE_COST_EXPORT |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./model/src/ini_cartesian_grid.F |
76 |
INI_CARTESIAN_GRID |
jGl(j,bj) = 1+MOD(myYGlobalLo-1+(bj-1)*sNy+j+Oly*Ny-1,Ny) |
|
./model/src/ini_cartesian_grid.F |
87 |
INI_CARTESIAN_GRID |
jG = myYGlobalLo + (bj-1)*sNy |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
65 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./model/src/ini_curvilinear_grid.F |
291 |
INI_CURVILINEAR_GRID |
jG = bj+(myYGlobalLo-1)/sNy |
|
./model/src/ini_cylinder_grid.F |
84 |
INI_CYLINDER_GRID |
jGl(j,bj) = 1+MOD(myYGlobalLo-1+(bj-1)*sNy+j+Oly*Ny-1,Ny) |
|
./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 |
|
./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/bottom_ctrl_5x5/code_ad/cost_test.F |
54 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+J |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
86 |
UPDATE_OCEAN_EXPORTS |
bjslot = myYGlobalLo-1+(bj-1)*sNy |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
47 |
UPDATE_OCEAN_EXPORTS |
bjglobal=bj+(myYGlobalLo-1)/jm2 |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
69 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./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 |
86 |
INI_SPHERICAL_POLAR_GRID |
jGl(j,bj) = 1+MOD(myYGlobalLo-1+(bj-1)*sNy+j+Oly*Ny-1,Ny) |
|
./model/src/ini_spherical_polar_grid.F |
97 |
INI_SPHERICAL_POLAR_GRID |
jG = myYGlobalLo + (bj-1)*sNy |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
69 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./verification/rotating_tank/code/external_forcing.F |
367 |
EXTERNAL_FORCING_T |
jG = myYGlobalLo-1+(bj-1)*sNy+J |
|
./pkg/aim_compon_interf/cpl_register.F |
51 |
CPL_REGISTER |
jG0 = myYGlobalLo+(bj-1)*sNy |
|
./eesupp/src/gather_vector.F |
35 |
GATHER_VECTOR |
jG=1+(myYGlobalLo-1)/sNy ! Kludge until unstructered tiles |
|
./eesupp/src/gather_yz.F |
36 |
GATHER_YZ |
jG = myYGlobalLo-1+(bi-1)*sNy+j |
|
./eesupp/src/ini_procs.F |
181 |
INI_PROCS |
myYGlobalLo = mpiYGlobalLo |
|
./eesupp/src/ini_procs.F |
189 |
INI_PROCS |
itemp(2) = myYGlobalLo |
|
./eesupp/src/ini_procs.F |
80 |
INI_PROCS |
myYGlobalLo = 1 |
|
./eesupp/src/mds_check4file.F |
88 |
MDS_CHECK4FILE |
jG = 1+(myYGlobalLo-1)/sNy |
|
./pkg/cheapaml/cheapaml_fields_load.F |
116 |
CHEAPAML_FIELDS_LOAD |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./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 |
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 |
60 |
GAD_DIFF_2D_Y |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
|
./eesupp/src/print.F |
1310 |
PRINT_MAPRL |
& '(',myYGlobalLo-1+(byMin-1)*sNy+jMin, |
|
./eesupp/src/print.F |
1311 |
PRINT_MAPRL |
& ':',myYGlobalLo-1+(byMax-1)*sNy+jMax, |
|
./eesupp/src/print.F |
1351 |
PRINT_MAPRL |
dwnBase = myYGlobalLo |
|
./eesupp/src/print.F |
1371 |
PRINT_MAPRL |
accBase = myYGlobalLo |
|
./eesupp/src/print.F |
1423 |
PRINT_MAPRL |
pltBase = myYGlobalLo |
|
./eesupp/src/print.F |
876 |
PRINT_MAPRS |
& '(',myYGlobalLo-1+(byMin-1)*sNy+jMin, |
|
./eesupp/src/print.F |
877 |
PRINT_MAPRS |
& ':',myYGlobalLo-1+(byMax-1)*sNy+jMax, |
|
./eesupp/src/print.F |
917 |
PRINT_MAPRS |
dwnBase = myYGlobalLo |
|
./eesupp/src/print.F |
937 |
PRINT_MAPRS |
accBase = myYGlobalLo |
|
./eesupp/src/print.F |
989 |
PRINT_MAPRS |
pltBase = myYGlobalLo |
|
./eesupp/src/scatter_vector.F |
35 |
SCATTER_VECTOR |
jG=1+(myYGlobalLo-1)/sNy ! Kludge until unstructered tiles |
|
./pkg/cost/cost_atlantic_heat.F |
150 |
COST_ATLANTIC_HEAT |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cost/cost_atlantic_heat.F |
89 |
COST_ATLANTIC_HEAT |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cost/cost_test.F |
66 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cost/cost_vector.F |
61 |
COST_VECTOR |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./eesupp/src/scatter_yz.F |
37 |
SCATTER_YZ |
jG = myYGlobalLo-1+(bi-1)*sNy+j |
|
./eesupp/inc/EEPARAMS.h |
224 |
NO PROCEDURE |
& myPx, myPy, myXGlobalLo, myYGlobalLo, nThreads, |
|
./eesupp/inc/EEPARAMS.h |
243 |
NO PROCEDURE |
INTEGER myYGlobalLo |
|
./pkg/debug/write_fullarray_rl.F |
104 |
WRITE_FULLARRAY_RL |
jG=bjArg+(myYGlobalLo-1)/sNy |
|
./pkg/debug/write_fullarray_rl.F |
75 |
WRITE_FULLARRAY_RL |
jG=bj+(myYGlobalLo-1)/sNy |
|
./pkg/diagnostics/diagnostics_summary.F |
58 |
DIAGNOSTICS_SUMMARY |
outpSummary = ( myXGlobalLo.EQ.1 .AND. myYGlobalLo.EQ.1 ) |
|
./pkg/ecco/cost_averagesfields.F |
527 |
COST_AVERAGESFIELDS |
jg = myYGlobalLo-1+(bj-1)*sNy+j |