| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_model2dsvd.F |
72 |
ADMTLM_MODEL2DSVD |
integer ig,jg |
|
./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 |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
39 |
COST_TEST |
integer ig, jg |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
68 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
72 |
COST_TEST |
if ((jg .gt.30) .and. (jg .lt.40)) then |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
77 |
COST_TEST |
& ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./verification/OpenAD/code_ad/cost_test.F |
36 |
COST_TEST |
integer ig, jg |
|
./verification/OpenAD/code_ad/cost_test.F |
65 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
34 |
COST_TEST |
integer ig, jg |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
53 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+J |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
54 |
COST_TEST |
IF ( jg .ge. iysecmin .and. jg .le. iysecmax ) THEN |
|
./pkg/cost/cost_tracer.F |
44 |
COST_TRACER |
integer ig, jg |
|
./pkg/cost/cost_accumulate_mean.F |
34 |
COST_ACCUMULATE_MEAN |
integer ig, jg |
|
./pkg/cost/cost_vector.F |
31 |
COST_VECTOR |
integer ig, jg |
|
./pkg/cost/cost_vector.F |
59 |
COST_VECTOR |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cost/cost_vector.F |
60 |
COST_VECTOR |
if (jg .eq. jsec) then |
|
./pkg/cost/cost_test.F |
36 |
COST_TEST |
integer ig, jg |
|
./pkg/cost/cost_test.F |
65 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cost/cost_test.F |
69 |
COST_TEST |
if ((ig .eq. iLocOut) .and. (jg .eq. jLocOut)) then |
|
./pkg/cost/cost_test.F |
71 |
COST_TEST |
& 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj |
|
./pkg/cost/cost_test.F |
74 |
COST_TEST |
print *, 'ph-cost ', ig, jg, kLocOut, |
|
./pkg/cost/cost_atlantic_heat.F |
139 |
COST_ATLANTIC_HEAT |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cost/cost_atlantic_heat.F |
141 |
COST_ATLANTIC_HEAT |
if ((jg .ge. jsecbeg) .and. (jg .le. jsecend)) then |
|
./pkg/cost/cost_atlantic_heat.F |
31 |
COST_ATLANTIC_HEAT |
integer ig, jg |
|
./pkg/cost/cost_atlantic_heat.F |
86 |
COST_ATLANTIC_HEAT |
jg = myYGlobalLo-1+(bj-1)*sNy+j |
|
./pkg/cost/cost_atlantic_heat.F |
87 |
COST_ATLANTIC_HEAT |
if (jg .eq. jsec) then |
|
./pkg/ecco/cost_tau_eddy.F |
34 |
COST_TAU_EDDY |
integer i, j, k, jg |
|
./pkg/ctrl/ctrl_pack.F |
70 |
CTRL_PACK |
integer ig,jg |