1 |
! |
2 |
! $Header: /home/cvsroot/LMDZ4/libf/phylmd/inc_cpl.h,v 1.2 2005/04/29 14:03:26 fairhead Exp $ |
3 |
! |
4 |
! |
5 |
! |
6 |
! -- inc_cpl.h 1998-04 |
7 |
! ********** |
8 |
!@ |
9 |
!@ Contents : variables describing pipe and field names |
10 |
!@ -------- |
11 |
!@ |
12 |
!@ -- cl_write : for fields to write |
13 |
!@ |
14 |
!@ -- cl_read : for fields to read |
15 |
!@ |
16 |
! ------------------------------------------------------------------- |
17 |
! |
18 |
INTEGER jpread, jpwrit |
19 |
PARAMETER (jpread=0, jpwrit=1) |
20 |
CHARACTER(len=8) cl_writ(jpmaxfld), cl_read(jpmaxfld) |
21 |
CHARACTER(len=8) cl_f_writ(jpmaxfld), cl_f_read(jpmaxfld) |
22 |
COMMON / comcpl / cl_writ, cl_read, cl_f_writ, cl_f_read |
23 |
! ------------------------------------------------------------------- |