--- MITgcm/optim/utils.F 2002/11/15 04:03:25 1.2 +++ MITgcm/optim/utils.F 2003/11/11 20:38:27 1.3 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/optim/utils.F,v 1.2 2002/11/15 04:03:25 heimbach Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/optim/utils.F,v 1.3 2003/11/11 20:38:27 edhill Exp $ #include "CPP_EEOPTIONS.h" @@ -34,11 +34,9 @@ lDate = 24 IF ( LEN(string) .LT. lDate ) GOTO 901 string = ' ' -#ifndef TARGET_T3E -#ifndef TARGET_CRAY_VECTOR +#ifdef HAVE_FDATE CALL FDATE( string ) #endif -#endif C 1000 CONTINUE RETURN