Parent Directory | Revision Log | Patch
trunk/dyn3d/pentes_ini.f90 revision 81 by guez, Wed Mar 5 14:38:41 2014 UTC | trunk/Sources/dyn3d/pentes_ini.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC | |
---|---|---|
# | Line 53 SUBROUTINE pentes_ini(q, w, masse, pbaru | Line 53 SUBROUTINE pentes_ini(q, w, masse, pbaru |
53 | REAL dyn1, dyn2, dys1, dys2 | REAL dyn1, dyn2, dys1, dys2 |
54 | REAL qpn, qps, dqzpn, dqzps | REAL qpn, qps, dqzpn, dqzps |
55 | REAL smn, sms, s0n, s0s, sxn(iip1), sxs(iip1) | REAL smn, sms, s0n, s0s, sxn(iip1), sxs(iip1) |
56 | REAL qmin, zq, pente_max | REAL qmin, pente_max |
57 | ||
58 | REAL ssum | REAL ssum |
59 | INTEGER ismax, ismin, lati, latf | INTEGER ismax, ismin, lati, latf |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |