/[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.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)
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22