/[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.8 by adcroft, Wed Mar 15 16:00:52 2000 UTC revision 1.9 by heimbach, Wed Jun 21 20:44:06 2000 UTC
# Line 35  C Line 35  C
35        IF ( LEN(string) .LT. lDate ) GOTO 901        IF ( LEN(string) .LT. lDate ) GOTO 901
36        string = ' '        string = ' '
37  #ifndef TARGET_T3E  #ifndef TARGET_T3E
38    #ifndef TARGET_CRAY_VECTOR
39        CALL FDATE( string )        CALL FDATE( string )
40  #endif  #endif
41    #endif
42  C    C  
43   1000 CONTINUE   1000 CONTINUE
44        RETURN        RETURN
# Line 190  C Line 192  C
192        strTmp = 'UNKNOWN'        strTmp = 'UNKNOWN'
193        iFree  = 1        iFree  = 1
194        idSize = LEN(string)        idSize = LEN(string)
195  #ifdef TARGET_T3E  #if (defined (TARGET_T3E) || defined (TARGET_CRAY_VECTOR))
196        IFirst = 0        IFirst = 0
197        CALL PXFGETENV('USER',iFirst,strTmp,ILast,Iend  )        CALL PXFGETENV('USER',iFirst,strTmp,ILast,Iend  )
198  #else  #else
# Line 210  C Line 212  C
212          ENDIF          ENDIF
213        ENDIF        ENDIF
214        strTmp = 'UNKNOWN'        strTmp = 'UNKNOWN'
215  #ifdef TARGET_T3E  #if (defined (TARGET_T3E) || defined (TARGET_CRAY_VECTOR))
216        IFirst = 0        IFirst = 0
217        CALL PXFGETENV('HOST',iFirst,strTmp,ILast,Iend  )        CALL PXFGETENV('HOST',iFirst,strTmp,ILast,Iend  )
218  #else  #else
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22