/[MITgcm]/MITgcm/model/src/ini_vertical_grid.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_vertical_grid.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch 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
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22