Added alias atg for adiabatic_temperature_gradient function

This commit is contained in:
Daniele Tricoli 2011-01-17 05:43:08 +01:00
parent f2bc090609
commit fe0b0451f5
2 changed files with 5 additions and 0 deletions

View file

@ -39,5 +39,7 @@ double sound_speed(double salinity, double temperature, double pressure);
#define svan(salinity, temperature, pressure, sigma) \
specific_volume_anomaly(salinity, temperature, pressure, sigma)
#define atg(salinity, temperature, pressure) \
adiabatic_temperature_gradient(salinity, temperature, pressure)
#endif /* OCEANOGRAPHY_H */

View file

@ -116,6 +116,9 @@ START_TEST(test_adiabatic_temperature_gradient)
2.416120e-04));
ck_assert(cmp_double(adiabatic_temperature_gradient(40, 40, 10000),
3.255976e-04));
/* Test again the first case using the function alias atg. */
ck_assert(cmp_double(atg(25, 0, 0), 1.687100e-05));
}
END_TEST