Changeset 5489 for LMDZ6/branches/contrails/libf/phylmd/calcul_fluxs_mod.f90

Timestamp:

Jan 17, 2025, 6:16:25 PM (13 days ago)

Author:

aborella

Message:

Merge with trunk

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/calcul_fluxs_mod.f90 (modified) (1 diff)

LMDZ6/branches/contrails/libf/phylmd/calcul_fluxs_mod.f90

@@ -177 +177 @@
        zx_coefh(i) = cdragh(i) * zx_wind(i) * p1lay(i)/(RD*t1lay(i))
        zx_coefq(i) = cdragq(i) * zx_wind(i) * p1lay(i)/(RD*t1lay(i))
-!      zx_wind(i)=min_wind_speed+SQRT(gustiness(i)+u1lay(i)**2+v1lay(i)**2) &
-!                * p1lay(i)/(RD*t1lay(i))
-!      zx_coefh(i) = cdragh(i) * zx_wind(i)
-!      zx_coefq(i) = cdragq(i) * zx_wind(i)
     ENDDO