Ignore:
Timestamp:
Jul 24, 2024, 4:23:34 PM (2 months ago)
Author:
abarral
Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/misc/lmdz_vampir.F90

    r5116 r5117  
    1 module Vampir
     1module lmdz_vampir
    22
    3   INTEGER,parameter :: VTcaldyn=1
    4   INTEGER,parameter :: VTintegre=2
    5   INTEGER,parameter :: VTadvection=3
    6   INTEGER,parameter :: VTdissipation=4
    7   INTEGER,parameter :: VThallo=5
    8   INTEGER,parameter :: VTphysiq=6
    9   INTEGER,parameter :: VTinca=7
    10  
    11   INTEGER,parameter :: nb_inst=7
     3  INTEGER, parameter :: VTcaldyn = 1
     4  INTEGER, parameter :: VTintegre = 2
     5  INTEGER, parameter :: VTadvection = 3
     6  INTEGER, parameter :: VTdissipation = 4
     7  INTEGER, parameter :: VThallo = 5
     8  INTEGER, parameter :: VTphysiq = 6
     9  INTEGER, parameter :: VTinca = 7
     10
     11  INTEGER, parameter :: nb_inst = 7
    1212  INTEGER :: MPE_begin(nb_inst)
    1313  INTEGER :: MPE_end(nb_inst)
    14  
     14
    1515contains
    1616
    … …  
    8383
    8484  END SUBROUTINE  VTe
    85  
    86 end module Vampir
     85
     86end module lmdz_vampir
Note: See TracChangeset for help on using the changeset viewer.