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

Timestamp:

Apr 15, 2025, 11:56:45 AM (2 months ago)

Author:

aborella

Message:

Merge with trunk testing r5597. We have convergence in prod and debug in NPv7.0.1c

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