/[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.5 by cnh, Sun Sep 6 14:45:11 1998 UTC revision 1.6 by cnh, Mon Nov 2 03:34:12 1998 UTC
# Line 45  C      drC(K)     = 0.5 _d 0 *(delZ(K-1) Line 45  C      drC(K)     = 0.5 _d 0 *(delZ(K-1)
45  C      rC(K)      = rC(K-1) - drC(K)  C      rC(K)      = rC(K-1) - drC(K)
46        ENDDO        ENDDO
47        DO K=1,Nr        DO K=1,Nr
48         saFac(K)  = 1. D0         saFac(K)  = 1. _d 0
49         recip_drC(K)   = 1. _d 0/drC(K)         recip_drC(K)   = 1. _d 0/drC(K)
50         recip_drF(K)   = 1. _d 0/drF(K)         recip_drF(K)   = 1. _d 0/drF(K)
51        ENDDO        ENDDO
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22