Parent Directory | Revision Log | Revision Graph | Patch
revision 1.3 by adcroft, Wed Jun 6 19:46:43 2001 UTC | revision 1.4 by adcroft, Wed Jun 6 20:31:48 2001 UTC | |
---|---|---|
# | Line 177 C termP=0.5*( rF(kLev) + min( rF(kL | Line 177 C termP=0.5*( rF(kLev) + min( rF(kL |
177 | termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) ) | termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) ) |
178 | term2=10. _d 0*log(termP/rSurf) | term2=10. _d 0*log(termP/rSurf) |
179 | & *(cos(yC(I,J,bi,bj)*deg2rad)**2) | & *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
180 | thetaLim = 200. _d 0/ ((termP/rSurf)**(2./7.)) | thetaLim = 200. _d 0/ ((termP/rSurf)**(2. _d 0/7. _d 0)) |
181 | thetaEq=315. _d 0-term1-term2 | thetaEq=315. _d 0-term1-term2 |
182 | thetaEq=MAX(thetaLim,thetaEq) | thetaEq=MAX(thetaLim,thetaEq) |
183 | kT=ka+(ks-ka) | kT=ka+(ks-ka) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |