| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
321 |
FIZHI_READ_VEGTILES |
integer ig,jg,tn,iunit |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
49 |
FIZHI_WRITE_VEGTILES |
integer ig,jg,tn,iunit |
|
./pkg/mnc/mnc_utils.F |
275 |
MNC_CHK_VTYP_R_NCVAR |
integer ii,k, ind_cw_g, ig,ids,ide,nint, indd, nk |
|
./pkg/mnc/mnc_utils.F |
282 |
MNC_CHK_VTYP_R_NCVAR |
ig = mnc_fv_ids(indf,ind_fv_ids+2) |
|
./pkg/mnc/mnc_utils.F |
283 |
MNC_CHK_VTYP_R_NCVAR |
ids = mnc_f_info(indf,ig+1) |
|
./pkg/mnc/mnc_utils.F |
284 |
MNC_CHK_VTYP_R_NCVAR |
ide = mnc_f_info(indf,ig+2) |
|
./pkg/mnc/mnc_var.F |
680 |
MNC_VAR_WRITE_ANY |
INTEGER i,j,k, n, indf,ind_fv_ids, fid,vid,did, ig, err, ds,de |
|
./pkg/mnc/mnc_var.F |
701 |
MNC_VAR_WRITE_ANY |
ig = mnc_fv_ids(indf,(ind_fv_ids+2)) |
|
./pkg/mnc/mnc_var.F |
702 |
MNC_VAR_WRITE_ANY |
ds = mnc_f_info(indf,ig+1) |
|
./pkg/mnc/mnc_var.F |
703 |
MNC_VAR_WRITE_ANY |
de = mnc_f_info(indf,ig+2) |
|
./pkg/seaice/seaice_cost_export.F |
33 |
SEAICE_COST_EXPORT |
integer ig, jg |
|
./pkg/seaice/seaice_cost_export.F |
48 |
SEAICE_COST_EXPORT |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/seaice/seaice_cost_export.F |
49 |
SEAICE_COST_EXPORT |
if (ig .eq. isec) then |
|
./pkg/streamice/streamice_cost_surf_accum.F |
50 |
STREAMICE_COST_SURF_ACCUM |
integer ig, jg |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
36 |
COST_TEST |
integer ig, jg |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
67 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
73 |
COST_TEST |
print *, 'ph-cost: objf_test ', ig, jg, |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
33 |
COST_TEST |
integer ig, jg |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
53 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+I |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
54 |
COST_TEST |
IF ( ig .eq. ixsec ) THEN |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
34 |
COST_TEST |
integer ig, jg |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
68 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
71 |
COST_TEST |
if ((ig .eq. iLocOut) .and. (jg .eq. jLocOut)) then |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
73 |
COST_TEST |
& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
76 |
COST_TEST |
print *, 'ph-cost ', ig, jg, kLocOut, |
|
./verification/halfpipe_streamice/code_ad/cost_test.F |
42 |
COST_TEST |
integer ig, jg |
|
./verification/halfpipe_streamice/code_oad/cost_test.F |
42 |
COST_TEST |
integer ig, jg |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
34 |
COST_TEST |
integer ig, jg |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
65 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
72 |
COST_TEST |
& ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
34 |
COST_TEST |
integer ig, jg |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
65 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
72 |
COST_TEST |
& ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./verification/isomip/code_ad/cost_test.F |
34 |
COST_TEST |
integer ig, jg |
|
./verification/isomip/code_ad/cost_test.F |
68 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./verification/isomip/code_ad/cost_test.F |
71 |
COST_TEST |
if ((ig .eq. iLocOut) .and. (jg .eq. jLocOut)) then |
|
./verification/isomip/code_ad/cost_test.F |
73 |
COST_TEST |
& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./verification/isomip/code_ad/cost_test.F |
76 |
COST_TEST |
print *, 'ph-cost ', ig, jg, kLocOut, |
|
./verification/isomip/code_oad/cost_test.F |
34 |
COST_TEST |
integer ig, jg |
|
./verification/isomip/code_oad/cost_test.F |
68 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./verification/isomip/code_oad/cost_test.F |
71 |
COST_TEST |
if ((ig .eq. iLocOut) .and. (jg .eq. jLocOut)) then |
|
./verification/isomip/code_oad/cost_test.F |
73 |
COST_TEST |
& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./verification/isomip/code_oad/cost_test.F |
76 |
COST_TEST |
print *, 'ph-cost ', ig, jg, kLocOut, |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
45 |
COST_TRACER |
integer ig, jg |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
45 |
COST_TRACER |
integer ig, jg |
|
./pkg/admtlm/admtlm_model2dsvd.F |
74 |
ADMTLM_MODEL2DSVD |
integer ig,jg |
|
./pkg/cost/cost_accumulate_mean.F |
34 |
COST_ACCUMULATE_MEAN |
integer ig, jg |
|
./pkg/cost/cost_atlantic_heat.F |
100 |
COST_ATLANTIC_HEAT |
if ((ig .ge. isecbeg) .and. (ig .le. isecend)) then |
|
./pkg/cost/cost_atlantic_heat.F |
141 |
COST_ATLANTIC_HEAT |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cost/cost_atlantic_heat.F |
142 |
COST_ATLANTIC_HEAT |
if (ig .eq. isec) then |
|
./pkg/cost/cost_atlantic_heat.F |
33 |
COST_ATLANTIC_HEAT |
integer ig, jg |
|
./pkg/cost/cost_atlantic_heat.F |
74 |
COST_ATLANTIC_HEAT |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cost/cost_atlantic_heat.F |
75 |
COST_ATLANTIC_HEAT |
if ((ig .ge. isecbeg) .and. (ig .le. isecend)) then |
|
./pkg/cost/cost_atlantic_heat.F |
98 |
COST_ATLANTIC_HEAT |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cost/cost_test.F |
34 |
COST_TEST |
integer ig, jg |
|
./pkg/cost/cost_test.F |
65 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cost/cost_test.F |
68 |
COST_TEST |
if ((ig .eq. iLocOut) .and. (jg .eq. jLocOut)) then |
|
./pkg/cost/cost_test.F |
70 |
COST_TEST |
& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./pkg/cost/cost_test.F |
73 |
COST_TEST |
print *, 'ph-cost ', ig, jg, kLocOut, |
|
./pkg/cost/cost_tracer.F |
44 |
COST_TRACER |
integer ig, jg |
|
./pkg/cost/cost_vector.F |
33 |
COST_VECTOR |
integer ig, jg |
|
./pkg/cost/cost_vector.F |
65 |
COST_VECTOR |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cost/cost_vector.F |
66 |
COST_VECTOR |
if ((ig .ge. isecbeg) .and. (ig .le. isecend)) then |
|
./pkg/ctrl/ctrl_pack.F |
88 |
CTRL_PACK |
integer ig,jg |
|
./pkg/ecco/cost_averagesfields.F |
742 |
COST_AVERAGESFIELDS |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/ecco/cost_averagesfields.F |
743 |
COST_AVERAGESFIELDS |
if ( jg.EQ.106 .AND. ig.GE.280 .AND. ig.LE.285 ) then |
|
./pkg/ecco/cost_averagesfields.F |
81 |
COST_AVERAGESFIELDS |
integer ig,jg |