Parent Directory | Revision Log | Revision Graph | Patch
revision 1.9 by adcroft, Tue May 18 17:42:35 1999 UTC | revision 1.10 by adcroft, Fri Feb 2 21:04:48 2001 UTC | |
---|---|---|
# | Line 28 C K | Line 28 C K |
28 | INTEGER K | INTEGER K |
29 | ||
30 | C Calculate depths of centers and interfaces | C Calculate depths of centers and interfaces |
31 | rF(1) = 0. _d 0 | rF(1) = Ro_SeaLevel |
32 | DO K=1,Nr | DO K=1,Nr |
33 | drF(K) = delR(K) | drF(K) = delR(K) |
34 | rF(K+1) = rF(K)-rkFac*delR(K) | rF(K+1) = rF(K)-rkFac*delR(K) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |