| 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/seaice/seaice_cost_export.F |
32 |
SEAICE_COST_EXPORT |
integer ig, jg |
|
./pkg/seaice/seaice_cost_export.F |
51 |
SEAICE_COST_EXPORT |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/seaice/seaice_cost_export.F |
52 |
SEAICE_COST_EXPORT |
if ((jg .ge. jsecbeg) .and. (jg .le. jsecend)) then |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
36 |
COST_TEST |
integer ig, jg |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
65 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
73 |
COST_TEST |
print *, 'ph-cost: objf_test ', ig, jg, |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
70 |
CTRL_PACK |
integer ig,jg |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
35 |
COST_TEST |
integer ig, jg |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
54 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+J |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
55 |
COST_TEST |
IF ( jg .ge. iysecmin .and. jg .le. iysecmax ) THEN |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
37 |
COST_TEST |
integer ig, jg |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
69 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
74 |
COST_TEST |
if ((ig .eq. iLocOut) .and. (jg .eq. jLocOut)) then |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
76 |
COST_TEST |
& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
79 |
COST_TEST |
print *, 'ph-cost ', ig, jg, kLocOut, |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
40 |
COST_TEST |
integer ig, jg |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
69 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
73 |
COST_TEST |
if ((jg .gt.30) .and. (jg .lt.40)) then |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
78 |
COST_TEST |
& ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
45 |
COST_TRACER |
integer ig, jg |
|
./pkg/admtlm/admtlm_model2dsvd.F |
72 |
ADMTLM_MODEL2DSVD |
integer ig,jg |
|
./pkg/cheapaml/cheapaml_fields_load.F |
117 |
CHEAPAML_FIELDS_LOAD |
local=225.d0+dsolms*xinxx-float((jg-1))/float((ny-1))* |
|
./pkg/cheapaml/cheapaml_fields_load.F |
134 |
CHEAPAML_FIELDS_LOAD |
bump=-5.d0*EXP(-(float(jg-127)*float(jg-127))/1920.0) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
162 |
CHEAPAML_FIELDS_LOAD |
local=-5.d0*cos(2.d0*pi*float(jg-1)/(float(ny-1))) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
302 |
CHEAPAML_FIELDS_LOAD |
local=225.d0-float((jg-1))/float((ny-1))*37.5d0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
321 |
CHEAPAML_FIELDS_LOAD |
bump=-5.d0*EXP(-(float(jg-127)*float(jg-127))/1920.0) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
360 |
CHEAPAML_FIELDS_LOAD |
local=-5.d0*cos(2.d0*pi*float(jg-1)/(float(ny-1))) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
44 |
CHEAPAML_FIELDS_LOAD |
INTEGER jg |
|
./pkg/cheapaml/cheapaml_init_varia.F |
56 |
CHEAPAML_INIT_VARIA |
localt=25.d0-float((jg-1))/float((ny-1))*10.d0 |
|
./pkg/cost/cost_accumulate_mean.F |
34 |
COST_ACCUMULATE_MEAN |
integer ig, jg |
|
./pkg/cost/cost_atlantic_heat.F |
150 |
COST_ATLANTIC_HEAT |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cost/cost_atlantic_heat.F |
152 |
COST_ATLANTIC_HEAT |
if ((jg .ge. jsecbeg) .and. (jg .le. jsecend)) then |
|
./pkg/cost/cost_atlantic_heat.F |
33 |
COST_ATLANTIC_HEAT |
integer ig, jg |
|
./pkg/cost/cost_atlantic_heat.F |
89 |
COST_ATLANTIC_HEAT |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cost/cost_atlantic_heat.F |
90 |
COST_ATLANTIC_HEAT |
if (jg .eq. jsec) then |
|
./pkg/cost/cost_test.F |
37 |
COST_TEST |
integer ig, jg |
|
./pkg/cost/cost_test.F |
66 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cost/cost_test.F |
71 |
COST_TEST |
if ((ig .eq. iLocOut) .and. (jg .eq. jLocOut)) then |
|
./pkg/cost/cost_test.F |
73 |
COST_TEST |
& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./pkg/cost/cost_test.F |
76 |
COST_TEST |
print *, 'ph-cost ', ig, jg, kLocOut, |
|
./pkg/cost/cost_tracer.F |
45 |
COST_TRACER |
integer ig, jg |
|
./pkg/cost/cost_vector.F |
33 |
COST_VECTOR |
integer ig, jg |
|
./pkg/cost/cost_vector.F |
61 |
COST_VECTOR |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cost/cost_vector.F |
62 |
COST_VECTOR |
if (jg .eq. jsec) then |
|
./pkg/ctrl/ctrl_pack.F |
70 |
CTRL_PACK |
integer ig,jg |
|
./pkg/ecco/cost_averagesfields.F |
527 |
COST_AVERAGESFIELDS |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/ecco/cost_averagesfields.F |
530 |
COST_AVERAGESFIELDS |
if ( jg.EQ.106 .AND. ig.GE.280 .AND. ig.LE.285 ) then |
|
./pkg/ecco/cost_averagesfields.F |
67 |
COST_AVERAGESFIELDS |
integer ig,jg |