Changeset 1736 for trunk/NEMO/TOP_SRC/C14b
- Timestamp:
- 2009-11-16T16:49:43+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/C14b/trcsms_c14b.F90
r1459 r1736 134 134 ! Computation of decay coeffcient 135 135 zdemi = 5730. 136 xlambda = LOG(2.) / zdemi / raass136 xlambda = LOG(2.) / zdemi / ( nyear_len(1) * rday ) 137 137 xdecay = EXP( - xlambda * rdt ) 138 138 xaccum = 1.0 - xdecay
Note: See TracChangeset
for help on using the changeset viewer.