| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
49 |
FIZHI_WRITE_VEGTILES |
integer ig,jg,tn,iunit |
|
./pkg/cost/cost_accumulate_mean.F |
34 |
COST_ACCUMULATE_MEAN |
integer ig, jg |
|
./pkg/cost/cost_tracer.F |
44 |
COST_TRACER |
integer ig, jg |
|
./pkg/cost/cost_test.F |
36 |
COST_TEST |
integer ig, jg |
|
./pkg/cost/cost_test.F |
67 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./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_vector.F |
31 |
COST_VECTOR |
integer ig, jg |
|
./pkg/cost/cost_vector.F |
63 |
COST_VECTOR |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cost/cost_vector.F |
64 |
COST_VECTOR |
if ((ig .ge. isecbeg) .and. (ig .le. isecend)) then |
|
./pkg/cost/cost_atlantic_heat.F |
130 |
COST_ATLANTIC_HEAT |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cost/cost_atlantic_heat.F |
131 |
COST_ATLANTIC_HEAT |
if (ig .eq. isec) then |
|
./pkg/cost/cost_atlantic_heat.F |
31 |
COST_ATLANTIC_HEAT |
integer ig, jg |
|
./pkg/cost/cost_atlantic_heat.F |
71 |
COST_ATLANTIC_HEAT |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cost/cost_atlantic_heat.F |
72 |
COST_ATLANTIC_HEAT |
if ((ig .ge. isecbeg) .and. (ig .le. isecend)) then |
|
./pkg/cost/cost_atlantic_heat.F |
95 |
COST_ATLANTIC_HEAT |
ig = myXGlobalLo-1+(bi-1)*sNx+i |
|
./pkg/cost/cost_atlantic_heat.F |
97 |
COST_ATLANTIC_HEAT |
if ((ig .ge. isecbeg) .and. (ig .le. isecend)) then |
|
./pkg/ctrl/ctrl_pack.F |
70 |
CTRL_PACK |
integer ig,jg |