Changeset 9230 for branches/NERC/dev_r5518_GO6_conserv_check_up/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90
- Timestamp:
- 2018-01-15T14:38:00+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_GO6_conserv_check_up/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90
r9208 r9230 851 851 CALL wrk_alloc( jpi,jpj, rgt33 ) 852 852 ! 853 #if defined key_coare_bulk_patch854 rgt33 = MIN(zw10, 22.)855 !! cd_neutral_10m = 1.e-3 * ( 2.7/rgt33 + 0.142 + 0.06*rgt33 +856 !! 0.0025*rgt33 **2 - 1.25e-9*rgt33 **6)857 !! A new version May 31st!858 cd_neutral_10m = 1.e-3 * ( 2.4/rgt33 + 0.15 + 0.095*rgt33 + 0.0008*rgt33 **2 - 1.0e-9*rgt33 **6)859 #else860 853 !! When wind speed > 33 m/s => Cyclone conditions => special treatment 861 854 rgt33 = 0.5_wp + SIGN( 0.5_wp, (zw10 - 33._wp) ) ! If zw10 < 33. => 0, else => 1 … … 863 856 & (1._wp - rgt33)*( 2.7_wp/zw10 + 0.142_wp + zw10/13.09_wp - 3.14807E-10*zw10**6) & ! zw10< 33. 864 857 & + rgt33 * 2.34 ) ! zw10 >= 33. 865 #endif866 858 ! 867 859 CALL wrk_dealloc( jpi,jpj, rgt33)
Note: See TracChangeset
for help on using the changeset viewer.