source: trunk/libf/phyvenus/comcstVE.h @ 4

Last change on this file since 4 was 3, checked in by slebonnois, 15 years ago

Creation de repertoires:

  • chantiers : pour communiquer sur nos projets de modifs
  • documentation : pour stocker les docs

Ajout de:

  • libf/phytitan : physique de Titan
  • libf/chimtitan: chimie de Titan
  • libf/phyvenus : physique de Venus
File size: 836 bytes
Line 
1c-----------------------------------------------------------------------
2c INCLUDE comcstVE.h
3
4        integer nlve,nnuve,nbztopve,nbpsve,nbmat
5        parameter (nlve=kflev) ! fichiers Vincent: same grid than GCM
6        parameter (nnuve=68)   ! fichiers Vincent et Bullock
7        parameter (nbpsve=16)   ! number of psurf in Vincent's matrixes
8        parameter (nbztopve=4) ! number of ztop  in Vincent's matrixes
9        parameter (nbmat=nbztopve*nbpsve) ! number of matrixes in Vincent's file
10
11      common/comcstVE/al,bl,ztopve,psurfve
12
13      real   al(nnuve),bl(nnuve)      ! for Planck luminances calculations
14      real   ztopve(nbmat)   ! cloud top altitude in matrixes (km)
15      real   psurfve(nbmat)            ! surface pressure in matrixes (Pa)
16
17
18c-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.