libf/dyn3d/ener.f90

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	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