Opened 15 months ago
Closed 10 months ago
#2686 closed Bug (fixed)
use of charnock coefficient from wave model in sbcblk_algo_ecmwf
| Reported by: | amoulin | Owned by: | systeam |
|---|---|---|---|
| Priority: | low | Milestone: | |
| Component: | SBC | Version: | trunk |
| Severity: | minor | Keywords: | |
| Cc: |
Description
Context
The use of Charnock coefficient from a wave model has been included to sbcblk_algo_ecmwf.F90 during the December merge r14020. It has been deleted in a next merge ( not anymore in r14116)
Analysis
...
Fix
Modify sbcblk_algo_ecmwf.F90
USE sbcwave, ONLY : charn ! wave module
Relace: z0 = charn0_ecmwf*u_star*u_star/grav + 0.11_wp*znu_a/u_star
by:
IF (ln_charn) THEN ! Charnock value if wave coupling
z0 = charn*u_star*u_star/grav + 0.11_wp*znu_a/u_star
ELSE
z0 = charn0_ecmwf*u_star*u_star/grav + 0.11_wp*znu_a/u_star
ENDIF
Replace: z0 = MIN( ABS( alpha_M*ztmp1 + charn0_ecmwf*ztmp2/grav ) , 0.001_wp)
by:
IF (ln_charn) THEN ! Charnock value if wave coupling
z0 = MIN( ABS( alpha_M*ztmp1 + charn*ztmp2/grav ) , 0.001_wp)
ELSE
z0 = MIN( ABS( alpha_M*ztmp1 + charn0_ecmwf*ztmp2/grav ) , 0.001_wp)
ENDIF
Commit History (1)
| Changeset | Author | Time | ChangeLog |
|---|---|---|---|
| 15387 | amoulin | 2021-10-15T19:56:32+02:00 | use of charnock coefficient from wave model in sbcblk_algo_ecmwf -ticket #2686 |
Change History (2)
comment:1 Changed 10 months ago by amoulin
comment:2 Changed 10 months ago by amoulin
- Resolution set to fixed
- Status changed from new to closed
In 15387: