| File |
Line number |
Procedure |
Code |
|
./pkg/flt/exch2_recv_get_vec.F |
104 |
EXCH2_RECV_GET_VEC_RL |
dir = exch2_neighbourDir(nN,thisTile) |
|
./pkg/flt/exch2_recv_get_vec.F |
118 |
EXCH2_RECV_GET_VEC_RL |
CALL MPI_RECV( array(1,bi,bj,dir), theSize, theType, |
|
./pkg/flt/exch2_recv_get_vec.F |
137 |
EXCH2_RECV_GET_VEC_RL |
IF (array(imax*(ip-1)+1,bi,bj,dir).NE.0.) THEN |
|
./pkg/flt/exch2_recv_get_vec.F |
138 |
EXCH2_RECV_GET_VEC_RL |
itc=array(imax*(ip-1)+3,bi,bj,dir)+itb |
|
./pkg/flt/exch2_recv_get_vec.F |
139 |
EXCH2_RECV_GET_VEC_RL |
jtc=array(imax*(ip-1)+4,bi,bj,dir)+jtb |
|
./pkg/flt/exch2_recv_get_vec.F |
142 |
EXCH2_RECV_GET_VEC_RL |
write(ioUnit,'(A,3I6)') 'LOC,1 :',thisTile,tgT,dir |
|
./pkg/flt/exch2_recv_get_vec.F |
144 |
EXCH2_RECV_GET_VEC_RL |
& array(imax*(ip-1)+1,bi,bj,dir), |
|
./pkg/flt/exch2_recv_get_vec.F |
145 |
EXCH2_RECV_GET_VEC_RL |
& array(imax*(ip-1)+2,bi,bj,dir), |
|
./pkg/flt/exch2_recv_get_vec.F |
146 |
EXCH2_RECV_GET_VEC_RL |
& array(imax*(ip-1)+3,bi,bj,dir), |
|
./pkg/flt/exch2_recv_get_vec.F |
147 |
EXCH2_RECV_GET_VEC_RL |
& array(imax*(ip-1)+4,bi,bj,dir), |
|
./pkg/flt/exch2_recv_get_vec.F |
154 |
EXCH2_RECV_GET_VEC_RL |
IF (array(imax*(ip-1)+1,bi,bj,dir).NE.0.) THEN |
|
./pkg/flt/exch2_recv_get_vec.F |
155 |
EXCH2_RECV_GET_VEC_RL |
itc=array(imax*(ip-1)+3,bi,bj,dir)+itb |
|
./pkg/flt/exch2_recv_get_vec.F |
156 |
EXCH2_RECV_GET_VEC_RL |
jtc=array(imax*(ip-1)+4,bi,bj,dir)+jtb |
|
./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 |
158 |
EXCH2_RECV_GET_VEC_RL |
array(imax*(ip-1)+4,bi,bj,dir) = pj(1)*itc+pj(2)*jtc+oj-jsb |
|
./pkg/flt/exch2_recv_get_vec.F |
69 |
EXCH2_RECV_GET_VEC_RL |
INTEGER thisTile, nN, tgT, oNb, dir |
|
./pkg/flt/exch2_send_put_vec.F |
113 |
EXCH2_SEND_PUT_VEC_RL |
dir = exch2_neighbourDir(nN,thisTile) |
|
./pkg/flt/exch2_send_put_vec.F |
128 |
EXCH2_SEND_PUT_VEC_RL |
bufRec(I,sBi,sBj,sDir) = array(I,bi,bj,dir) |
|
./pkg/flt/exch2_send_put_vec.F |
142 |
EXCH2_SEND_PUT_VEC_RL |
CALL MPI_ISEND(array(1,bi,bj,dir), theSize, theType, |
|
./pkg/flt/exch2_send_put_vec.F |
67 |
EXCH2_SEND_PUT_VEC_RL |
INTEGER I,J,sBi,sBj, nN, thisTile, tgT, tgN, dir, sDir |
|
./pkg/timeave/timeave_cumul_2v.F |
105 |
TIMEAVE_CUMUL_2V |
ELSEIF ( dir.eq.12 ) THEN |
|
./pkg/timeave/timeave_cumul_2v.F |
120 |
TIMEAVE_CUMUL_2V |
ELSEIF ( dir.eq.13 ) THEN |
|
./pkg/timeave/timeave_cumul_2v.F |
137 |
TIMEAVE_CUMUL_2V |
ELSEIF ( dir.eq.23 ) THEN |
|
./pkg/timeave/timeave_cumul_2v.F |
154 |
TIMEAVE_CUMUL_2V |
ELSEIF ( dir.eq.-13 ) THEN |
|
./pkg/timeave/timeave_cumul_2v.F |
171 |
TIMEAVE_CUMUL_2V |
ELSEIF ( dir.eq.-23 ) THEN |
|
./pkg/timeave/timeave_cumul_2v.F |
31 |
TIMEAVE_CUMUL_2V |
INTEGER Ksize, dir |
|
./pkg/timeave/timeave_cumul_2v.F |
46 |
TIMEAVE_CUMUL_2V |
IF ( dir.eq.0 ) THEN |
|
./pkg/timeave/timeave_cumul_2v.F |
62 |
TIMEAVE_CUMUL_2V |
ELSEIF ( dir.eq.1 ) THEN |
|
./pkg/timeave/timeave_cumul_2v.F |
76 |
TIMEAVE_CUMUL_2V |
ELSEIF ( dir.eq.2 ) THEN |
|
./pkg/timeave/timeave_cumul_2v.F |
8 |
TIMEAVE_CUMUL_2V |
I fld1, fld2, Ksize, dir, deltaTloc, |
|
./pkg/timeave/timeave_cumul_2v.F |
90 |
TIMEAVE_CUMUL_2V |
ELSEIF ( dir.eq.3 ) THEN |
|
./pkg/timeave/timeave_cumul_2vfc.F |
32 |
TIMEAVE_CUMUL_2VFC |
INTEGER Ksize, dir |
|
./pkg/timeave/timeave_cumul_2vfc.F |
46 |
TIMEAVE_CUMUL_2VFC |
IF ( dir.eq.0 ) THEN |
|
./pkg/timeave/timeave_cumul_2vfc.F |
61 |
TIMEAVE_CUMUL_2VFC |
ELSEIF ( dir.eq.1 ) THEN |
|
./pkg/timeave/timeave_cumul_2vfc.F |
77 |
TIMEAVE_CUMUL_2VFC |
ELSEIF ( dir.eq.2 ) THEN |
|
./pkg/timeave/timeave_cumul_2vfc.F |
8 |
TIMEAVE_CUMUL_2VFC |
I fld1, fld2, fld3, Ksize, dir, deltaTloc, |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
28 |
TIMEAVE_CUMUL_DIF_1T |
INTEGER Ksize, dir |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
42 |
TIMEAVE_CUMUL_DIF_1T |
IF ( dir.eq.1 ) THEN |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
55 |
TIMEAVE_CUMUL_DIF_1T |
ELSEIF ( dir.eq.2 ) THEN |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
68 |
TIMEAVE_CUMUL_DIF_1T |
ELSEIF ( dir.eq.3 ) THEN |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
8 |
TIMEAVE_CUMUL_DIF_1T |
I fld1, fld2, Ksize, dir, deltaTloc, |