source: trunk/LMDZ.GENERIC/libf/dyn3d/ener_mod.F90 @ 1422

Last change on this file since 1422 was 1422, checked in by milmd, 10 years ago

In GENERIC, MARS and COMMON models replace some include files by modules (usefull for decoupling physics with dynamics).
File size: 196 bytes
Line 
1MODULE ener_mod
2
3IMPLICIT NONE 
4
5include "dimensions.h"
6include "paramet.h"
7
8      REAL ang0,etot0,ptot0,ztot0,stot0,                        &
9                ang,etot,ptot,ztot,stot,rmsdpdt,rmsv,gtot(llmm1)
10
11
12END MODULE ener_mod
Note: See TracBrowser for help on using the repository browser.