137 |
KappaE(I,J,K) = 0. _d 0 |
KappaE(I,J,K) = 0. _d 0 |
138 |
TKEPrandtlNumber(I,J,K) = 1. _d 0 |
TKEPrandtlNumber(I,J,K) = 1. _d 0 |
139 |
GGL90mixingLength(I,J,K) = GGL90mixingLengthMin |
GGL90mixingLength(I,J,K) = GGL90mixingLengthMin |
140 |
|
GGL90visctmp(I,J,K) = 0. _d 0 |
141 |
ENDDO |
ENDDO |
142 |
ENDDO |
ENDDO |
143 |
ENDDO |
ENDDO |
539 |
C end of time step |
C end of time step |
540 |
C =============================== |
C =============================== |
541 |
|
|
542 |
DO K=1,Nr |
DO K=2,Nr |
543 |
DO J=jMin,jMax |
DO J=1,sNy |
544 |
DO I=iMin,iMax |
DO I=1,sNx |
545 |
#ifdef ALLOW_GGL90_SMOOTH |
#ifdef ALLOW_GGL90_SMOOTH |
546 |
tmpVisc= |
tmpVisc= |
547 |
& ( |
& ( |
576 |
|
|
577 |
|
|
578 |
|
|
579 |
DO K=1,Nr |
DO K=2,Nr |
580 |
DO J=jMin,jMax |
DO J=1,sNy |
581 |
DO I=iMin,iMax |
DO I=1,sNx+1 |
582 |
#ifdef ALLOW_GGL90_SMOOTH |
#ifdef ALLOW_GGL90_SMOOTH |
583 |
tmpVisc = |
tmpVisc = |
584 |
& ( |
& ( |
610 |
ENDDO |
ENDDO |
611 |
|
|
612 |
|
|
613 |
DO K=1,Nr |
DO K=2,Nr |
614 |
DO J=jMin,jMax |
DO J=1,sNy+1 |
615 |
DO I=iMin,iMax |
DO I=1,sNx |
616 |
#ifdef ALLOW_GGL90_SMOOTH |
#ifdef ALLOW_GGL90_SMOOTH |
617 |
tmpVisc = |
tmpVisc = |
618 |
& ( |
& ( |