| File |
Line number |
Procedure |
Code |
|
./pkg/streamice/streamice_cg_functions.F |
242 |
STREAMICE_CG_MAKE_A |
INTEGER jlqx, jlqy, jnodx,jnody, m_j, col_y, col_x, cg_halo, k |
|
./pkg/streamice/streamice_cg_functions.F |
302 |
STREAMICE_CG_MAKE_A |
DO jnody = 1,2 |
|
./pkg/streamice/streamice_cg_functions.F |
303 |
STREAMICE_CG_MAKE_A |
if (STREAMICE_umask(i-1+jnodx,j-1+jnody,bi,bj) |
|
./pkg/streamice/streamice_cg_functions.F |
305 |
STREAMICE_CG_MAKE_A |
& STREAMICE_vmask(i-1+jnodx,j-1+jnody,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_functions.F |
308 |
STREAMICE_CG_MAKE_A |
m_j = 2*(jnody-1)+jnodx |
|
./pkg/streamice/streamice_cg_functions.F |
312 |
STREAMICE_CG_MAKE_A |
if (jnody.eq.jq) ilqy = 2 |
|
./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 |
327 |
STREAMICE_CG_MAKE_A |
& (jnody.eq.2 .and. inody.eq.1) .or. |
|
./pkg/streamice/streamice_cg_functions.F |
328 |
STREAMICE_CG_MAKE_A |
& (jnody.eq.2 .and. jnodx.eq.2)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
352 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-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 |
359 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
360 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-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 |
363 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
377 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-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 |
384 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
385 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-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 |
388 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
402 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-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 |
409 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
410 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-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 |
413 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
427 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-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 |
434 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
435 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-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 |
438 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
451 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-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 |
458 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
459 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-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 |
462 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
474 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-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 |
481 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
482 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-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 |
485 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
513 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-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 |
520 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
521 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-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 |
524 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
537 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-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 |
544 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
545 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-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 |
548 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
561 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-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 |
568 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
569 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-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 |
572 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
585 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-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 |
592 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
593 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-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 |
596 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
607 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-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 |
614 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
615 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-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 |
618 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |
|
./pkg/streamice/streamice_cg_functions.F |
629 |
STREAMICE_CG_MAKE_A |
& mod(inody,2)+jnody-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 |
636 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,mod(jnodx,2)+inodx-2, |
|
./pkg/streamice/streamice_cg_functions.F |
637 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-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, |
|
./pkg/streamice/streamice_cg_functions.F |
640 |
STREAMICE_CG_MAKE_A |
& mod(jnody,2)+inody-2)+ |