Parent Directory | Revision Log | Patch
trunk/Sources/phylmd/clvent.f revision 247 by guez, Fri Jan 5 14:45:45 2018 UTC | trunk/phylmd/Interface_surf/clvent.f revision 287 by guez, Tue Jul 24 15:26:36 2018 UTC | |
---|---|---|
# | Line 11 contains | Line 11 contains |
11 | ! Date: 1993/08/18 | ! Date: 1993/08/18 |
12 | ! Objet : diffusion verticale de la vitesse | ! Objet : diffusion verticale de la vitesse |
13 | ||
USE dimphy, ONLY: klev | ||
14 | use nr_util, only: assert | use nr_util, only: assert |
15 | ||
16 | USE dimphy, ONLY: klev | |
17 | USE suphec_m, ONLY: rd, rg | USE suphec_m, ONLY: rd, rg |
18 | ||
19 | REAL, intent(in):: dtime ! intervalle de temps (en s) | REAL, intent(in):: dtime ! intervalle de temps (en s) |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |