/[lmdze]/trunk/dyn3d/ener.f
ViewVC logotype

Contents of /trunk/dyn3d/ener.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 47 - (show annotations)
Fri Jul 1 15:00:48 2011 UTC (12 years, 11 months ago) by guez
Original Path: trunk/libf/dyn3d/ener.f90
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