Changeset 8210 for branches/NERC

Timestamp:

2017-06-22T19:02:18+02:00 (7 years ago)

Author:

jpalmier

Message:

JPALM -- add COARE bulk patch for ocean-only forced by coupled-run atm

File:

• branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90 (modified) (2 diffs)

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

@@ -839 +839 @@
       CALL wrk_alloc( jpi,jpj, rgt33 )
       !
+#if defined Colin_bulk
+     rgt33 = MIN(zw10, 22.)
+     !! cd_neutral_10m = 1.e-3 * ( 2.7/rgt33  + 0.142 + 0.06*rgt33  +
+     !!                  0.0025*rgt33 **2 - 1.25e-9*rgt33 **6)
+     !! A new version May 31st!
+      cd_neutral_10m = 1.e-3 * ( 2.4/rgt33  + 0.15 + 0.095*rgt33  + 0.0008*rgt33 **2 - 1.0e-9*rgt33 **6)
+#else
       !! When wind speed > 33 m/s => Cyclone conditions => special treatment
       rgt33 = 0.5_wp + SIGN( 0.5_wp, (zw10 - 33._wp) )   ! If zw10 < 33. => 0, else => 1  
@@ -844 +851 @@
          &       (1._wp - rgt33)*( 2.7_wp/zw10 + 0.142_wp + zw10/13.09_wp - 3.14807E-10*zw10**6) & ! zw10< 33.
          &      + rgt33         *      2.34   )                                                    ! zw10 >= 33.
+#endif
       !
       CALL wrk_dealloc( jpi,jpj, rgt33)