New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
#2686 (use of charnock coefficient from wave model in sbcblk_algo_ecmwf) – NEMO

#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)

ChangesetAuthorTimeChangeLog
15387amoulin2021-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

In 15387:

Error: Failed to load processor CommitTicketReference
No macro or processor named 'CommitTicketReference' found

comment:2 Changed 10 months ago by amoulin

  • Resolution set to fixed
  • Status changed from new to closed
Note: See TracTickets for help on using tickets.