Changeset 9613 for NEMO/trunk/src/TOP

Timestamp:

2018-05-21T11:29:37+02:00 (6 years ago)

Author:

lovato

Message:

trunk : redo bugfix of CFC gas transfer velocity and add CDIAC forcing file (#2065)

File:

• NEMO/trunk/src/TOP/CFC/trcsms_cfc.F90 (modified) (1 diff)

NEMO/trunk/src/TOP/CFC/trcsms_cfc.F90

@@ -151 +151 @@
                zv2     = wndm(ji,jj) * wndm(ji,jj)
                zsch    = zsch / 660.
-               zak_cfc = ( 0.31 * xconv2 * zv2 / SQRT(zsch) ) * tmask(ji,jj,1)
+               zak_cfc = ( 0.251 * xconv2 * zv2 / SQRT(zsch) ) * tmask(ji,jj,1)
 
                ! Input function  : speed *( conc. at equil - concen at surface )