Changeset 9230


Ignore:
Timestamp:
2018-01-15T14:38:00+01:00 (3 years ago)
Author:
jpalmier
Message:

JPALM — remove the accidently added COARE bulk patch

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  
    851851      CALL wrk_alloc( jpi,jpj, rgt33 ) 
    852852      ! 
    853 #if defined key_coare_bulk_patch 
    854      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 #else 
    860853      !! When wind speed > 33 m/s => Cyclone conditions => special treatment 
    861854      rgt33 = 0.5_wp + SIGN( 0.5_wp, (zw10 - 33._wp) )   ! If zw10 < 33. => 0, else => 1   
     
    863856         &       (1._wp - rgt33)*( 2.7_wp/zw10 + 0.142_wp + zw10/13.09_wp - 3.14807E-10*zw10**6) & ! zw10< 33. 
    864857         &      + rgt33         *      2.34   )                                                    ! zw10 >= 33. 
    865 #endif 
    866858      ! 
    867859      CALL wrk_dealloc( jpi,jpj, rgt33) 
Note: See TracChangeset for help on using the changeset viewer.