Parent Directory
| 
Revision Log
| 
Patch
| trunk/libf/dyn3d/ener.f90 revision 47 by guez, Fri Jul 1 15:00:48 2011 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 |