Ignore:
Timestamp:
Mar 23, 2015, 5:07:43 PM (9 years ago)
Author:
fhourdin
Message:

Revisite de la formule des flux de surface
(en priorité sur l'océan) en tenant compte des bourrasques de
vent et de la différence entre les hauteurs de rugosités pour
la quantité de mouvement, l'enthalpie et éventuellement l'humidité.

Etape 1 :
Introduction d'un calcul de gustiness dans la physique
gustiness(:)=f_gust_bl * ale_bl + f_gust_wk * ame_wk
Cette variable est passée ensuite jusqu'au fin fond de la couche limite.
L'étape 1 est prête à commettre, ne nécessite pas de nouvelles
variables dans les startphy et assure la convergence numérique.

Introduction of gustiness in the surface flux computation.
Gustiness is computed from as
gustiness(:)=f_gust_bl * ale_bl + f_gust_wk * ame_wk
and pass through pbl_surface down to the routines that compute
surface fluxes.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90

    r2227 r2240  
    1414       AcoefH, AcoefQ, BcoefH, BcoefQ, &
    1515       AcoefU, AcoefV, BcoefU, BcoefV, &
    16        ps, u1, v1, rugoro, pctsrf, &
     16       ps, u1, v1, gustiness, rugoro, pctsrf, &
    1717       snow, qsurf, agesno, &
    1818!albedo SB >>>
    … …  
    6262    REAL, DIMENSION(klon), INTENT(IN)        :: AcoefU, AcoefV, BcoefU, BcoefV
    6363    REAL, DIMENSION(klon), INTENT(IN)        :: ps
    64     REAL, DIMENSION(klon), INTENT(IN)        :: u1, v1
     64    REAL, DIMENSION(klon), INTENT(IN)        :: u1, v1, gustiness
    6565    REAL, DIMENSION(klon), INTENT(IN)        :: rugoro
    6666    REAL, DIMENSION(klon,nbsrf), INTENT(IN)  :: pctsrf
    … …  
    118118            AcoefH, AcoefQ, BcoefH, BcoefQ, &
    119119            AcoefU, AcoefV, BcoefU, BcoefV, &
    120             ps, u1, v1, &
     120            ps, u1, v1, gustiness, &
    121121            radsol, snow, agesno, &
    122122            qsurf, evap, fluxsens, fluxlat, flux_u1, flux_v1, &
    … …  
    129129            AcoefH, AcoefQ, BcoefH, BcoefQ, &
    130130            AcoefU, AcoefV, BcoefU, BcoefV, &
    131             ps, u1, v1, tsurf_in, &
     131            ps, u1, v1, gustiness, tsurf_in, &
    132132            radsol, snow, &
    133133            qsurf, evap, fluxsens, fluxlat, flux_u1, flux_v1, &
    … …  
    141141            AcoefH, AcoefQ, BcoefH, BcoefQ, &
    142142            AcoefU, AcoefV, BcoefU, BcoefV, &
    143             ps, u1, v1, &
     143            ps, u1, v1, gustiness, &
    144144            radsol, snow, agesno, &
    145145            qsurf, evap, fluxsens, fluxlat, flux_u1, flux_v1, &
Note: See TracChangeset for help on using the changeset viewer.