- Timestamp:
- 2018-03-14T18:18:53+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90
r8402 r9400 165 165 zv2 = wndm(ji,jj) * wndm(ji,jj) 166 166 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) 168 168 169 169 ! Input function : speed *( conc. at equil - concen at surface )
Note: See TracChangeset
for help on using the changeset viewer.