| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_print_comm_sequence.F |
57 |
W2_PRINT_COMM_SEQUENCE |
INTEGER itb, jtb, isb, jsb |
|
./pkg/exch2/w2_print_comm_sequence.F |
89 |
W2_PRINT_COMM_SEQUENCE |
isb = exch2_tBasex(myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
91 |
W2_PRINT_COMM_SEQUENCE |
sourceIlo=pi(1)*(targetIlo+itb)+pi(2)*(targetJlo+jtb)+oi-isb |
|
./pkg/exch2/w2_print_comm_sequence.F |
93 |
W2_PRINT_COMM_SEQUENCE |
sourceIhi=pi(1)*(targetIhi+itb)+pi(2)*(targetJhi+jtb)+oi-isb |
|
./pkg/fizhi/fizhi_lwrad.F |
1289 |
IRRAD |
do isb=1,2 |
|
./pkg/fizhi/fizhi_lwrad.F |
1293 |
IRRAD |
tco2(i,j,ik,isb)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
563 |
IRRAD |
integer i,j,k,ip,iw,it,ib,ik,iq,isb,k1,k2 |
|
./pkg/flt/exch2_recv_get_vec.F |
126 |
EXCH2_RECV_GET_VEC_RL |
isb = exch2_tBasex(thisTile) |
|
./pkg/flt/exch2_recv_get_vec.F |
140 |
EXCH2_RECV_GET_VEC_RL |
itmp = pi(1)*itc+pi(2)*jtc+oi-isb |
|
./pkg/flt/exch2_recv_get_vec.F |
157 |
EXCH2_RECV_GET_VEC_RL |
array(imax*(ip-1)+3,bi,bj,dir) = pi(1)*itc+pi(2)*jtc+oi-isb |
|
./pkg/flt/exch2_recv_get_vec.F |
77 |
EXCH2_RECV_GET_VEC_RL |
INTEGER pi(2), pj(2), oi, oj, ip, itb, jtb, isb, jsb |