| File |
Line number |
Procedure |
Code |
|
./pkg/aim_compon_interf/atm_store_airco2.F |
61 |
ATM_STORE_AIRCO2 |
INTEGER i,j, ij |
|
./pkg/aim_compon_interf/atm_store_airco2.F |
70 |
ATM_STORE_AIRCO2 |
ij = i + (j-1)*sNx |
|
./pkg/aim_compon_interf/atm_store_airco2.F |
72 |
ATM_STORE_AIRCO2 |
& + aim_CO2(ij,myThid)*cplTimeFraction |
|
./pkg/aim_compon_interf/atm_store_wspeed.F |
57 |
ATM_STORE_WSPEED |
INTEGER i,j, ij |
|
./pkg/aim_compon_interf/atm_store_wspeed.F |
66 |
ATM_STORE_WSPEED |
ij = i + (j-1)*sNx |
|
./pkg/aim_compon_interf/atm_store_wspeed.F |
68 |
ATM_STORE_WSPEED |
& + SPEED0(ij,myThid)*cplTimeFraction |
|
./eesupp/src/global_sum_singlecpu.F |
116 |
GLOBAL_SUM_SINGLECPU_RL |
DO ij=1,xSize*ySize |
|
./eesupp/src/global_sum_singlecpu.F |
117 |
GLOBAL_SUM_SINGLECPU_RL |
sumAll = sumAll + xy_buffer_r8(ij) |
|
./eesupp/src/global_sum_singlecpu.F |
62 |
GLOBAL_SUM_SINGLECPU_RL |
INTEGER i, j, ij |
|
./pkg/compon_communic/comprecv_r4.F |
20 |
COMPRECV_R4 |
integer i,j,ij,nx,ny |
|
./pkg/compon_communic/comprecv_r4.F |
72 |
COMPRECV_R4 |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/comprecv_r4.F |
73 |
COMPRECV_R4 |
arr(i,j)=r4buf(ij) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
20 |
COMPRECV_R4TILES |
integer i,j,ij,nx,ny,k,bibj,bi,bj |
|
./pkg/compon_communic/comprecv_r4tiles.F |
79 |
COMPRECV_R4TILES |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
80 |
COMPRECV_R4TILES |
arr(i,j,k,bi,bj)=r4buf(ij) |
|
./pkg/compon_communic/comprecv_r8.F |
20 |
COMPRECV_R8 |
integer i,j,ij,nx,ny |
|
./pkg/compon_communic/comprecv_r8.F |
72 |
COMPRECV_R8 |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/comprecv_r8.F |
73 |
COMPRECV_R8 |
arr(i,j)=r8buf(ij) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
20 |
COMPRECV_R8TILES |
integer i,j,ij,nx,ny,k,bibj,bi,bj |
|
./pkg/compon_communic/comprecv_r8tiles.F |
79 |
COMPRECV_R8TILES |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
80 |
COMPRECV_R8TILES |
arr(i,j,k,bi,bj)=r8buf(ij) |
|
./pkg/compon_communic/compsend_r4.F |
19 |
COMPSEND_R4 |
integer i,j,ij,Io,Jo |
|
./pkg/compon_communic/compsend_r4.F |
37 |
COMPSEND_R4 |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/compsend_r4.F |
38 |
COMPSEND_R4 |
r4buf(ij)=arr(i,j) |
|
./pkg/compon_communic/compsend_r4tiles.F |
19 |
COMPSEND_R4TILES |
integer i,j,ij,bi,bj,k,bibj |
|
./pkg/compon_communic/compsend_r4tiles.F |
47 |
COMPSEND_R4TILES |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/compsend_r4tiles.F |
48 |
COMPSEND_R4TILES |
r4buf(ij)=arr(i,j,k,bi,bj) |
|
./pkg/compon_communic/compsend_r8.F |
19 |
COMPSEND_R8 |
integer i,j,ij,Io,Jo |
|
./pkg/compon_communic/compsend_r8.F |
37 |
COMPSEND_R8 |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/compsend_r8.F |
38 |
COMPSEND_R8 |
r8buf(ij)=arr(i,j) |
|
./pkg/compon_communic/compsend_r8tiles.F |
19 |
COMPSEND_R8TILES |
integer i,j,ij,bi,bj,k,bibj |
|
./pkg/compon_communic/compsend_r8tiles.F |
47 |
COMPSEND_R8TILES |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/compsend_r8tiles.F |
48 |
COMPSEND_R8TILES |
r8buf(ij)=arr(i,j,k,bi,bj) |
|
./pkg/compon_communic/couprecv_r4.F |
23 |
COUPRECV_R4 |
integer i,j,ij,n |
|
./pkg/compon_communic/couprecv_r4.F |
93 |
COUPRECV_R4 |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/couprecv_r4.F |
94 |
COUPRECV_R4 |
arr(Io+i-1,Jo+j-1)=r4buf(ij) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
106 |
COUPRECV_R4TILES |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
107 |
COUPRECV_R4TILES |
arr(Io+i-1,Jo+j-1)=r4buf(ij) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
23 |
COUPRECV_R4TILES |
integer i,j,ij,n,bibj |
|
./pkg/compon_communic/couprecv_r8.F |
23 |
COUPRECV_R8 |
integer i,j,ij,n |
|
./pkg/compon_communic/couprecv_r8.F |
93 |
COUPRECV_R8 |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/couprecv_r8.F |
94 |
COUPRECV_R8 |
arr(Io+i-1,Jo+j-1)=r8buf(ij) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
106 |
COUPRECV_R8TILES |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
107 |
COUPRECV_R8TILES |
arr(Io+i-1,Jo+j-1)=r8buf(ij) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
23 |
COUPRECV_R8TILES |
integer i,j,ij,n,bibj |
|
./pkg/compon_communic/coupsend_r4.F |
22 |
COUPSEND_R4 |
integer i,j,ij,n |
|
./pkg/compon_communic/coupsend_r4.F |
57 |
COUPSEND_R4 |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/coupsend_r4.F |
58 |
COUPSEND_R4 |
r4buf(ij)=arr(Io+i-1,Jo+j-1) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
22 |
COUPSEND_R4TILES |
integer i,j,ij,n,bibj |
|
./pkg/compon_communic/coupsend_r4tiles.F |
60 |
COUPSEND_R4TILES |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
61 |
COUPSEND_R4TILES |
r4buf(ij)=arr(Io+i-1,Jo+j-1) |
|
./pkg/compon_communic/coupsend_r8.F |
22 |
COUPSEND_R8 |
integer i,j,ij,n |
|
./pkg/compon_communic/coupsend_r8.F |
57 |
COUPSEND_R8 |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/coupsend_r8.F |
58 |
COUPSEND_R8 |
r8buf(ij)=arr(Io+i-1,Jo+j-1) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
22 |
COUPSEND_R8TILES |
integer i,j,ij,n,bibj |
|
./pkg/compon_communic/coupsend_r8tiles.F |
60 |
COUPSEND_R8TILES |
ij=HEADER_SIZE+i+Ni*(j-1) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
61 |
COUPSEND_R8TILES |
r8buf(ij)=arr(Io+i-1,Jo+j-1) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
155 |
DIAG_VEGTILE_FILL |
ij = indx(ivt+offset) - 1 |
|
./pkg/diagnostics/diag_vegtile_fill.F |
156 |
DIAG_VEGTILE_FILL |
j = 1 + INT(ij/sNx) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
157 |
DIAG_VEGTILE_FILL |
i = 1 + MOD(ij,sNx) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
167 |
DIAG_VEGTILE_FILL |
ij = indx(ivt+offset) - 1 |
|
./pkg/diagnostics/diag_vegtile_fill.F |
168 |
DIAG_VEGTILE_FILL |
j = 1 + INT(ij/sNx) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
169 |
DIAG_VEGTILE_FILL |
i = 1 + MOD(ij,sNx) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
225 |
DIAG_VEGTILE_FILL |
DO ij = 1,sNx*sNy |
|
./pkg/diagnostics/diag_vegtile_fill.F |
226 |
DIAG_VEGTILE_FILL |
gridFrac(ij)= 0. |
|
./pkg/diagnostics/diag_vegtile_fill.F |
229 |
DIAG_VEGTILE_FILL |
ij = indx(ivt+offset) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
230 |
DIAG_VEGTILE_FILL |
gridFrac(ij)=gridFrac(ij)+chfr(ivt) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
234 |
DIAG_VEGTILE_FILL |
DO ij = 1,sNx*sNy |
|
./pkg/diagnostics/diag_vegtile_fill.F |
235 |
DIAG_VEGTILE_FILL |
gridField(ij,k)= 0. |
|
./pkg/diagnostics/diag_vegtile_fill.F |
239 |
DIAG_VEGTILE_FILL |
ij = indx(ivt+offset) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
241 |
DIAG_VEGTILE_FILL |
gridField(ij,k) = undef |
|
./pkg/diagnostics/diag_vegtile_fill.F |
242 |
DIAG_VEGTILE_FILL |
ELSEIF ( gridFrac(ij).GT.0. _d 0 ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
243 |
DIAG_VEGTILE_FILL |
gridField(ij,k) = gridField(ij,k) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
244 |
DIAG_VEGTILE_FILL |
& + field(ivt,k)*chfr(ivt)/gridFrac(ij) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
249 |
DIAG_VEGTILE_FILL |
ij = indx(ivt+offset) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
250 |
DIAG_VEGTILE_FILL |
IF ( gridFrac(ij).GT.0. _d 0 ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
251 |
DIAG_VEGTILE_FILL |
gridField(ij,k) = gridField(ij,k) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
252 |
DIAG_VEGTILE_FILL |
& + field(ivt,k)*chfr(ivt)/gridFrac(ij) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
64 |
DIAG_VEGTILE_FILL |
INTEGER ivt, ij, i |
|
./pkg/down_slope/dwnslp_apply.F |
118 |
DWNSLP_APPLY |
DO ij=1,xySize |
|
./pkg/down_slope/dwnslp_apply.F |
119 |
DWNSLP_APPLY |
gTracer(ij,k) = 0. _d 0 |
|
./pkg/down_slope/dwnslp_apply.F |
67 |
DWNSLP_APPLY |
INTEGER ij, k |
|
./pkg/down_slope/dwnslp_calc_flow.F |
125 |
DWNSLP_CALC_FLOW |
ij = MAX( ijd, ijs ) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
128 |
DWNSLP_CALC_FLOW |
uFlow(ij) = sgnFac*DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
130 |
DWNSLP_CALC_FLOW |
vFlow(ij) = sgnFac*DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
61 |
DWNSLP_CALC_FLOW |
INTEGER ij |
|
./pkg/down_slope/dwnslp_calc_flow.F |
83 |
DWNSLP_CALC_FLOW |
DO ij=1,xySize |
|
./pkg/down_slope/dwnslp_calc_flow.F |
84 |
DWNSLP_CALC_FLOW |
uFlow(ij) = 0. _d 0 |
|
./pkg/down_slope/dwnslp_calc_flow.F |
85 |
DWNSLP_CALC_FLOW |
vFlow(ij) = 0. _d 0 |