Changeset 6140 for trunk/NEMOGCM/NEMO/TOP_SRC/C14b/trcsms_c14b.F90
- Timestamp:
- 2015-12-21T12:35:23+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/C14b/trcsms_c14b.F90
r5836 r6140 49 49 REAL(wp) :: xconv3 = 1.e+3_wp ! conversion from mol/l/atm to mol/m3/atm 50 50 51 !! * Substitutions52 # include "domzgr_substitute.h90"53 51 !!---------------------------------------------------------------------- 54 52 !! NEMO/TOP 3.3 , NEMO Consortium (2010) … … 257 255 & * tmask(ji,jj,1) * ( 1. - fr_i(ji,jj) ) / 2. 258 256 ! Add the surface flux to the trend 259 tra(ji,jj,1,jpc14) = tra(ji,jj,1,jpc14) + qtr_c14(ji,jj) / fse3t(ji,jj,1)257 tra(ji,jj,1,jpc14) = tra(ji,jj,1,jpc14) + qtr_c14(ji,jj) / e3t_n(ji,jj,1) 260 258 261 259 ! cumulation of surface flux at each time step
Note: See TracChangeset
for help on using the changeset viewer.