Changeset 2665 for LMDZ5/trunk/libf/phylmd/flott_gwd_rando_m.F90
- Timestamp:
- Oct 12, 2016, 2:53:20 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/flott_gwd_rando_m.F90
r2333 r2665 120 120 121 121 122 RDISS = 1.! Diffusion parameter122 RDISS = 0.5 ! Diffusion parameter 123 123 ! ONLINE 124 124 RUWMAX=GWD_RANDO_RUWMAX … … 346 346 ! No breaking (Eq.6) 347 347 ! Dissipation (Eq. 8) 348 WWP(JW, :) = WWM(JW, :) * EXP(- 2. * RDISS * PR / (PH(:, LL + 1) &348 WWP(JW, :) = WWM(JW, :) * EXP(- 4. * RDISS * PR / (PH(:, LL + 1) & 349 349 + PH(:, LL)) * ((BV(:, LL + 1) + BV(:, LL)) / 2.)**3 & 350 350 / MAX(ABS(ZOP(JW, :) + ZOM(JW, :)) / 2., ZOISEC)**4 &
Note: See TracChangeset
for help on using the changeset viewer.