/[lmdze]/trunk/libf/dyn3d/ener.f90
ViewVC logotype

Contents of /trunk/libf/dyn3d/ener.f90

Parent Directory Parent Directory | Revision Log Revision Log


Revision 47 - (show annotations)
Fri Jul 1 15:00:48 2011 UTC (12 years, 10 months ago) by guez
File size: 247 byte(s)
Split "thermcell.f" and "cv3_routines.f".
Removed copies of files that are now in "L_util".
Moved "mva9" and "diagetpq" to their own files.
Unified variable names across procedures.

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
13
14 save
15
16 end module ener

  ViewVC Help
Powered by ViewVC 1.1.21