libf/phylmd/inc_cpl.h

!
! $Header: /home/cvsroot/LMDZ4/libf/phylmd/inc_cpl.h,v 1.2 2005/04/29 14:03:26 fairhead Exp $
!
!
!
! -- inc_cpl.h   1998-04
!    **********
!@
!@  Contents : variables describing pipe and field names
!@  --------
!@
!@ -- cl_write  : for fields to write
!@
!@ -- cl_read  : for fields to read
!@
!     -------------------------------------------------------------------
!
      INTEGER jpread, jpwrit
      PARAMETER (jpread=0, jpwrit=1)
      CHARACTER(len=8) cl_writ(jpmaxfld), cl_read(jpmaxfld)
      CHARACTER(len=8) cl_f_writ(jpmaxfld), cl_f_read(jpmaxfld)
      COMMON / comcpl / cl_writ, cl_read, cl_f_writ, cl_f_read
!     -------------------------------------------------------------------
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	! -------------------------------------------------------------------