Ignore:
Timestamp:
Jul 26, 2024, 5:56:37 PM (3 months ago)
Author:
abarral
Message:

Replace academic.h, alpale.h, comdissip.h, comdissipn.h, comdissnew.h by modules
Remove unused clesph0.h

File:
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/lmdz_comdissipn.f90

    r5131 r5134  
     1! Replaces comdissipn.h
     2MODULE lmdz_comdissipn
     3  IMPLICIT NONE; PRIVATE
     4  PUBLIC tetaudiv, tetaurot, tetah, cdivu, crot, cdivh
    15
    2 ! $Header$
     6  INCLUDE "dimensions.h"
    37
    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 comdissipn.h
    10 
    11       REAL  tetaudiv, tetaurot, tetah, cdivu, crot, cdivh
    12 
    13       COMMON/comdissipn/ tetaudiv(llm),tetaurot(llm),tetah(llm)   ,     &
    14                               cdivu,      crot,         cdivh
    15 
    16 !    Les parametres de ce common proviennent des calculs effectues dans
    17 !             Inidissip  .
    18 
    19 !-----------------------------------------------------------------------
     8  REAL tetaudiv(llm), tetaurot(llm), tetah(llm), cdivu, crot, cdivh
     9END MODULE lmdz_comdissipn
Note: See TracChangeset for help on using the changeset viewer.