| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1635 |
CLOUD |
integer nn,lng,LENC,K,NLTOP,nlayr,ic,ntracedim, ntracer |
|
./pkg/fizhi/fizhi_swrad.F |
2522 |
FLXCO2 |
integer i,j,k,ic,iw |
|
./pkg/fizhi/fizhi_swrad.F |
2542 |
FLXCO2 |
ic=int( (clog1+3.15)*xx+1.) |
|
./pkg/fizhi/fizhi_swrad.F |
2544 |
FLXCO2 |
if(ic.lt.2)ic=2 |
|
./pkg/fizhi/fizhi_swrad.F |
2546 |
FLXCO2 |
if(ic.gt.22)ic=22 |
|
./pkg/fizhi/fizhi_swrad.F |
2548 |
FLXCO2 |
dc=clog1-float(ic-2)*.3+3. |
|
./pkg/fizhi/fizhi_swrad.F |
2551 |
FLXCO2 |
x2=cah(ic-1,iw-1)+(cah(ic-1,iw)-cah(ic-1,iw-1))*xx*dw |
|
./pkg/fizhi/fizhi_swrad.F |
2552 |
FLXCO2 |
y2=x2+(cah(ic,iw-1)-cah(ic-1,iw-1))*xx*dc |
|
./pkg/flt/flt_exch2.F |
111 |
FLT_EXCH2 |
ic = (icountE-1)*imax |
|
./pkg/flt/flt_exch2.F |
113 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_EAST) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
114 |
FLT_EXCH2 |
fltbuf_send(ic+2,bi,bj,W2_EAST) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
116 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_EAST) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
118 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_EAST) = iNew |
|
./pkg/flt/flt_exch2.F |
120 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_EAST) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
121 |
FLT_EXCH2 |
fltbuf_send(ic+5,bi,bj,W2_EAST) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
122 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_EAST) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
123 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_EAST) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
124 |
FLT_EXCH2 |
fltbuf_send(ic+8,bi,bj,W2_EAST) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
125 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_EAST) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
144 |
FLT_EXCH2 |
ic = (icountW-1)*imax |
|
./pkg/flt/flt_exch2.F |
146 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_WEST) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
147 |
FLT_EXCH2 |
fltbuf_send(ic+2,bi,bj,W2_WEST) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
149 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_WEST) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
151 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_WEST) = iNew |
|
./pkg/flt/flt_exch2.F |
153 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_WEST) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
154 |
FLT_EXCH2 |
fltbuf_send(ic+5,bi,bj,W2_WEST) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
155 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_WEST) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
156 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_WEST) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
157 |
FLT_EXCH2 |
fltbuf_send(ic+8,bi,bj,W2_WEST) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
158 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_WEST) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
236 |
FLT_EXCH2 |
ic = (icountN-1)*imax |
|
./pkg/flt/flt_exch2.F |
238 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_NORTH) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
239 |
FLT_EXCH2 |
fltbuf_send(ic+2,bi,bj,W2_NORTH) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
240 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_NORTH) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
242 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_NORTH) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
244 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_NORTH) = jNew |
|
./pkg/flt/flt_exch2.F |
246 |
FLT_EXCH2 |
fltbuf_send(ic+5,bi,bj,W2_NORTH) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
247 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_NORTH) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
248 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_NORTH) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
249 |
FLT_EXCH2 |
fltbuf_send(ic+8,bi,bj,W2_NORTH) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
250 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_NORTH) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
274 |
FLT_EXCH2 |
ic = (icountS-1)*imax |
|
./pkg/flt/flt_exch2.F |
276 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_SOUTH) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
277 |
FLT_EXCH2 |
fltbuf_send(ic+2,bi,bj,W2_SOUTH) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
278 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_SOUTH) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
280 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_SOUTH) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
282 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_SOUTH) = jNew |
|
./pkg/flt/flt_exch2.F |
284 |
FLT_EXCH2 |
fltbuf_send(ic+5,bi,bj,W2_SOUTH) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
285 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_SOUTH) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
286 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_SOUTH) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
287 |
FLT_EXCH2 |
fltbuf_send(ic+8,bi,bj,W2_SOUTH) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
288 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_SOUTH) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
391 |
FLT_EXCH2 |
ic=(ip-1)*imax |
|
./pkg/flt/flt_exch2.F |
392 |
FLT_EXCH2 |
IF ( fltbuf_recv(ic+1,bi,bj,W2_EAST).NE.0. ) THEN |
|
./pkg/flt/flt_exch2.F |
396 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
397 |
FLT_EXCH2 |
tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
398 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
399 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
400 |
FLT_EXCH2 |
kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
401 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
402 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
403 |
FLT_EXCH2 |
itop( jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
404 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_EAST) |
|
./pkg/flt/flt_exch2.F |
420 |
FLT_EXCH2 |
ic=(ip-1)*imax |
|
./pkg/flt/flt_exch2.F |
421 |
FLT_EXCH2 |
IF ( fltbuf_recv(ic+1,bi,bj,W2_WEST).NE.0. ) THEN |
|
./pkg/flt/flt_exch2.F |
425 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
426 |
FLT_EXCH2 |
tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
427 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
428 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
429 |
FLT_EXCH2 |
kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
42 |
FLT_EXCH2 |
INTEGER bi, bj, ic |
|
./pkg/flt/flt_exch2.F |
430 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
431 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
432 |
FLT_EXCH2 |
itop( jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
433 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
449 |
FLT_EXCH2 |
ic=(ip-1)*imax |
|
./pkg/flt/flt_exch2.F |
450 |
FLT_EXCH2 |
IF ( fltbuf_recv(ic+1,bi,bj,W2_NORTH).NE.0. ) THEN |
|
./pkg/flt/flt_exch2.F |
454 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
455 |
FLT_EXCH2 |
tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
456 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
457 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
458 |
FLT_EXCH2 |
kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
459 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
460 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
461 |
FLT_EXCH2 |
itop( jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
462 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_NORTH) |
|
./pkg/flt/flt_exch2.F |
478 |
FLT_EXCH2 |
ic=(ip-1)*imax |
|
./pkg/flt/flt_exch2.F |
479 |
FLT_EXCH2 |
IF ( fltbuf_recv(ic+1,bi,bj,W2_SOUTH).NE.0. ) THEN |
|
./pkg/flt/flt_exch2.F |
483 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
484 |
FLT_EXCH2 |
tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
485 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
486 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
487 |
FLT_EXCH2 |
kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
488 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
489 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
490 |
FLT_EXCH2 |
itop( jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exch2.F |
491 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_SOUTH) |
|
./pkg/flt/flt_exchg.F |
111 |
FLT_EXCHG |
ic = (icountE-1)*imax |
|
./pkg/flt/flt_exchg.F |
113 |
FLT_EXCHG |
fltbuf_sendE(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
114 |
FLT_EXCHG |
fltbuf_sendE(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
115 |
FLT_EXCHG |
fltbuf_sendE(ic+3,bi,bj) = iNew |
|
./pkg/flt/flt_exchg.F |
116 |
FLT_EXCHG |
fltbuf_sendE(ic+4,bi,bj) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
117 |
FLT_EXCHG |
fltbuf_sendE(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
118 |
FLT_EXCHG |
fltbuf_sendE(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
119 |
FLT_EXCHG |
fltbuf_sendE(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
120 |
FLT_EXCHG |
fltbuf_sendE(ic+8,bi,bj) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
121 |
FLT_EXCHG |
fltbuf_sendE(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
144 |
FLT_EXCHG |
ic = (icountW-1)*imax |
|
./pkg/flt/flt_exchg.F |
146 |
FLT_EXCHG |
fltbuf_sendW(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
147 |
FLT_EXCHG |
fltbuf_sendW(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
148 |
FLT_EXCHG |
fltbuf_sendW(ic+3,bi,bj) = iNew |
|
./pkg/flt/flt_exchg.F |
149 |
FLT_EXCHG |
fltbuf_sendW(ic+4,bi,bj) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
150 |
FLT_EXCHG |
fltbuf_sendW(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
151 |
FLT_EXCHG |
fltbuf_sendW(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
152 |
FLT_EXCHG |
fltbuf_sendW(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
153 |
FLT_EXCHG |
fltbuf_sendW(ic+8,bi,bj) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
154 |
FLT_EXCHG |
fltbuf_sendW(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
236 |
FLT_EXCHG |
ic=(ip-1)*imax |
|
./pkg/flt/flt_exchg.F |
237 |
FLT_EXCHG |
IF ( fltbuf_recvE(ic+1,bi,bj).NE.0. ) THEN |
|
./pkg/flt/flt_exchg.F |
241 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvE(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
242 |
FLT_EXCHG |
tstart(jp,bi,bj) = fltbuf_recvE(ic+2,bi,bj) |
|
./pkg/flt/flt_exchg.F |
243 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvE(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
244 |
FLT_EXCHG |
jpart( jp,bi,bj) = fltbuf_recvE(ic+4,bi,bj) |
|
./pkg/flt/flt_exchg.F |
245 |
FLT_EXCHG |
kpart( jp,bi,bj) = fltbuf_recvE(ic+5,bi,bj) |
|
./pkg/flt/flt_exchg.F |
246 |
FLT_EXCHG |
kfloat(jp,bi,bj) = fltbuf_recvE(ic+6,bi,bj) |
|
./pkg/flt/flt_exchg.F |
247 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvE(ic+7,bi,bj) |
|
./pkg/flt/flt_exchg.F |
248 |
FLT_EXCHG |
itop( jp,bi,bj) = fltbuf_recvE(ic+8,bi,bj) |
|
./pkg/flt/flt_exchg.F |
249 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvE(ic+9,bi,bj) |
|
./pkg/flt/flt_exchg.F |
265 |
FLT_EXCHG |
ic=(ip-1)*imax |
|
./pkg/flt/flt_exchg.F |
266 |
FLT_EXCHG |
IF ( fltbuf_recvW(ic+1,bi,bj).NE.0. ) THEN |
|
./pkg/flt/flt_exchg.F |
270 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvW(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
271 |
FLT_EXCHG |
tstart(jp,bi,bj) = fltbuf_recvW(ic+2,bi,bj) |
|
./pkg/flt/flt_exchg.F |
272 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvW(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
273 |
FLT_EXCHG |
jpart( jp,bi,bj) = fltbuf_recvW(ic+4,bi,bj) |
|
./pkg/flt/flt_exchg.F |
274 |
FLT_EXCHG |
kpart( jp,bi,bj) = fltbuf_recvW(ic+5,bi,bj) |
|
./pkg/flt/flt_exchg.F |
275 |
FLT_EXCHG |
kfloat(jp,bi,bj) = fltbuf_recvW(ic+6,bi,bj) |
|
./pkg/flt/flt_exchg.F |
276 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvW(ic+7,bi,bj) |
|
./pkg/flt/flt_exchg.F |
277 |
FLT_EXCHG |
itop( jp,bi,bj) = fltbuf_recvW(ic+8,bi,bj) |
|
./pkg/flt/flt_exchg.F |
278 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvW(ic+9,bi,bj) |
|
./pkg/flt/flt_exchg.F |
344 |
FLT_EXCHG |
ic = (icountN-1)*imax |
|
./pkg/flt/flt_exchg.F |
346 |
FLT_EXCHG |
fltbuf_sendE(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
347 |
FLT_EXCHG |
fltbuf_sendE(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
348 |
FLT_EXCHG |
fltbuf_sendE(ic+3,bi,bj) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
349 |
FLT_EXCHG |
fltbuf_sendE(ic+4,bi,bj) = jNew |
|
./pkg/flt/flt_exchg.F |
350 |
FLT_EXCHG |
fltbuf_sendE(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
351 |
FLT_EXCHG |
fltbuf_sendE(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
352 |
FLT_EXCHG |
fltbuf_sendE(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
353 |
FLT_EXCHG |
fltbuf_sendE(ic+8,bi,bj) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
354 |
FLT_EXCHG |
fltbuf_sendE(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
382 |
FLT_EXCHG |
ic = (icountS-1)*imax |
|
./pkg/flt/flt_exchg.F |
384 |
FLT_EXCHG |
fltbuf_sendW(ic+1,bi,bj) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
385 |
FLT_EXCHG |
fltbuf_sendW(ic+2,bi,bj) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
386 |
FLT_EXCHG |
fltbuf_sendW(ic+3,bi,bj) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
387 |
FLT_EXCHG |
fltbuf_sendW(ic+4,bi,bj) = jNew |
|
./pkg/flt/flt_exchg.F |
388 |
FLT_EXCHG |
fltbuf_sendW(ic+5,bi,bj) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
389 |
FLT_EXCHG |
fltbuf_sendW(ic+6,bi,bj) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
390 |
FLT_EXCHG |
fltbuf_sendW(ic+7,bi,bj) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
391 |
FLT_EXCHG |
fltbuf_sendW(ic+8,bi,bj) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
392 |
FLT_EXCHG |
fltbuf_sendW(ic+9,bi,bj) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exchg.F |
46 |
FLT_EXCHG |
INTEGER bi, bj, ic |
|
./pkg/flt/flt_exchg.F |
479 |
FLT_EXCHG |
ic=(ip-1)*imax |
|
./pkg/flt/flt_exchg.F |
480 |
FLT_EXCHG |
IF ( fltbuf_recvE(ic+1,bi,bj).NE.0. ) THEN |
|
./pkg/flt/flt_exchg.F |
484 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvE(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
485 |
FLT_EXCHG |
tstart(jp,bi,bj) = fltbuf_recvE(ic+2,bi,bj) |
|
./pkg/flt/flt_exchg.F |
486 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvE(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
487 |
FLT_EXCHG |
jpart( jp,bi,bj) = fltbuf_recvE(ic+4,bi,bj) |
|
./pkg/flt/flt_exchg.F |
488 |
FLT_EXCHG |
kpart( jp,bi,bj) = fltbuf_recvE(ic+5,bi,bj) |
|
./pkg/flt/flt_exchg.F |
489 |
FLT_EXCHG |
kfloat(jp,bi,bj) = fltbuf_recvE(ic+6,bi,bj) |
|
./pkg/flt/flt_exchg.F |
490 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvE(ic+7,bi,bj) |
|
./pkg/flt/flt_exchg.F |
491 |
FLT_EXCHG |
itop( jp,bi,bj) = fltbuf_recvE(ic+8,bi,bj) |
|
./pkg/flt/flt_exchg.F |
492 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvE(ic+9,bi,bj) |
|
./pkg/flt/flt_exchg.F |
508 |
FLT_EXCHG |
ic=(ip-1)*imax |
|
./pkg/flt/flt_exchg.F |
509 |
FLT_EXCHG |
IF ( fltbuf_recvW(ic+1,bi,bj).NE.0. ) THEN |
|
./pkg/flt/flt_exchg.F |
513 |
FLT_EXCHG |
npart( jp,bi,bj) = fltbuf_recvW(ic+1,bi,bj) |
|
./pkg/flt/flt_exchg.F |
514 |
FLT_EXCHG |
tstart(jp,bi,bj) = fltbuf_recvW(ic+2,bi,bj) |
|
./pkg/flt/flt_exchg.F |
515 |
FLT_EXCHG |
ipart( jp,bi,bj) = fltbuf_recvW(ic+3,bi,bj) |
|
./pkg/flt/flt_exchg.F |
516 |
FLT_EXCHG |
jpart( jp,bi,bj) = fltbuf_recvW(ic+4,bi,bj) |
|
./pkg/flt/flt_exchg.F |
517 |
FLT_EXCHG |
kpart( jp,bi,bj) = fltbuf_recvW(ic+5,bi,bj) |
|
./pkg/flt/flt_exchg.F |
518 |
FLT_EXCHG |
kfloat(jp,bi,bj) = fltbuf_recvW(ic+6,bi,bj) |
|
./pkg/flt/flt_exchg.F |
519 |
FLT_EXCHG |
iup( jp,bi,bj) = fltbuf_recvW(ic+7,bi,bj) |
|
./pkg/flt/flt_exchg.F |
520 |
FLT_EXCHG |
itop( jp,bi,bj) = fltbuf_recvW(ic+8,bi,bj) |
|
./pkg/flt/flt_exchg.F |
521 |
FLT_EXCHG |
tend( jp,bi,bj) = fltbuf_recvW(ic+9,bi,bj) |
|
./pkg/flt/flt_runga2.F |
100 |
FLT_RUNGA2 |
scaley=recip_dyF(ic,jc,bi,bj) |
|
./pkg/flt/flt_runga2.F |
101 |
FLT_RUNGA2 |
iG = myXGlobalLo + (bi-1)*sNx + ic-1 |
|
./pkg/flt/flt_runga2.F |
202 |
FLT_RUNGA2 |
ic = MAX( 1-OLx, MIN( NINT(ipart(ip,bi,bj)), sNx+OLx ) ) |
|
./pkg/flt/flt_runga2.F |
222 |
FLT_RUNGA2 |
IF ( maskInC(ic,jc,bi,bj).EQ.0. .AND. |
|
./pkg/flt/flt_runga2.F |
223 |
FLT_RUNGA2 |
& maskC(ic,jc,1,bi,bj).EQ.1. ) THEN |
|
./pkg/flt/flt_runga2.F |
54 |
FLT_RUNGA2 |
INTEGER ic, jc, kc, iG, jG |
|
./pkg/flt/flt_runga2.F |
95 |
FLT_RUNGA2 |
ic=NINT(ix) |
|
./pkg/flt/flt_runga2.F |
99 |
FLT_RUNGA2 |
scalex=recip_dxF(ic,jc,bi,bj) |
|
./pkg/flt/flt_runga4.F |
100 |
FLT_RUNGA4 |
scaley=recip_dyF(ic,jc,bi,bj) |
|
./pkg/flt/flt_runga4.F |
101 |
FLT_RUNGA4 |
iG = myXGlobalLo + (bi-1)*sNx + ic-1 |
|
./pkg/flt/flt_runga4.F |
309 |
FLT_RUNGA4 |
ic = MAX( 1-OLx, MIN( NINT(ipart(ip,bi,bj)), sNx+OLx ) ) |
|
./pkg/flt/flt_runga4.F |
329 |
FLT_RUNGA4 |
IF ( maskInC(ic,jc,bi,bj).EQ.0. .AND. |
|
./pkg/flt/flt_runga4.F |
330 |
FLT_RUNGA4 |
& maskC(ic,jc,1,bi,bj).EQ.1. ) THEN |
|
./pkg/flt/flt_runga4.F |
54 |
FLT_RUNGA4 |
INTEGER ic, jc, kc, iG, jG |
|
./pkg/flt/flt_runga4.F |
95 |
FLT_RUNGA4 |
ic=NINT(ix) |
|
./pkg/flt/flt_runga4.F |
99 |
FLT_RUNGA4 |
scalex=recip_dxF(ic,jc,bi,bj) |
|
./pkg/mnc/mnc_cwrapper.F |
514 |
MNC_CW_ADD_VATTR_ANY |
integer n, nvf,nvl, n1,n2, indv, ic |
|
./pkg/mnc/mnc_cwrapper.F |
567 |
MNC_CW_ADD_VATTR_ANY |
DO ic = 1,MNC_MAX_CATT |
|
./pkg/mnc/mnc_cwrapper.F |
568 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vtat(n,indv)(ic:ic) = ' ' |
|
./pkg/opps/opps_calc.F |
580 |
NLOPPS |
integer ntime,nn,kmx,ic |
|
./pkg/opps/opps_calc.F |
97 |
OPPS_CALC |
INTEGER ntime,nn,kmx,ic |
|
./pkg/ptracers/ptracers_readparms.F |
128 |
PTRACERS_READPARMS |
DO ic = 1,MAX_LEN_FNAM |
|
./pkg/ptracers/ptracers_readparms.F |
129 |
PTRACERS_READPARMS |
PTRACERS_names(iTracer)(ic:ic) = ' ' |
|
./pkg/ptracers/ptracers_readparms.F |
130 |
PTRACERS_READPARMS |
PTRACERS_long_names(iTracer)(ic:ic) = ' ' |
|
./pkg/ptracers/ptracers_readparms.F |
131 |
PTRACERS_READPARMS |
PTRACERS_units(iTracer)(ic:ic) = ' ' |
|
./pkg/ptracers/ptracers_readparms.F |
41 |
PTRACERS_READPARMS |
INTEGER ic |
|
./eesupp/src/write_utils.F |
181 |
WRITE_1D_RL |
INTEGER i, j, ic, i1, i2, nCount |
|
./eesupp/src/write_utils.F |
213 |
WRITE_1D_RL |
ic = (lFld-1)*(j-1)/4 |
|
./eesupp/src/write_utils.F |
214 |
WRITE_1D_RL |
i1 = 1+ic-2 |
|
./eesupp/src/write_utils.F |
215 |
WRITE_1D_RL |
i2 = 1+ic+2 |
|
./eesupp/src/write_utils.F |
216 |
WRITE_1D_RL |
IF ( ic*4 .LT. (lFld-1)*(j-1) ) i2=i2+1 |
|
./pkg/debug/debug_cs_corner_uv.F |
100 |
DEBUG_CS_CORNER_UV |
ic = MAX(1,ILNBLNK(word2print)) |
|
./pkg/debug/debug_cs_corner_uv.F |
102 |
DEBUG_CS_CORNER_UV |
& word2print(1:ic), ' , index=', j |
|
./pkg/debug/debug_cs_corner_uv.F |
71 |
DEBUG_CS_CORNER_UV |
INTEGER ic, i, j |