Changeset 5363 for LMDZ6/trunk/libf
- Timestamp:
- Dec 3, 2024, 8:26:45 AM (13 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90
r5310 r5363 849 849 CALL histwrite_phy(o_sicf, zx_tmp_fi2d) 850 850 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 852 859 CALL histwrite_phy(o_ustar, zx_tmp_fi2d) 853 860 CALL histwrite_phy(o_u10m, zu10m)
Note: See TracChangeset
for help on using the changeset viewer.