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

Location:
LMDZ5/trunk/libf/dyn3d_common
Files:
9 edited
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3d_common/adaptdt.F

    r2603 r2622  
    1212      include "comdissip.h"
    1313      include "comgeom2.h"
    14       include "ener.h"
    1514      include "description.h"
    1615

  • 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

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

    r2603 r2622  
    3939  include "paramet.h"
    4040  include "comgeom.h"
    41   include "ener.h"
    4241  include "description.h"
    4342  include "iniprint.h"

  • LMDZ5/trunk/libf/dyn3d_common/initfluxsto.F

    r2603 r2622  
    4545      include "paramet.h"
    4646      include "comgeom.h"
    47       include "ener.h"
    4847      include "description.h"
    4948      include "iniprint.h"

  • LMDZ5/trunk/libf/dyn3d_common/inithist.F

    r2603 r2622  
    4444      include "paramet.h"
    4545      include "comgeom.h"
    46       include "ener.h"
    4746      include "description.h"
    4847      include "iniprint.h"

  • LMDZ5/trunk/libf/dyn3d_common/interpre.F

    r2603 r2622  
    1515      include "comdissip.h"
    1616      include "comgeom2.h"
    17       include "ener.h"
    1817      include "description.h"
    1918

  • LMDZ5/trunk/libf/dyn3d_common/sortvarc.F

    r2603 r2622  
    99      USE comconst_mod, ONLY: dtvr, daysec, g, rad, omeg
    1010      USE logic_mod, ONLY: read_start
    11      
     11      USE ener_mod, ONLY: etot,ptot,ztot,stot,ang,
     12     &                    etot0,ptot0,ztot0,stot0,ang0,
     13     &                    rmsdpdt,rmsv
    1214      IMPLICIT NONE
    1315
    … …  
    3133      INCLUDE "paramet.h"
    3234      INCLUDE "comgeom.h"
    33       INCLUDE "ener.h"
    3435      INCLUDE "iniprint.h"
    3536

  • LMDZ5/trunk/libf/dyn3d_common/traceurpole.F

    r2603 r2622  
    1010      include "comdissip.h"
    1111      include "comgeom2.h"
    12       include "ener.h"
    1312      include "description.h"
    1413

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

    r2603 r2622  
    3434  include "paramet.h"
    3535  include "comgeom.h"
    36   include "ener.h"
    3736  include "description.h"
    3837  include "iniprint.h"

  • LMDZ5/trunk/libf/dyn3d_common/writehist.F

    r2603 r2622  
    3838      include "paramet.h"
    3939      include "comgeom.h"
    40       include "ener.h"
    4140      include "description.h"
    4241      include "iniprint.h"
Note: See TracChangeset for help on using the changeset viewer.