| 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 inody = 1,2 |
|
./pkg/streamice/streamice_cg_functions.F |
287 |
STREAMICE_CG_MAKE_A |
if (STREAMICE_umask(i-1+inodx,j-1+inody,bi,bj) |
|
./pkg/streamice/streamice_cg_functions.F |
289 |
STREAMICE_CG_MAKE_A |
& streamice_vmask(i-1+inodx,j-1+inody,bi,bj).eq.1.0) |
|
./pkg/streamice/streamice_cg_functions.F |
292 |
STREAMICE_CG_MAKE_A |
m_i = 2*(inody-1)+inodx |
|
./pkg/streamice/streamice_cg_functions.F |
297 |
STREAMICE_CG_MAKE_A |
if (inody.eq.jq) ilqy = 2 |
|
./pkg/streamice/streamice_cg_functions.F |
298 |
STREAMICE_CG_MAKE_A |
phival(inodx,inody) = Xquad(ilqx)*Xquad(ilqy) |
|
./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 |
325 |
STREAMICE_CG_MAKE_A |
& (inodx.eq.1 .and. inody.eq.1) .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 |
350 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)= |
|
./pkg/streamice/streamice_cg_functions.F |
352 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval |
|
./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 |
371 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)= |
|
./pkg/streamice/streamice_cg_functions.F |
373 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval |
|
./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 |
387 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
392 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)= |
|
./pkg/streamice/streamice_cg_functions.F |
394 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval |
|
./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 |
408 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
413 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)= |
|
./pkg/streamice/streamice_cg_functions.F |
415 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval |
|
./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 |
428 |
STREAMICE_CG_MAKE_A |
tmpval = .25*phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
433 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)= |
|
./pkg/streamice/streamice_cg_functions.F |
435 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval |
|
./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 |
447 |
STREAMICE_CG_MAKE_A |
tmpval = .25*phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
452 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)= |
|
./pkg/streamice/streamice_cg_functions.F |
454 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+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 |
487 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)= |
|
./pkg/streamice/streamice_cg_functions.F |
489 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval |
|
./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 |
507 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)= |
|
./pkg/streamice/streamice_cg_functions.F |
509 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval |
|
./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 |
522 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
527 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)= |
|
./pkg/streamice/streamice_cg_functions.F |
529 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval |
|
./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 |
542 |
STREAMICE_CG_MAKE_A |
& visc_streamice(i,j,bi,bj) * phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
547 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)= |
|
./pkg/streamice/streamice_cg_functions.F |
549 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval |
|
./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 |
560 |
STREAMICE_CG_MAKE_A |
tmpval = .25*phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
565 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)= |
|
./pkg/streamice/streamice_cg_functions.F |
567 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval |
|
./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 |
578 |
STREAMICE_CG_MAKE_A |
tmpval = .25*phival(inodx,inody) * |
|
./pkg/streamice/streamice_cg_functions.F |
583 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)= |
|
./pkg/streamice/streamice_cg_functions.F |
585 |
STREAMICE_CG_MAKE_A |
& (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval |
|
./pkg/streamice/streamice_cg_functions.F |
587 |
STREAMICE_CG_MAKE_A |
IF (.not. (inodx.eq.jnodx .and. inody.eq.jnody)) THEN |