/[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.4 by adcroft, Wed Jun 10 21:38:29 1998 UTC revision 1.5 by cnh, Wed Oct 28 03:11:35 1998 UTC
# Line 40  C Line 40  C
40    901 CONTINUE    901 CONTINUE
41        WRITE(msgBuffer,'(A)')        WRITE(msgBuffer,'(A)')
42       &'                                                       '       &'                                                       '
43        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
44         &SQUEEZE_RIGHT,myThreadId)
45        WRITE(msgBuffer,'(A)')        WRITE(msgBuffer,'(A)')
46       &'*** WARNING WARNING WARNING WARNING WARNING WARNING ***'       &'*** WARNING WARNING WARNING WARNING WARNING WARNING ***'
47        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
48         &SQUEEZE_RIGHT,myThreadId)
49        WRITE(msgBuffer,'(A)')        WRITE(msgBuffer,'(A)')
50       &'procedure: "DATE".'       &'procedure: "DATE".'
51        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
52         &SQUEEZE_RIGHT,myThreadId)
53        WRITE(msgBuffer,'(A)')        WRITE(msgBuffer,'(A)')
54       &'Variable passed to S/R DATE is too small.'       &'Variable passed to S/R DATE is too small.'
55        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
56         &SQUEEZE_RIGHT,myThreadId)
57        WRITE(msgBuffer,'(A)')        WRITE(msgBuffer,'(A)')
58       &' Argument must be at least',lDate,'characters long.'       &' Argument must be at least',lDate,'characters long.'
59        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
60         &SQUEEZE_RIGHT,myThreadId)
61        WRITE(msgBuffer,'(A)')        WRITE(msgBuffer,'(A)')
62       &'*******************************************************'       &'*******************************************************'
63        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
64         &SQUEEZE_RIGHT,myThreadId)
65        GOTO 1000        GOTO 1000
66        END        END
67    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22