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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.12 by cnh, Sat Aug 22 17:51:08 1998 UTC revision 1.13 by cnh, Mon Sep 7 16:23:11 1998 UTC
# Line 36  C     iG, jG - Global coordinate index Line 36  C     iG, jG - Global coordinate index
36  C     bi,bj  - Loop counters  C     bi,bj  - Loop counters
37  C     I,J,K  C     I,J,K
38  C     phi    - total depth of model  C     phi    - total depth of model
39    C     oldPrec - Temporary used in controlling binary input dataset precision
40        INTEGER iG, jG        INTEGER iG, jG
41        INTEGER bi, bj        INTEGER bi, bj
42        INTEGER  I,  J, K        INTEGER  I,  J, K
43          INTEGER oldPrec
44        _RL phi        _RL phi
45    
46        _BARRIER        _BARRIER
# Line 69  C          Island Line 71  C          Island
71         ENDDO         ENDDO
72        ELSE        ELSE
73         _BEGIN_MASTER( myThid )         _BEGIN_MASTER( myThid )
74    
75    CcnhDebugStarts
76    C       Force 64-bit IO
77            oldPrec        = readBinaryPrec
78            readBinaryPrec = precFloat64
79    CcnhDEbugEnds
80         CALL READ_FLD_XY_RS( bathyFile, ' ', H, 0, myThid )         CALL READ_FLD_XY_RS( bathyFile, ' ', H, 0, myThid )
81    CcnhDebugStarts
82           readBinaryPrec = oldPrec
83    CcnhdDebugEnds
84    
85         _END_MASTER(myThid)         _END_MASTER(myThid)
86        ENDIF        ENDIF
87        _EXCH_XY_R4(    H, myThid )        _EXCH_XY_R4(    H, myThid )
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22