/[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.15 by jmc, Tue Oct 17 18:52:34 2006 UTC revision 1.16 by jmc, Tue Nov 28 22:49:29 2006 UTC
# Line 37  CEOP Line 37  CEOP
37    
38        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
39    
40    C--   Set factors required for mixing pressure and meters as vertical coordinate.
41    C     rkSign is a "sign" parameter which is used where the orientation of the vertical
42    C     coordinate (pressure or meters) relative to the vertical index (K) is important.
43    C     rkSign = -1 applies when K and the coordinate are in the opposite sense.
44    C     rkSign =  1 applies when K and the coordinate are in the same sense.
45          rkSign       = -1. _d 0
46          gravitySign  = -1. _d 0
47          IF ( usingPCoords ) THEN
48             gravitySign = 1. _d 0
49          ENDIF
50    
51        IF (setCenterDr) THEN        IF (setCenterDr) THEN
52  C-- Interface at middle between 2 centers :  C-- Interface at middle between 2 centers :
53    
# Line 102  C-- Line 113  C--
113    
114  C-    Calculate reciprol vertical grid spacing :  C-    Calculate reciprol vertical grid spacing :
115        DO K=1,Nr        DO K=1,Nr
        saFac(K)  = 1. _d 0  
116         recip_drC(K)   = 1. _d 0/drC(K)         recip_drC(K)   = 1. _d 0/drC(K)
117         recip_drF(K)   = 1. _d 0/drF(K)         recip_drF(K)   = 1. _d 0/drF(K)
118        ENDDO        ENDDO
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22