source: trunk/LMDZ.VENUS/libf/phyvenus/comcstVE.h @ 826

Last change on this file since 826 was 101, checked in by slebonnois, 15 years ago

SL: modifications pour arriver a compiler le gcm VENUS !
Ca marche !
A noter: modifs de makelmdz
File size: 761 bytes
Line 
1c-----------------------------------------------------------------------
2c INCLUDE comcstVE.h
3
4        integer nnuve,nbztopve,nbpsve,nbmat
5        parameter (nnuve=68)   ! fichiers Vincent et Bullock
6        parameter (nbpsve=16)   ! number of psurf in Vincent's matrixes
7        parameter (nbztopve=4) ! number of ztop  in Vincent's matrixes
8        parameter (nbmat=nbztopve*nbpsve) ! number of matrixes in Vincent's file
9
10      common/comcstVE/al,bl,ztopve,psurfve
11
12      real   al(nnuve),bl(nnuve)      ! for Planck luminances calculations
13      real   ztopve(nbmat)   ! cloud top altitude in matrixes (km)
14      real   psurfve(nbmat)            ! surface pressure in matrixes (Pa)
15
16
17c-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.