source: LMDZ4/branches/unlabeled-1.1.1/libf/phylmd/inc_cpl.h @ 4667

Last change on this file since 4667 was 524, checked in by lmdzadmin, 20 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 609 bytes
Line 
1!
2! $Header$
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*8 cl_writ(jpmaxfld), cl_read(jpmaxfld)
21      CHARACTER*8 cl_f_writ(jpmaxfld), cl_f_read(jpmaxfld)
22      COMMON / comcpl / cl_writ, cl_read, cl_f_writ, cl_f_read
23!     -------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.