| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_cg_functions.F |
241 |
STREAMICE_CG_MAKE_A |
INTEGER iq, jq, inodx, inody, i, j, bi, bj, ilqx, ilqy, m_i, n |
|
./pkg/streamice/streamice_cg_functions.F |
286 |
STREAMICE_CG_MAKE_A |
DO inody = 1,2 |
|
./pkg/streamice/streamice_cg_functions.F |
288 |
STREAMICE_CG_MAKE_A |
if (STREAMICE_umask(i-1+inodx,j-1+inody,bi,bj) |
|
./pkg/streamice/streamice_cg_functions.F |
290 |
STREAMICE_CG_MAKE_A |
& streamice_vmask(i-1+inodx,j-1+inody,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_functions.F |
293 |
STREAMICE_CG_MAKE_A |
m_i = 2*(inody-1)+inodx |
|
./pkg/streamice/streamice_cg_functions.F |
298 |
STREAMICE_CG_MAKE_A |
if (inody.eq.jq) ilqy = 2 |
|
./pkg/streamice/streamice_cg_functions.F |
299 |
STREAMICE_CG_MAKE_A |
phival(inodx,inody) = Xquad(ilqx)*Xquad(ilqy) |
|
./pkg/streamice/streamice_cg_functions.F |
320 |
STREAMICE_CG_MAKE_A |
col_y = mod(inody,2)+jnody-2 |
|
./pkg/streamice/streamice_cg_functions.F |
321 |
STREAMICE_CG_MAKE_A |
coly_rev = mod(jnody,2)+inody-2 |
|
./pkg/streamice/streamice_cg_functions.F |
325 |
STREAMICE_CG_MAKE_A |
IF ( (inodx.eq.jnodx .and. inody.eq.jnody) .or. |
|
./pkg/streamice/streamice_cg_functions.F |
326 |
STREAMICE_CG_MAKE_A |
& (inodx.eq.1 .and. inody.eq.1) .or. |
|
./pkg/streamice/streamice_cg_functions.F |
327 |
STREAMICE_CG_MAKE_A |
& (jnody.eq.2 .and. inody.eq.1) .or. |
|
./pkg/streamice/streamice_cg_functions.F |
351 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
352 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
354 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
355 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)+tmpval |
|
./pkg/streamice/streamice_cg_functions.F |
357 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
360 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
363 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
376 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
377 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
379 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
380 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)+tmpval |
|
./pkg/streamice/streamice_cg_functions.F |
382 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
385 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
388 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
396 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
401 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
402 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
404 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
405 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)+tmpval |
|
./pkg/streamice/streamice_cg_functions.F |
407 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
410 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
413 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
421 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
426 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
427 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
429 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
430 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)+tmpval |
|
./pkg/streamice/streamice_cg_functions.F |
432 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
435 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
438 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
445 |
STREAMICE_CG_MAKE_A |
tmpval = .25*phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
450 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
451 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
453 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
454 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)+tmpval |
|
./pkg/streamice/streamice_cg_functions.F |
456 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
459 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
462 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
468 |
STREAMICE_CG_MAKE_A |
tmpval = .25*phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
473 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
474 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
476 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
477 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)+tmpval |
|
./pkg/streamice/streamice_cg_functions.F |
479 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
482 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
485 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
512 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
513 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
515 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
516 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)+tmpval |
|
./pkg/streamice/streamice_cg_functions.F |
518 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
521 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
524 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
536 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
537 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
539 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
540 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)+tmpval |
|
./pkg/streamice/streamice_cg_functions.F |
542 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
545 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
548 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
555 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
560 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
561 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
563 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
564 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)+tmpval |
|
./pkg/streamice/streamice_cg_functions.F |
566 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
569 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
572 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
579 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
584 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
585 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
587 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
588 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)+tmpval |
|
./pkg/streamice/streamice_cg_functions.F |
590 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
593 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
596 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
601 |
STREAMICE_CG_MAKE_A |
tmpval = .25*phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
606 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
607 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
609 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
610 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)+tmpval |
|
./pkg/streamice/streamice_cg_functions.F |
612 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
615 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
618 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
623 |
STREAMICE_CG_MAKE_A |
tmpval = .25*phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
628 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
629 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
631 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
632 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-2)+tmpval |
|
./pkg/streamice/streamice_cg_functions.F |
634 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
637 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)= |
|
./pkg/streamice/streamice_cg_functions.F |
640 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |