450 |
CML IDEMIX_RiNumber = 1./GGL90eps |
CML IDEMIX_RiNumber = 1./GGL90eps |
451 |
IDEMIX_RiNumber = MAX( KappaM*Nsquare(i,j,k), 0. _d 0)/ |
IDEMIX_RiNumber = MAX( KappaM*Nsquare(i,j,k), 0. _d 0)/ |
452 |
& (GGL90eps+IDEMIX_tau_d(i,j,k,bi,bj)*IDEMIX_E(i,j,k,bi,bj)**2) |
& (GGL90eps+IDEMIX_tau_d(i,j,k,bi,bj)*IDEMIX_E(i,j,k,bi,bj)**2) |
453 |
prTemp = MIN(5.*RiNumber, 6.6*IDEMIX_RiNumber) |
prTemp = MIN(5.*RiNumber, 6.6 _d 0*IDEMIX_RiNumber) |
454 |
#else |
#else |
455 |
prTemp = 1. _d 0 |
prTemp = 1. _d 0 |
456 |
IF ( RiNumber .GE. 0.2 _d 0 ) prTemp = 5. _d 0 * RiNumber |
IF ( RiNumber .GE. 0.2 _d 0 ) prTemp = 5. _d 0 * RiNumber |