trunk/dyn3d/ener.f

module ener

  ! From ener.h, v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin

  use dimens_m, only: llm
  
  implicit none

  private llm

  REAL ang0, etot0, ptot0, ztot0, stot0, ang, etot, ptot, ztot, stot, rmsdpdt
  real rmsv, gtot(llm-1)

  save

end module ener
1	guez	3	module ener
2
3			! From ener.h, v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin
4
5			use dimens_m, only: llm
6
7			implicit none
8
9			private llm
10
11			REAL ang0, etot0, ptot0, ztot0, stot0, ang, etot, ptot, ztot, stot, rmsdpdt
12			real rmsv, gtot(llm-1)
13
14			save
15
16			end module ener