Changeset 9613
- Timestamp:
- 2018-05-21T11:29:37+02:00 (7 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 1 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/cfgs/SHARED/namelist_trc_ref
r9572 r9613 11 11 ! 12 12 ! Formatted file of annual hemisperic CFCs concentration in the atmosphere (ppt) 13 clname = 'CFCs_C MIP6.dat'13 clname = 'CFCs_CDIAC.dat' 14 14 / 15 15 ! -
NEMO/trunk/src/TOP/CFC/trcsms_cfc.F90
r9598 r9613 151 151 zv2 = wndm(ji,jj) * wndm(ji,jj) 152 152 zsch = zsch / 660. 153 zak_cfc = ( 0. 31 * xconv2 * zv2 / SQRT(zsch) ) * tmask(ji,jj,1)153 zak_cfc = ( 0.251 * xconv2 * zv2 / SQRT(zsch) ) * tmask(ji,jj,1) 154 154 155 155 ! Input function : speed *( conc. at equil - concen at surface )
Note: See TracChangeset
for help on using the changeset viewer.