Warning, /pkg/mnc/mnc_test_utils.T is written in an unsupported language. File is not indexed.
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
d2129fb7fc Ed H*0001 C MNC utilities duplicating things in MITgcm
0002
e9b72f2bd9 Ed H*0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
d2129fb7fc Ed H*0004 C Copied from: eesupp/src/utils.F
0005
75987013ac Ed H*0006 INTEGER FUNCTION IFNBLNK( string )
0007 IMPLICIT NONE
0008
0009 C !DESCRIPTION:
0010 C *==========================================================*
0011 C | FUNCTION IFNBLNK |
0012 C | o Find first non-blank in character string. |
0013 C *==========================================================*
0014 C
0015 C !INPUT PARAMETERS:
0016 C string :: String to find first non-blank in.
0017 CHARACTER*(*) string
0018
0019 C !LOCAL VARIABLES:
0020 C L, LS :: Temps for string locations
0021 INTEGER L, LS
0022 CEOP
0023 C
0024 LS = LEN(string)
0025 IFNBLNK = 0
0026 DO 10 L = 1, LS
0027 IF ( string(L:L) .EQ. ' ' ) GOTO 10
0028 IFNBLNK = L
0029 GOTO 11
0030 10 CONTINUE
0031 11 CONTINUE
0032 C
0033 RETURN
0034 END
0035
e9b72f2bd9 Ed H*0036 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
75987013ac Ed H*0037 C Copied from: eesupp/src/utils.F
0038
d2129fb7fc Ed H*0039 INTEGER FUNCTION ILNBLNK( string )
0040 IMPLICIT NONE
0041
0042 C !DESCRIPTION:
0043 C *==========================================================*
0044 C | FUNCTION ILNBLNK |
0045 C | o Find last non-blank in character string. |
0046 C *==========================================================*
0047
0048 C !INPUT PARAMETERS:
0049 C string :: string to scan
0050 CHARACTER*(*) string
0051
0052 C !LOCAL VARIABLES:
0053 C L, LS :: Temps. used in scanning string
0054 INTEGER L, LS
0055 CEOP
0056 C
0057 LS = LEN(string)
0058 c ILNBLNK = LS
0059 ILNBLNK = 0
0060 DO 10 L = LS, 1, -1
0061 IF ( string(L:L) .EQ. ' ' ) GOTO 10
0062 ILNBLNK = L
0063 GOTO 11
0064 10 CONTINUE
0065 11 CONTINUE
0066 C
0067 RETURN
0068 END
0069
e9b72f2bd9 Ed H*0070 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
d2129fb7fc Ed H*0071 C Adapted from: eesupp/src/print.F
0072
0073 SUBROUTINE PRINT_ERROR( message , myThid )
0074 IMPLICIT NONE
0075
0076 CHARACTER*(*) message
0077 INTEGER myThid
0078
0079 print*, '=== BEGIN ERROR ==='
0080 print*, 'MyThid: ', myThid
0081 print*, 'Message:'
0082 print*, message
0083 print*, '=== END ERROR ==='
0084
0085 RETURN
0086 END
0087
0088 CEH3 ;;; Local Variables: ***
0089 CEH3 ;;; mode:fortran ***
0090 CEH3 ;;; End: ***