Changeset 1785 in lmdz_wrf

Timestamp:

Mar 1, 2018, 1:17:27 PM (7 years ago)

Author:

lfita

Message:

Adding the right equations on `windz_log'

File:

• trunk/tools/module_ForDiagnosticsVars.f90 (modified) (1 diff)

trunk/tools/module_ForDiagnosticsVars.f90

@@ -1114 +1114 @@
   SUBROUTINE var_zwind_log(d1, u, v, z, u10, v10, sa, ca, newz, unewz, vnewz)
 ! Subroutine to extrapolate the wind at a given height following the 'logarithmic law' methodology
-!    wss[newz] = wss[z1]*(newz/z1)**alpha
-!    alpha = (ln(wss[z2])-ln(wss[z1]))/(ln(z2)-ln(z1))
+!    wsz = wss[z2]*(ln(newz)-ln(z0))(ln(z2)-ln(z0))
+!    ln(z0) = (ws(z2)*ln(z1)-ws(z1)*ln(z2))/(ws(z2)-ws(z1))
 ! AFTER: Phd Thesis: 
 !   Benedicte Jourdier. Ressource eolienne en France metropolitaine : methodes d’evaluation du