[MITgcm-support] REAL_D0_IS_16BYTES
Dimitris Menemenlis
menemenlis at jpl.nasa.gov
Tue Nov 11 18:09:23 EST 2003
In CPP_EEMACROS.h, Benny noticed that:
#ifdef REAL_D0_IS_16BYTES
#define _d
#define _F64( a ) a
#endif
which means, for example, that if REAL_D0_IS_16BYTES is defined, in
pkg/mom_vecinv/mom_vi_u_coriolis.F: epsil = 1. _d -9
you get
epsil = 1. -9
instead of
epsil = 1. D -9
This OK?
D.
--
Dimitris Menemenlis <menemenlis at jpl.nasa.gov>
Jet Propulsion Lab, California Insitute of Technology
MS 300-323, 4800 Oak Grove Dr, Pasadena CA 91109-8099
tel: 818-354-1656; fax: 818-393-6720
More information about the MITgcm-support
mailing list