Ignore:
Timestamp:
2018-03-14T18:18:53+01:00 (4 years ago)
Author:
lovato
Message:

v3.6 stable : Revise CFC gas transfer velocity and add CDIAC forcing file (#2065)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

    r8402 r9400  
    165165               zv2     = wndm(ji,jj) * wndm(ji,jj) 
    166166               zsch    = zsch / 660. 
    167                zak_cfc = ( 0.31 * xconv2 * zv2 / SQRT(zsch) ) * tmask(ji,jj,1) 
     167               zak_cfc = ( 0.251 * xconv2 * zv2 / SQRT(zsch) ) * tmask(ji,jj,1) 
    168168 
    169169               ! Input function  : speed *( conc. at equil - concen at surface ) 
Note: See TracChangeset for help on using the changeset viewer.