187 |
ENDDO |
ENDDO |
188 |
ENDDO |
ENDDO |
189 |
|
|
190 |
|
C- ensure mixing between first and second level |
191 |
|
IF (mxlSurfFlag) THEN |
192 |
|
DO j=jMin,jMax |
193 |
|
DO i=iMin,iMax |
194 |
|
GGL90mixingLength(i,j,2)=drF(1) |
195 |
|
ENDDO |
196 |
|
ENDDO |
197 |
|
ENDIF |
198 |
|
|
199 |
C- Impose upper and lower bound for mixing length |
C- Impose upper and lower bound for mixing length |
200 |
IF ( mxlMaxFlag .EQ. 0 ) THEN |
IF ( mxlMaxFlag .EQ. 0 ) THEN |
201 |
|
|
244 |
|
|
245 |
ELSEIF ( mxlMaxFlag .EQ. 2 ) THEN |
ELSEIF ( mxlMaxFlag .EQ. 2 ) THEN |
246 |
|
|
|
cgf ensure mixing between first and second level |
|
|
c DO j=jMin,jMax |
|
|
c DO i=iMin,iMax |
|
|
c GGL90mixingLength(i,j,2)=drF(1) |
|
|
c ENDDO |
|
|
c ENDDO |
|
|
cgf |
|
247 |
DO k=2,Nr |
DO k=2,Nr |
248 |
DO j=jMin,jMax |
DO j=jMin,jMax |
249 |
DO i=iMin,iMax |
DO i=iMin,iMax |