| 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 jnody = 1,2 |
|
./pkg/streamice/streamice_cg_functions.F |
302 |
STREAMICE_CG_MAKE_A |
if (STREAMICE_umask(i-1+jnodx,j-1+jnody,bi,bj) |
|
./pkg/streamice/streamice_cg_functions.F |
304 |
STREAMICE_CG_MAKE_A |
& STREAMICE_vmask(i-1+jnodx,j-1+jnody,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_functions.F |
307 |
STREAMICE_CG_MAKE_A |
m_j = 2*(jnody-1)+jnodx |
|
./pkg/streamice/streamice_cg_functions.F |
311 |
STREAMICE_CG_MAKE_A |
if (jnody.eq.jq) ilqy = 2 |
|
./pkg/streamice/streamice_cg_functions.F |
319 |
STREAMICE_CG_MAKE_A |
col_y = mod(inody,2)+jnody-2 |
|
./pkg/streamice/streamice_cg_functions.F |
320 |
STREAMICE_CG_MAKE_A |
coly_rev = mod(jnody,2)+inody-2 |
|
./pkg/streamice/streamice_cg_functions.F |
324 |
STREAMICE_CG_MAKE_A |
IF ( (inodx.eq.jnodx .and. inody.eq.jnody) .or. |
|
./pkg/streamice/streamice_cg_functions.F |
326 |
STREAMICE_CG_MAKE_A |
& (jnody.eq.2 .and. inody.eq.1) .or. |
|
./pkg/streamice/streamice_cg_functions.F |
327 |
STREAMICE_CG_MAKE_A |
& (jnody.eq.2 .and. jnodx.eq.2)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
354 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
356 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)= |
|
./pkg/streamice/streamice_cg_functions.F |
358 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+ |
|
./pkg/streamice/streamice_cg_functions.F |
375 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
377 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)= |
|
./pkg/streamice/streamice_cg_functions.F |
379 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+ |
|
./pkg/streamice/streamice_cg_functions.F |
396 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
398 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)= |
|
./pkg/streamice/streamice_cg_functions.F |
400 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+ |
|
./pkg/streamice/streamice_cg_functions.F |
417 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
419 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)= |
|
./pkg/streamice/streamice_cg_functions.F |
421 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+ |
|
./pkg/streamice/streamice_cg_functions.F |
437 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
439 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)= |
|
./pkg/streamice/streamice_cg_functions.F |
441 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+ |
|
./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,colx_rev,coly_rev)= |
|
./pkg/streamice/streamice_cg_functions.F |
460 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+ |
|
./pkg/streamice/streamice_cg_functions.F |
491 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
493 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)= |
|
./pkg/streamice/streamice_cg_functions.F |
495 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+ |
|
./pkg/streamice/streamice_cg_functions.F |
511 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
513 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)= |
|
./pkg/streamice/streamice_cg_functions.F |
515 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+ |
|
./pkg/streamice/streamice_cg_functions.F |
531 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
533 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)= |
|
./pkg/streamice/streamice_cg_functions.F |
535 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+ |
|
./pkg/streamice/streamice_cg_functions.F |
551 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
553 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)= |
|
./pkg/streamice/streamice_cg_functions.F |
555 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+ |
|
./pkg/streamice/streamice_cg_functions.F |
569 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
571 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)= |
|
./pkg/streamice/streamice_cg_functions.F |
573 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+ |
|
./pkg/streamice/streamice_cg_functions.F |
587 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |
|
./pkg/streamice/streamice_cg_functions.F |
589 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)= |
|
./pkg/streamice/streamice_cg_functions.F |
591 |
STREAMICE_CG_MAKE_A |
& (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+ |