| 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 |
301 |
STREAMICE_CG_MAKE_A |
DO jnodx = 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 |
311 |
STREAMICE_CG_MAKE_A |
if (jnodx.eq.iq) ilqx = 2 |
|
./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 |
328 |
STREAMICE_CG_MAKE_A |
& (jnody.eq.2 .and. jnodx.eq.2)) THEN |
|
./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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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, |