/[MITgcm]/MITgcm/optim/utils.F
ViewVC logotype

Diff of /MITgcm/optim/utils.F

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

revision 1.2 by heimbach, Fri Nov 15 04:03:25 2002 UTC revision 1.3 by edhill, Tue Nov 11 20:38:27 2003 UTC
# Line 34  C Line 34  C
34        lDate = 24        lDate = 24
35        IF ( LEN(string) .LT. lDate ) GOTO 901        IF ( LEN(string) .LT. lDate ) GOTO 901
36        string = ' '        string = ' '
37  #ifndef TARGET_T3E  #ifdef HAVE_FDATE
 #ifndef TARGET_CRAY_VECTOR  
38        CALL FDATE( string )        CALL FDATE( string )
39  #endif  #endif
 #endif  
40  C    C  
41   1000 CONTINUE   1000 CONTINUE
42        RETURN        RETURN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22