| 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 |
285 |
STREAMICE_CG_MAKE_A |
DO inodx = 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 |
297 |
STREAMICE_CG_MAKE_A |
if (inodx.eq.iq) ilqx = 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 |
318 |
STREAMICE_CG_MAKE_A |
col_x = mod(inodx,2)+jnodx-2 |
|
./pkg/streamice/streamice_cg_functions.F |
319 |
STREAMICE_CG_MAKE_A |
colx_rev = mod(jnodx,2)+inodx-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 |
351 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-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 |
357 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
359 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
362 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-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 |
379 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./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 |
384 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
387 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-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 |
404 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./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 |
409 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
412 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-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 |
429 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./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 |
434 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
437 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-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 |
453 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./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 |
458 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
461 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-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 |
476 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./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 |
481 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
484 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-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 |
515 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./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 |
520 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
523 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-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 |
539 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./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 |
544 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
547 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-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 |
563 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./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 |
568 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
571 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-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 |
587 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./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 |
592 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
595 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-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 |
609 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./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 |
614 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
617 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-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 |
631 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,mod(inodx,2)+jnodx-2, |
|
./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 |
636 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
639 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |