source: trunk/LMDZ.VENUS/libf/phyvenus/tabcontrol.h @ 3567

Last change on this file since 3567 was 815, checked in by slebonnois, 12 years ago

SL: petites modifs Titan et Venus pour tableau controle dans la physique ; pour Titan, petits details lies a raz_date ; modif chemin ioipsl sur gnome ; + elimination d'un warning etrange dans gcm.F

File size: 510 bytes
RevLine 
[815]1!-------------------------------------------------------------------
2! INCLUDE tabcontrol.h
3!-------------------------------------------------------------------
4
5      INTEGER radpas,chimpas ! frequences d'appel rayonnement, chimie
6      REAL dtime             ! pas temporel de la physique
7
8! tableau de controle
9      INTEGER        length
10      PARAMETER    ( length = 100 )
11      REAL tabcntr0( length       )
12
13
14      COMMON/ctltab_i/radpas,chimpas
15      COMMON/ctltab_r/dtime
16      COMMON/ctltab/tabcntr0
Note: See TracBrowser for help on using the repository browser.