Parent Directory | Revision Log | Revision Graph | Patch
revision 1.2 by adcroft, Wed Jul 29 18:33:48 1998 UTC | revision 1.3 by adcroft, Wed Jul 29 21:37:21 1998 UTC | |
---|---|---|
# | Line 33 C Calculate depths of centers and in | Line 33 C Calculate depths of centers and in |
33 | zFace(K+1) = zFace(K)-delZ(K) | zFace(K+1) = zFace(K)-delZ(K) |
34 | ENDDO | ENDDO |
35 | dzC(1) = delZ(1) * 0.5 _d 0 | dzC(1) = delZ(1) * 0.5 _d 0 |
36 | zC(1) = delZ(1) * 0.5 _d 0 | zC(1) = -delZ(1) * 0.5 _d 0 |
37 | DO K=2,Nz | DO K=2,Nz |
38 | dzC(K) = 0.5 _d 0 *(delZ(K-1)+delZ(K)) | dzC(K) = 0.5 _d 0 *(delZ(K-1)+delZ(K)) |
39 | zC(K) = zC(K) - dzC(K) | zC(K) = zC(K-1) - dzC(K) |
40 | ENDDO | ENDDO |
41 | DO K=1,Nz | DO K=1,Nz |
42 | saFac(K) = 1. D0 | saFac(K) = 1. D0 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |