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

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

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

revision 1.5 by jmc, Wed Dec 22 23:31:51 2010 UTC revision 1.6 by jmc, Mon Dec 27 14:07:59 2010 UTC
# Line 80  C--   vertical coordinate "R" Line 80  C--   vertical coordinate "R"
80  C--   hybrid sigma vertical coordinate coefficient  C--   hybrid sigma vertical coordinate coefficient
81        IF ( hybSigmFile .NE. ' ' ) THEN        IF ( hybSigmFile .NE. ' ' ) THEN
82          iLen = ILNBLNK(hybSigmFile)          iLen = ILNBLNK(hybSigmFile)
83          CALL READ_GLVEC_RL( hybSigmFile,' ',aHybSigmF,Nr+1, 1,myThid )          CALL READ_GLVEC_RS( hybSigmFile,' ',aHybSigmF,Nr+1, 1,myThid )
84          CALL READ_GLVEC_RL( hybSigmFile,' ',bHybSigmF,Nr+1, 2,myThid )          CALL READ_GLVEC_RS( hybSigmFile,' ',bHybSigmF,Nr+1, 2,myThid )
85          WRITE(msgBuf,'(3A)') 'S/R LOAD_GRID_SPACING:',          WRITE(msgBuf,'(3A)') 'S/R LOAD_GRID_SPACING:',
86       &    ' a&b_HybSigmF loaded from file: ', hybSigmFile(1:iLen)       &    ' a&b_HybSigmF loaded from file: ', hybSigmFile(1:iLen)
87          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22