File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_init_veg.F |
125 |
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_exchg.F |
325 |
FLT_EXCHG |
sSide = myYGlobalLo+bj .LE.2 |
./pkg/flt/flt_exchg.F |
326 |
FLT_EXCHG |
nSide = myYGlobalLo+bj*sNy.GT.Ny |
./pkg/flt/flt_init_varia.F |
190 |
FLT_INIT_VARIA |
jG=bj+(myYGlobalLo-1)/sNy |
./pkg/flt/flt_runga2.F |
102 |
FLT_RUNGA2 |
jG = myYGlobalLo + (bj-1)*sNy + jc-1 |
./pkg/flt/flt_runga4.F |
102 |
FLT_RUNGA4 |
jG = myYGlobalLo + (bj-1)*sNy + jc-1 |
./pkg/flt/flt_traj.F |
100 |
FLT_TRAJ |
j0y = DFLOAT( myYGlobalLo-1 + (bj-1)*sNy ) |
./pkg/flt/flt_up.F |
89 |
FLT_UP |
j0y = DFLOAT( myYGlobalLo-1 + (bj-1)*sNy ) |
./pkg/grdchk/grdchk_readparms.F |
165 |
GRDCHK_READPARMS |
jLocTile = jGloTile - (myYGlobalLo-1)/sNy |
./pkg/mdsio/mdsio_check4file.F |
94 |
MDS_CHECK4FILE |
jG = 1+(myYGlobalLo-1)/sNy |
./pkg/mdsio/mdsio_read_field.F |
403 |
MDS_READ_FIELD |
tBy = myYGlobalLo-1 + (bj-1)*sNy |
./pkg/mdsio/mdsio_read_field.F |
454 |
MDS_READ_FIELD |
jG=bj+(myYGlobalLo-1)/sNy |
./pkg/mdsio/mdsio_read_meta.F |
158 |
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_read_tape.F |
207 |
MDS_READ_TAPE |
jG = 1 + (myYGlobalLo-1)/sNy |
./pkg/mdsio/mdsio_readvec_loc.F |
164 |
MDS_READVEC_LOC |
jG=bj+(myYGlobalLo-1)/sNy |
./pkg/mdsio/mdsio_wr_metafiles.F |
161 |
MDS_WR_METAFILES |
jG=bj+(myYGlobalLo-1)/sNy |
./pkg/mdsio/mdsio_wr_metafiles.F |
168 |
MDS_WR_METAFILES |
tBy = myYGlobalLo-1 + (bj-1)*sNy |
./pkg/mdsio/mdsio_write_field.F |
449 |
MDS_WRITE_FIELD |
tBy = myYGlobalLo-1 + (bj-1)*sNy |
./pkg/mdsio/mdsio_write_field.F |
498 |
MDS_WRITE_FIELD |
jG=bj+(myYGlobalLo-1)/sNy |
./pkg/mdsio/mdsio_write_field.F |
532 |
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_write_tape.F |
237 |
MDS_WRITE_TAPE |
jG = 1 + (myYGlobalLo-1)/sNy |
./pkg/mdsio/mdsio_write_tape.F |
298 |
MDS_WRITE_TAPE |
jG = 1 + (myYGlobalLo-1)/sNy |
./pkg/mdsio/mdsio_writelocal.F |
304 |
MDS_WRITELOCAL |
tBy = myYGlobalLo-1 + (bj-1)*sNy |
./pkg/mdsio/mdsio_writelocal.F |
352 |
MDS_WRITELOCAL |
jG=bj+(myYGlobalLo-1)/sNy |
./pkg/mdsio/mdsio_writelocal.F |
386 |
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/mnc/mnc_cw_cvars.F |
77 |
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 |
643 |
OBCS_READPARMS |
jG = myYGlobalLo+(bj-1)*sNy+j-1 |
./pkg/obcs/obcs_readparms.F |
675 |
OBCS_READPARMS |
jG = myYGlobalLo+(bj-1)*sNy+j-1 |
./pkg/obcs/obcs_readparms.F |
683 |
OBCS_READPARMS |
jG = myYGlobalLo+(bj-1)*sNy+j-1 |
./pkg/ocn_compon_interf/cpl_register.F |
100 |
CPL_REGISTER |
jG0 = myYGlobalLo+(bj-1)*sNy |
./pkg/profiles/cost_profiles.F |
141 |
COST_PROFILES |
jG=bj+(myYGlobalLo-1)/sNy ! Kludge until unstructered tiles |
./pkg/profiles/cost_profiles.F |
420 |
COST_PROFILES |
jG=bj+(myYGlobalLo-1)/sNy ! Kludge until unstructered tiles |
./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 |
876 |
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 |
52 |
SEAICE_COST_EXPORT |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
./model/src/ini_curvilinear_grid.F |
270 |
INI_CURVILINEAR_GRID |
jG = bj+(myYGlobalLo-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 |
./pkg/streamice/streamice_adv_flux_fl_x.F |
67 |
STREAMICE_ADV_FLUX_FL_X |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
./pkg/streamice/streamice_adv_flux_fl_y.F |
67 |
STREAMICE_ADV_FLUX_FL_Y |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
./pkg/streamice/streamice_adv_front.F |
119 |
STREAMICE_ADV_FRONT |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
./pkg/streamice/streamice_advect_2dtracer.F |
121 |
STREAMICE_ADVECT_2DTRACER |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
./pkg/streamice/streamice_advect_2dtracer.F |
170 |
STREAMICE_ADVECT_2DTRACER |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
./pkg/streamice/streamice_advect_thickness.F |
229 |
STREAMICE_ADVECT_THICKNESS |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
./pkg/streamice/streamice_advect_thickness.F |
272 |
STREAMICE_ADVECT_THICKNESS |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
./pkg/streamice/streamice_advect_thickness.F |
340 |
STREAMICE_ADVECT_THICKNESS |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
./pkg/streamice/streamice_cg_functions.F |
81 |
STREAMICE_CG_ACTION |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
./pkg/streamice/streamice_driving_stress.F |
105 |
STREAMICE_DRIVING_STRESS |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
./pkg/streamice/streamice_driving_stress.F |
53 |
STREAMICE_DRIVING_STRESS |
IF (myYGlobalLo.eq.1) at_south_bdry = .true. |
./pkg/streamice/streamice_driving_stress.F |
56 |
STREAMICE_DRIVING_STRESS |
IF (myYGlobalLo-1+sNy*nSy.eq.Ny) |
./pkg/streamice/streamice_driving_stress_ppm.F |
45 |
STREAMICE_DRIVING_STRESS_PPM |
IF (myYGlobalLo.eq.1) at_south_bdry = .true. |
./pkg/streamice/streamice_driving_stress_ppm.F |
48 |
STREAMICE_DRIVING_STRESS_PPM |
IF (myYGlobalLo-1+sNy*nSy.eq.Ny) |
./pkg/streamice/streamice_driving_stress_ppm.F |
74 |
STREAMICE_DRIVING_STRESS_PPM |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
./model/src/ini_local_grid.F |
124 |
INI_LOCAL_GRID |
jG0 = myYGlobalLo - 1 + (bj-1)*sNy |
./pkg/streamice/streamice_init_fixed.F |
316 |
STREAMICE_INIT_FIXED |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
./pkg/streamice/streamice_init_varia.F |
202 |
STREAMICE_INIT_VARIA |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
./pkg/streamice/streamice_init_varia.F |
256 |
STREAMICE_INIT_VARIA |
Gj = (myYGlobalLo-1)+(bj-1)*sNy+j |
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
65 |
COST_TEST |
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 |
50 |
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 |
66 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
./verification/hs94.1x64x5/code_ad/cost_test.F |
63 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
./verification/hs94.1x64x5/code_oad/cost_test.F |
63 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
./verification/isomip/code_ad/cost_test.F |
66 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
./verification/isomip/code_oad/cost_test.F |
66 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
./verification/rotating_tank/code/apply_forcing.F |
698 |
APPLY_FORCING_T |
jG = myYGlobalLo-1+(bj-1)*sNy+J |
./eesupp/src/gather_yz.F |
36 |
GATHER_YZ |
jG = myYGlobalLo-1+(bi-1)*sNy+j |
./pkg/atm_compon_interf/cpl_register.F |
99 |
CPL_REGISTER |
jG0 = myYGlobalLo+(bj-1)*sNy |
./eesupp/src/global_sum_tile.F |
178 |
GLOBAL_SUM_TILE_RL |
bjG = (myYGlobalLo-1)/sNy+bj |
./eesupp/src/ini_procs.F |
174 |
INI_PROCS |
myYGlobalLo = mpiYGlobalLo |
./eesupp/src/ini_procs.F |
182 |
INI_PROCS |
itemp(2) = myYGlobalLo |
./eesupp/src/ini_procs.F |
77 |
INI_PROCS |
myYGlobalLo = 1 |
./eesupp/src/print.F |
1312 |
PRINT_MAPRL |
& '(',myYGlobalLo-1+(byMin-1)*sNy+jMin, |
./eesupp/src/print.F |
1313 |
PRINT_MAPRL |
& ':',myYGlobalLo-1+(byMax-1)*sNy+jMax, |
./eesupp/src/print.F |
1353 |
PRINT_MAPRL |
dwnBase = myYGlobalLo |
./eesupp/src/print.F |
1373 |
PRINT_MAPRL |
accBase = myYGlobalLo |
./eesupp/src/print.F |
1425 |
PRINT_MAPRL |
pltBase = myYGlobalLo |
./eesupp/src/print.F |
878 |
PRINT_MAPRS |
& '(',myYGlobalLo-1+(byMin-1)*sNy+jMin, |
./eesupp/src/print.F |
879 |
PRINT_MAPRS |
& ':',myYGlobalLo-1+(byMax-1)*sNy+jMax, |
./eesupp/src/print.F |
919 |
PRINT_MAPRS |
dwnBase = myYGlobalLo |
./eesupp/src/print.F |
939 |
PRINT_MAPRS |
accBase = myYGlobalLo |
./eesupp/src/print.F |
991 |
PRINT_MAPRS |
pltBase = myYGlobalLo |
./pkg/cheapaml/cheapaml_copy_edges.F |
73 |
CHEAPAML_COPY_EDGES |
jG = 1 + myYGlobalLo-1+(bj-1)*sNy |
./pkg/cheapaml/cheapaml_copy_edges.F |
81 |
CHEAPAML_COPY_EDGES |
jG = sNy + myYGlobalLo-1+(bj-1)*sNy |
./pkg/cheapaml/cheapaml_fields_load.F |
455 |
CHEAPAML_FIELDS_LOAD |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
./pkg/cheapaml/cheapaml_fields_load.F |
508 |
CHEAPAML_FIELDS_LOAD |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
./pkg/cheapaml/cheapaml_fields_load.F |
650 |
CHEAPAML_FIELDS_LOAD |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
./pkg/cheapaml/cheapaml_init_fixed.F |
194 |
CHEAPAML_INIT_FIXED |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
./pkg/cheapaml/cheapaml_init_fixed.F |
98 |
CHEAPAML_INIT_FIXED |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
./pkg/cheapaml/cheapaml_init_varia.F |
104 |
CHEAPAML_INIT_VARIA |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
./pkg/cheapaml/cheapaml_init_varia.F |
213 |
CHEAPAML_INIT_VARIA |
jG = myYGlobalLo-1+(bj-1)*sNy+j |
./pkg/cheapaml/gad_2d_calc_rhs.F |
241 |
GAD_2D_CALC_RHS |
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/scatter_yz.F |
37 |
SCATTER_YZ |
jG = myYGlobalLo-1+(bi-1)*sNy+j |
./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 |
63 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
./pkg/cost/cost_vector.F |
61 |
COST_VECTOR |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
./pkg/debug/write_fullarray_rl.F |
111 |
WRITE_FULLARRAY_RL |
jG=bjArg+(myYGlobalLo-1)/sNy |
./pkg/debug/write_fullarray_rl.F |
77 |
WRITE_FULLARRAY_RL |
jG=bj+(myYGlobalLo-1)/sNy |
./pkg/debug/write_fullarray_rs.F |
111 |
WRITE_FULLARRAY_RS |
jG=bjArg+(myYGlobalLo-1)/sNy |
./pkg/debug/write_fullarray_rs.F |
77 |
WRITE_FULLARRAY_RS |
jG=bj+(myYGlobalLo-1)/sNy |
./pkg/diagnostics/diagnostics_set_calc.F |
110 |
DIAGNOSTICS_SET_CALC |
bjG = bj-1+(myYGlobalLo-1)/sNy |
./pkg/diagnostics/diagnostics_set_calc.F |
167 |
DIAGNOSTICS_SET_CALC |
bjG = bj-1+(myYGlobalLo-1)/sNy |
./pkg/diagnostics/diagnostics_summary.F |
58 |
DIAGNOSTICS_SUMMARY |
outpSummary = ( myXGlobalLo.EQ.1 .AND. myYGlobalLo.EQ.1 ) |
./eesupp/inc/EEPARAMS.h |
237 |
NO PROCEDURE |
& myPx, myPy, myXGlobalLo, myYGlobalLo, nThreads, |
./eesupp/inc/EEPARAMS.h |
256 |
NO PROCEDURE |
INTEGER myYGlobalLo |
./pkg/ebm/ebm_zonalmean.F |
61 |
EBM_ZONALMEAN |
j = jg + 1 - myYGlobalLo - (bj-1)*sNy |
./pkg/ebm/ebm_zonalmean.F |
82 |
EBM_ZONALMEAN |
jg = myYGlobalLo + j-1 + (bj-1)*sNy |
./pkg/ecco/cost_averagesfields.F |
740 |
COST_AVERAGESFIELDS |
jg = myYGlobalLo-1+(bj-1)*sNy+j |