[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