Changeset 5213 for branches/2015/dev_r5021_UKMO1_CICE_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90
- Timestamp:
- 2015-04-15T17:03:58+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5021_UKMO1_CICE_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90
r4990 r5213 90 90 !!---------------------------------------------------------------------- 91 91 !! NEMO/OPA 3.7 , NEMO-consortium (2014) 92 !! $Id$93 92 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 94 93 !!---------------------------------------------------------------------- … … 848 847 rgt33 = 0.5_wp + SIGN( 0.5_wp, (zw10 - 33._wp) ) ! If zw10 < 33. => 0, else => 1 849 848 cd_neutral_10m = 1.e-3 * ( & 850 & ( rgt33 + 1._wp)*( 2.7_wp/zw10 + 0.142_wp + zw10/13.09_wp - 3.14807E-10*zw10**6) & ! zw10< 33.849 & (1._wp - rgt33)*( 2.7_wp/zw10 + 0.142_wp + zw10/13.09_wp - 3.14807E-10*zw10**6) & ! zw10< 33. 851 850 & + rgt33 * 2.34 ) ! zw10 >= 33. 852 851 !
Note: See TracChangeset
for help on using the changeset viewer.