/[MITgcm]/MITgcm/eesupp/src/utils.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/utils.F

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

revision 1.2 by cnh, Thu Apr 23 20:37:31 1998 UTC revision 1.3 by cnh, Thu May 21 18:30:08 1998 UTC
# Line 7  C--    Contents Line 7  C--    Contents
7  C-- U DATE            - Returns date and time.  C-- U DATE            - Returns date and time.
8  C--   IFNBLNK         - Returns index of first non-blank string character.  C--   IFNBLNK         - Returns index of first non-blank string character.
9  C--   ILNBLNK         - Returns index of last non-blank string character.  C--   ILNBLNK         - Returns index of last non-blank string character.
10    C--   IO_ERRCOUNT     - Reads IO error counter.
11  C--   LCASE           - Translates to lower case.  C--   LCASE           - Translates to lower case.
12  C--UM MACHINE         - Returns character string identifying computer.  C--UM MACHINE         - Returns character string identifying computer.
13  C--   TIMER_INDEX     - Returns index associated with timer name.  C--   TIMER_INDEX     - Returns index associated with timer name.
# Line 110  C Line 111  C
111        RETURN        RETURN
112        END        END
113    
114    CStartofinterface
115          INTEGER FUNCTION IO_ERRCOUNT(myThid)
116    C     /==========================================================\
117    C     | FUNCTION IO_ERRCOUNT                                     |
118    C     | o Reads IO error counter.                                |
119    C     \==========================================================/
120    
121    C     == Global variables ==
122    #include "SIZE.h"
123    #include "EEPARAMS.h"
124    #include "DFILE.h"
125    
126    C     == Routine arguments ==
127          INTEGER myThid
128    CEndofinterface
129    
130          IO_ERRCOUNT = ioErrorCount(myThid)
131    
132          RETURN
133          END
134    
135  CStartOfInterface  CStartOfInterface
136        SUBROUTINE LCASE ( string )        SUBROUTINE LCASE ( string )
137  C     /==========================================================\  C     /==========================================================\
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22