source: trunk/libf/dyn3d/logic.h @ 123

Last change on this file since 123 was 119, checked in by slebonnois, 14 years ago

Sebastien Lebonnois: apres validation des versions Venus et Titan,
correction d'un certain nombre de bugs.
File size: 774 bytes
RevLine 
[1]1!
2! $Id: logic.h 1319 2010-02-23 21:29:54Z fairhead $
3!
4!
5!
6!-----------------------------------------------------------------------
7! INCLUDE 'logic.h'
8
9      COMMON/logic/ purmats,iflag_phys,forward,leapf,apphys,            &
10     &  statcl,conser,apdiss,apdelq,saison,ecripar,fxyhypb,ysinus       &
11     &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
[101]12     &  ,ok_limit,ok_etat0,iflag_trac
[1]13
14      LOGICAL purmats,forward,leapf,apphys,statcl,conser,               &
15     & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus                      &
16     &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
[119]17     &  ,ok_limit,ok_etat0
[1]18
[119]19      INTEGER iflag_phys,iflag_trac
[1]20!-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.