Changeset 4529 for trunk/NEMOGCM/NEMO/TOP_SRC/par_trc.F90
- Timestamp:
- 2014-03-15T12:00:04+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/par_trc.F90
r4230 r4529 38 38 # endif 39 39 40 REAL(wp), PUBLIC :: rtrn = 1.e-15 !: truncation value40 REAL(wp), PUBLIC :: rtrn = 0.5 * EPSILON( 1.e0 ) !: truncation value 41 41 42 42 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.