| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/GGL90.h |
91 |
NO PROCEDURE |
COMMON /GGL90_CORNER/ mskCor |
|
./pkg/ggl90/GGL90.h |
92 |
NO PROCEDURE |
_RL mskCor(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/ggl90/ggl90_calc.F |
559 |
GGL90_CALC |
& p4 * GGL90visctmp(i ,j ,k) * mskCor(i ,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
560 |
GGL90_CALC |
& +p8 *( GGL90visctmp(i-1,j ,k) * mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
561 |
GGL90_CALC |
& + GGL90visctmp(i ,j-1,k) * mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
562 |
GGL90_CALC |
& + GGL90visctmp(i+1,j ,k) * mskCor(i+1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
563 |
GGL90_CALC |
& + GGL90visctmp(i ,j+1,k) * mskCor(i ,j+1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
564 |
GGL90_CALC |
& +p16*( GGL90visctmp(i+1,j+1,k) * mskCor(i+1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
565 |
GGL90_CALC |
& + GGL90visctmp(i+1,j-1,k) * mskCor(i+1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
566 |
GGL90_CALC |
& + GGL90visctmp(i-1,j+1,k) * mskCor(i-1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
567 |
GGL90_CALC |
& + GGL90visctmp(i-1,j-1,k) * mskCor(i-1,j-1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
570 |
GGL90_CALC |
& +p8 *( maskC(i-1,j ,k,bi,bj) * mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
571 |
GGL90_CALC |
& + maskC(i ,j-1,k,bi,bj) * mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
572 |
GGL90_CALC |
& + maskC(i+1,j ,k,bi,bj) * mskCor(i+1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
573 |
GGL90_CALC |
& + maskC(i ,j+1,k,bi,bj) * mskCor(i ,j+1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
574 |
GGL90_CALC |
& +p16*( maskC(i+1,j+1,k,bi,bj) * mskCor(i+1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
575 |
GGL90_CALC |
& + maskC(i+1,j-1,k,bi,bj) * mskCor(i+1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
576 |
GGL90_CALC |
& + maskC(i-1,j+1,k,bi,bj) * mskCor(i-1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
577 |
GGL90_CALC |
& + maskC(i-1,j-1,k,bi,bj) * mskCor(i-1,j-1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
578 |
GGL90_CALC |
& )*maskC(i,j,k,bi,bj)*mskCor(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
594 |
GGL90_CALC |
& p4 *(GGL90visctmp(i ,j ,k) * mskCor(i ,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
595 |
GGL90_CALC |
& +GGL90visctmp(i-1,j ,k) * mskCor(i-1,j ,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
596 |
GGL90_CALC |
& +p8 *(GGL90visctmp(i-1,j-1,k) * mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
597 |
GGL90_CALC |
& +GGL90visctmp(i-1,j+1,k) * mskCor(i-1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
598 |
GGL90_CALC |
& +GGL90visctmp(i ,j-1,k) * mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
599 |
GGL90_CALC |
& +GGL90visctmp(i ,j+1,k) * mskCor(i ,j+1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
602 |
GGL90_CALC |
& +p8 *( maskC(i-1,j-1,k,bi,bj) * mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
603 |
GGL90_CALC |
& + maskC(i-1,j+1,k,bi,bj) * mskCor(i-1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
604 |
GGL90_CALC |
& + maskC(i ,j-1,k,bi,bj) * mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
605 |
GGL90_CALC |
& + maskC(i ,j+1,k,bi,bj) * mskCor(i ,j+1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
607 |
GGL90_CALC |
& *maskC(i ,j,k,bi,bj)*mskCor(i ,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
608 |
GGL90_CALC |
& *maskC(i-1,j,k,bi,bj)*mskCor(i-1,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
627 |
GGL90_CALC |
& p4 *(GGL90visctmp(i ,j ,k) * mskCor(i ,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
628 |
GGL90_CALC |
& +GGL90visctmp(i ,j-1,k) * mskCor(i ,j-1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
629 |
GGL90_CALC |
& +p8 *(GGL90visctmp(i-1,j ,k) * mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
630 |
GGL90_CALC |
& +GGL90visctmp(i-1,j-1,k) * mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
631 |
GGL90_CALC |
& +GGL90visctmp(i+1,j ,k) * mskCor(i+1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
632 |
GGL90_CALC |
& +GGL90visctmp(i+1,j-1,k) * mskCor(i+1,j-1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
635 |
GGL90_CALC |
& +p8 *( maskC(i-1,j ,k,bi,bj) * mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
636 |
GGL90_CALC |
& + maskC(i-1,j-1,k,bi,bj) * mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
637 |
GGL90_CALC |
& + maskC(i+1,j ,k,bi,bj) * mskCor(i+1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
638 |
GGL90_CALC |
& + maskC(i+1,j-1,k,bi,bj) * mskCor(i+1,j-1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
640 |
GGL90_CALC |
& *maskC(i,j ,k,bi,bj)*mskCor(i,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
641 |
GGL90_CALC |
& *maskC(i,j-1,k,bi,bj)*mskCor(i,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_init_fixed.F |
51 |
GGL90_INIT_FIXED |
mskCor(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ggl90/ggl90_init_fixed.F |
56 |
GGL90_INIT_FIXED |
& mskCor, bi,bj, myThid ) |