| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_fillnegs.F |
199 |
TRACER_FILL |
array(1) = pq(ip1,j,L)*d2p(ip1,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
200 |
TRACER_FILL |
array(2) = pq(im1,j,L)*d2p(im1,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
203 |
TRACER_FILL |
array(3) = -undef |
|
./pkg/fizhi/fizhi_fillnegs.F |
205 |
TRACER_FILL |
array(3) = pq(i,j+1,L)*d2p(i,j+1)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
208 |
TRACER_FILL |
array(4) = -undef |
|
./pkg/fizhi/fizhi_fillnegs.F |
210 |
TRACER_FILL |
array(4) = pq(i,j-1,L)*d2p(i,j-1)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
213 |
TRACER_FILL |
array(5) = -undef |
|
./pkg/fizhi/fizhi_fillnegs.F |
215 |
TRACER_FILL |
array(5) = pq(i,j,L-1)*d2p(i,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
218 |
TRACER_FILL |
array(6) = -undef |
|
./pkg/fizhi/fizhi_fillnegs.F |
220 |
TRACER_FILL |
array(6) = pq(i,j,L+1)*d2p(i,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
223 |
TRACER_FILL |
call MAXVAL1 (array,6,-qval,qmax,imax) |
|
./pkg/fizhi/fizhi_fillnegs.F |
228 |
TRACER_FILL |
if( array(m).gt.0.0 ) sum = sum + array(m) |
|
./pkg/fizhi/fizhi_fillnegs.F |
232 |
TRACER_FILL |
if( array(1).gt.0 ) pq(ip1,j,L) = pq(ip1,j,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
233 |
TRACER_FILL |
if( array(2).gt.0 ) pq(im1,j,L) = pq(im1,j,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
234 |
TRACER_FILL |
if( array(3).gt.0 ) pq(i,j+1,L) = pq(i,j+1,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
235 |
TRACER_FILL |
if( array(4).gt.0 ) pq(i,j-1,L) = pq(i,j-1,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
236 |
TRACER_FILL |
if( array(5).gt.0 ) pq(i,j,L-1) = pq(i,j,L-1) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
237 |
TRACER_FILL |
if( array(6).gt.0 ) pq(i,j,L+1) = pq(i,j,L+1) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
91 |
TRACER_FILL |
_RL array(6) |
|
./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 |
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 |
17 |
EXCH2_RECV_GET_VEC_RL |
U array, |
|
./pkg/flt/exch2_recv_get_vec.F |
50 |
EXCH2_RECV_GET_VEC_RL |
_RL array(myd1, nSx, nSy, 4) |
|
./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 |
17 |
EXCH2_SEND_PUT_VEC_RL |
I array, |
|
./pkg/flt/exch2_send_put_vec.F |
48 |
EXCH2_SEND_PUT_VEC_RL |
_RL array(myd1,nSx,nSy,4) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
165 |
GMREDI_CALC_EIGS |
array(k,kk) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
170 |
GMREDI_CALC_EIGS |
array(k,k) = b3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
171 |
GMREDI_CALC_EIGS |
array(k,k+1) = c3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
173 |
GMREDI_CALC_EIGS |
array(k,k-1) = a3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
174 |
GMREDI_CALC_EIGS |
array(k,k) = b3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
175 |
GMREDI_CALC_EIGS |
array(k,k+1) = c3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
178 |
GMREDI_CALC_EIGS |
array(k,k-1) = a3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
179 |
GMREDI_CALC_EIGS |
array(k,k) = b3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
181 |
GMREDI_CALC_EIGS |
CALL DGEEV('N','V',Nr,array,Nr,eigR,eigI,dummy,1, |
|
./pkg/gmredi/gmredi_calc_eigs.F |
74 |
GMREDI_CALC_EIGS |
_RL array(Nr,Nr) |
|
./pkg/mdsio/mdsio_facef_read.F |
104 |
MDS_FACEF_READ_RS |
array(i,j,bi,bj) = ioBuf8(i+tBx) |
|
./pkg/mdsio/mdsio_facef_read.F |
128 |
MDS_FACEF_READ_RS |
array(i,j,bi,bj) = ioBuf4(i,j) |
|
./pkg/mdsio/mdsio_facef_read.F |
138 |
MDS_FACEF_READ_RS |
array(i,j,bi,bj) = ioBuf8(i,j) |
|
./pkg/mdsio/mdsio_facef_read.F |
18 |
MDS_FACEF_READ_RS |
U array, |
|
./pkg/mdsio/mdsio_facef_read.F |
44 |
MDS_FACEF_READ_RS |
_RS array(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/mdsio/mdsio_facef_read.F |
93 |
MDS_FACEF_READ_RS |
array(i,j,bi,bj) = ioBuf4(i+tBx) |
|
./pkg/openad/externalDummies.F |
25 |
EXCH1_RL |
U array, |
|
./pkg/openad/externalDummies.F |
35 |
EXCH1_RL |
_RL array( 1-myOLw:sNx+myOLe, |
|
./pkg/openad/externalDummies.F |
43 |
EXCH1_RL |
array(1,1,1,1,1)=2*array(1,1,1,1,1) |
|
./pkg/rw/read_glvec_rl.F |
11 |
READ_GLVEC_RL |
O array, |
|
./pkg/rw/read_glvec_rl.F |
30 |
READ_GLVEC_RL |
_RL array(sizArr) |
|
./pkg/rw/read_glvec_rl.F |
66 |
READ_GLVEC_RL |
& fType, sizArr, array, dummyRS, |
|
./pkg/rw/read_glvec_rs.F |
11 |
READ_GLVEC_RS |
O array, |
|
./pkg/rw/read_glvec_rs.F |
30 |
READ_GLVEC_RS |
_RS array(sizArr) |
|
./pkg/rw/read_glvec_rs.F |
66 |
READ_GLVEC_RS |
& fType, sizArr, dummyRL, array, |
|
./pkg/rw/write_glvec_rl.F |
10 |
WRITE_GLVEC_RL |
I pref, suff, array, sizArr, myIter, myThid ) |
|
./pkg/rw/write_glvec_rl.F |
28 |
WRITE_GLVEC_RL |
_RL array(sizArr) |
|
./pkg/rw/write_glvec_rl.F |
65 |
WRITE_GLVEC_RL |
I fType, sizArr, array, dummyRS, |
|
./pkg/rw/write_glvec_rs.F |
10 |
WRITE_GLVEC_RS |
I pref, suff, array, sizArr, myIter, myThid ) |
|
./pkg/rw/write_glvec_rs.F |
28 |
WRITE_GLVEC_RS |
_RS array(sizArr) |
|
./pkg/rw/write_glvec_rs.F |
65 |
WRITE_GLVEC_RS |
I fType, sizArr, dummyRL, array, |