| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc.F |
141 |
GGL90_CALC |
GGL90visctmp(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
412 |
GGL90_CALC |
GGL90visctmp(i,j,k) = MAX(KappaM,diffKrNrT(k)) |
|
./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 |
580 |
GGL90_CALC |
tmpVisc = GGL90visctmp(i,j,k) |
|
./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 |
611 |
GGL90_CALC |
& (.5 _d 0*(GGL90visctmp(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
612 |
GGL90_CALC |
& +GGL90visctmp(i-1,j,k)) |
|
./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 |
644 |
GGL90_CALC |
& (.5 _d 0*(GGL90visctmp(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
645 |
GGL90_CALC |
& +GGL90visctmp(i,j-1,k)) |
|
./pkg/ggl90/ggl90_calc.F |
99 |
GGL90_CALC |
_RL GGL90visctmp (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |