source: trunk/LMDZ.COMMON/libf/dyn3d_common/ener_mod.F90 @ 3537

Last change on this file since 3537 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
RevLine 
[1422]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.