/[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.14 by jmc, Wed Jun 22 00:25:32 2005 UTC revision 1.15 by jmc, Tue Oct 17 18:52:34 2006 UTC
# Line 35  C     msgBuf   :: Informational/error me Line 35  C     msgBuf   :: Informational/error me
35        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
36  CEOP  CEOP
37    
38          _BEGIN_MASTER(myThid)
39    
40        IF (setCenterDr) THEN        IF (setCenterDr) THEN
41  C-- Interface at middle between 2 centers :  C-- Interface at middle between 2 centers :
42    
# Line 105  C-    Calculate reciprol vertical grid s Line 107  C-    Calculate reciprol vertical grid s
107         recip_drF(K)   = 1. _d 0/drF(K)         recip_drF(K)   = 1. _d 0/drF(K)
108        ENDDO        ENDDO
109    
110          _END_MASTER(myThid)
111          _BARRIER
112    
113        RETURN        RETURN
114        END        END
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22