365 |
KappaH = KappaM/TKEPrandtlNumber(I,J,K) |
KappaH = KappaM/TKEPrandtlNumber(I,J,K) |
366 |
C Set a minium (= background) value |
C Set a minium (= background) value |
367 |
KappaM = MAX(KappaM,viscAr) |
KappaM = MAX(KappaM,viscAr) |
368 |
KappaH = MAX(KappaH,diffKrT) |
KappaH = MAX(KappaH,diffKrNrT(k)) |
369 |
C Set a maximum and mask land point |
C Set a maximum and mask land point |
370 |
GGL90viscAr(I,J,K,bi,bj) = MIN(KappaM,GGL90viscMax) |
GGL90viscAr(I,J,K,bi,bj) = MIN(KappaM,GGL90viscMax) |
371 |
& * maskC(I,J,K,bi,bj) |
& * maskC(I,J,K,bi,bj) |