Parent Directory | Revision Log | Patch
trunk/dyn3d/ener.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC | trunk/Sources/dyn3d/ener.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC | |
---|---|---|
# | Line 2 module ener | Line 2 module ener |
2 | ||
3 | ! From ener.h, v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin | ! From ener.h, v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin |
4 | ||
use dimens_m, only: llm | ||
5 | implicit none | implicit none |
6 | ||
7 | private llm | REAL, save:: ang0, etot0, ptot0, ztot0, stot0 |
REAL ang0, etot0, ptot0, ztot0, stot0, ang, etot, ptot, ztot, stot, rmsdpdt | ||
real rmsv | ||
save | ||
8 | ||
9 | end module ener | end module ener |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |