Ignore:
Timestamp:
Sep 4, 2016, 8:12:02 AM (8 years ago)
Author:
Ehouarn Millour
Message:

Some code tidying: turn ener.h into ener_mod.F90
EM

File:
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3d_common/ener_mod.F90

    r2619 r2622  
    22! $Id$
    33!
    4 !  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
    5 !                 veillez à n'utiliser que des ! pour les commentaires
    6 !                 et à bien positionner les & des lignes de continuation
    7 !                 (les placer en colonne 6 et en colonne 73)
    8 !
    9 ! INCLUDE 'ener.h'
     4MODULE ener_mod
    105
    11       COMMON/ener/ang0,etot0,ptot0,ztot0,stot0,                         &
    12      &            ang,etot,ptot,ztot,stot,rmsdpdt ,                     &
    13      &            rmsv,gtot(llmm1)
     6IMPLICIT NONE 
    147
    15       REAL ang0,etot0,ptot0,ztot0,stot0,                                &
    16      &     ang,etot,ptot,ztot,stot,rmsdpdt,rmsv,gtot
     8include "dimensions.h"
     9include "paramet.h"
    1710
    18 !-----------------------------------------------------------------------
     11      REAL ang0,etot0,ptot0,ztot0,stot0,                        &
     12                ang,etot,ptot,ztot,stot,rmsdpdt,rmsv,gtot(llmm1)
     13
     14
     15END MODULE ener_mod
Note: See TracChangeset for help on using the changeset viewer.