87 |
C assign a minium ( = background ) value |
C assign a minium ( = background ) value |
88 |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscTmp,viscAr) |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscTmp,viscAr) |
89 |
PPdiffKr(I,J,K,bi,bj) = MAX(PPviscAr(I,J,K,bi,bj)/denom, |
PPdiffKr(I,J,K,bi,bj) = MAX(PPviscAr(I,J,K,bi,bj)/denom, |
90 |
& diffKrT) |
& diffKrNrT(k)) |
91 |
CML if ( k.eq.2 .and. i.ge.1 .and. i.le.sNx .and. j.eq.1) |
CML if ( k.eq.2 .and. i.ge.1 .and. i.le.sNx .and. j.eq.1) |
92 |
CML & print '(A,3I3,5E14.5)', 'ml-pp81', I,J,K, RiLimit, |
CML & print '(A,3I3,5E14.5)', 'ml-pp81', I,J,K, RiLimit, |
93 |
CML & RiNumber(I,J),denom, |
CML & RiNumber(I,J),denom, |