source: LMDZ4/trunk/libf/dyn3d/advtrac.h @ 1025

Last change on this file since 1025 was 962, checked in by Laurent Fairhead, 16 years ago

Un peu de menage pour avoir moins de sorties a la compilation sur Nec
LF
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.3 KB
RevLine 
[524]1!
2! $Header$
3!
[908]4!-----------------------------------------------------------------------
5! INCLUDE 'advtrac.h'
6!
7!
8!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
9!                 veillez à n'utiliser que des ! pour les commentaires
10!                 et à bien positionner les & des lignes de continuation
11!                 (les placer en colonne 6 et en colonne 73)
12!
[524]13
[908]14      COMMON/advtr/iadv, hadv, vadv, tnom, tname, ttext, niadv,         &
15     &   nbtrac, nprath, mmt_adj, hadv_flg, vadv_flg, conv_flg,         &
16     &   pbl_flg, tracnam
[524]17      INTEGER iadv(nqmx) ! indice schema de transport
18      INTEGER hadv(nqmx) ! indice schema transport horizontal
19      INTEGER vadv(nqmx) ! indice schema transport vertical
20      INTEGER niadv(nqmx) ! equivalent dyn / physique
[962]21      character (len=8) :: tnom(nqmx) ! nom court du traceur
22      character (len=10) :: tname(nqmx) ! nom du traceur pour restart
23      character (len=13) :: ttext(nqmx) ! nom long du traceur pour sorties
[762]24
25
26      integer nbtrac
27      integer nprath
28      real    mmt_adj(iim+1,jjm+1,llm, 1) 
29      integer hadv_flg(nqmx)
30      integer vadv_flg(nqmx)
31      integer conv_flg(nqmx-2) 
32      integer pbl_flg(nqmx-2)
[962]33      character (len=8) :: tracnam(nqmx-2) 
[908]34!-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.