Changeset 179 for LMDZ.3.3/branches/rel-LF/libf/phylmd/inc_cpl.h
- Timestamp:
- Mar 20, 2001, 4:14:30 PM (24 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/phylmd/inc_cpl.h
r98 r179 1 C 2 C -- inc_cpl.h 1998-04 3 C ********** 4 C@ 5 C@ Contents : variables describing pipe and field names 6 C@ -------- 7 C@ 8 C@ -- cl_write : for fields to write 9 C@ 10 C@ -- cl_read : for fields to read 11 C@ 12 C ------------------------------------------------------------------- 13 C 1 ! 2 ! $Header$ 3 ! 4 ! -- inc_cpl.h 1998-04 5 ! ********** 6 !@ 7 !@ Contents : variables describing pipe and field names 8 !@ -------- 9 !@ 10 !@ -- cl_write : for fields to write 11 !@ 12 !@ -- cl_read : for fields to read 13 !@ 14 ! ------------------------------------------------------------------- 15 ! 14 16 INTEGER jpread, jpwrit 15 17 PARAMETER (jpread=0, jpwrit=1) … … 17 19 CHARACTER*6 cl_f_writ(jpmaxfld), cl_f_read(jpmaxfld) 18 20 COMMON / comcpl / cl_writ, cl_read, cl_f_writ, cl_f_read 19 C-------------------------------------------------------------------21 ! -------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.