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

Last change on this file since 1243 was 1056, checked in by slebonnois, 11 years ago

SL: Titan runs ! see DOC/chantiers/commit_importants.log

File size: 499 bytes
RevLine 
[1056]1!     -----------------------------------------------------------------
2!*    *COMMON* *YOEGWD* - PARAMETERS FOR GRAVITY WAVE DRAG CALCULATIONS
3!     -----------------------------------------------------------------
4!
5      integer :: NKTOPG,NTOP
6      real    :: GFRCRIT,GKWAKE,GRCRIT,GVCRIT,GKDRAG,GKLIFT
7      real    :: GHMAX,GRAHILO,GSIGCR,GSSEC,GTSEC,GVSEC
8      COMMON/YOEGWD/ GFRCRIT,GKWAKE,GRCRIT,GVCRIT,GKDRAG,GKLIFT         &
9     &   ,GHMAX,GRAHILO,GSIGCR,NKTOPG,NTOP,GSSEC,GTSEC,GVSEC
10
Note: See TracBrowser for help on using the repository browser.