Changeset 5363 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Dec 3, 2024, 8:26:45 AM (13 days ago)
Author:
evignon
Message:

Valentin Wiener, Etienne Vignon: ustar dans les sorties n'est plus un diag ad-hoc mais la variable
directement reliée à la tension de vent en surface

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

    r5310 r5363  
    849849       CALL histwrite_phy(o_sicf, zx_tmp_fi2d)
    850850       CALL histwrite_phy(o_q2m, zq2m)
    851        IF (vars_defined) zx_tmp_fi2d = zustar
     851       !IF (vars_defined) zx_tmp_fi2d = zustar
     852       !set ustar output variable as directly related to actual surface stress
     853       IF (vars_defined) THEN
     854          zx_tmp_fi2d=0.
     855          DO nsrf=1,nbsrf
     856             zx_tmp_fi2d(:)=zx_tmp_fi2d(:)+pctsrf(:,nsrf)*((t_seri(:,1)*RD/pplay(:,1))**0.5)*(fluxu(:,1,nsrf)**2+fluxv(:,1,nsrf)**2)**0.25
     857          ENDDO           
     858       ENDIF
    852859       CALL histwrite_phy(o_ustar, zx_tmp_fi2d)
    853860       CALL histwrite_phy(o_u10m, zu10m)
Note: See TracChangeset for help on using the changeset viewer.