--- MITgcm/pkg/dic/dic_write_pickup.F 2013/11/20 16:01:04 1.10 +++ MITgcm/pkg/dic/dic_write_pickup.F 2014/04/04 19:33:48 1.11 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/dic/dic_write_pickup.F,v 1.10 2013/11/20 16:01:04 jmc Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/dic/dic_write_pickup.F,v 1.11 2014/04/04 19:33:48 jmc Exp $ C $Name: $ #include "DIC_OPTIONS.h" @@ -63,13 +63,13 @@ IF ( dic_int1.EQ.3 ) THEN WRITE(fn,'(A,A)') 'pickup_dic_co2atm.',suff ioUnit = 0 -#ifdef ALLOW_AUTODIFF_OPENAD +#ifdef ALLOW_OPENAD tmpFld(1) = total_atmos_carbon%v tmpFld(2) = atpco2%v -#else /* ALLOW_AUTODIFF_OPENAD */ +#else /* ALLOW_OPENAD */ tmpFld(1) = total_atmos_carbon tmpFld(2) = atpco2 -#endif /* ALLOW_AUTODIFF_OPENAD */ +#endif /* ALLOW_OPENAD */ #ifdef ALLOW_MDSIO CALL MDS_WRITEVEC_LOC( I fn, prec, ioUnit,