source: trunk/LMDZ.TITAN/libf/phytitan/tabcontrol.h @ 1243

Last change on this file since 1243 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: 585 bytes
Line 
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      REAL lsinit            ! Solar longitude in the startphy file
8
9! tableau de controle
10      INTEGER        length
11      PARAMETER    ( length = 100 )
12      REAL tabcntr0( length       )
13
14
15      COMMON/ctltab_i/radpas,chimpas
16      COMMON/ctltab_r/dtime,lsinit
17      COMMON/ctltab/tabcntr0
Note: See TracBrowser for help on using the repository browser.