Changeset 544 for LMDZ.3.3/trunk/libf/phylmd/inc_cpl.h

Timestamp:

Aug 31, 2004, 1:09:09 PM (20 years ago)

Author:

lmdzadmin

Message:

Incorporation des modifications necessaires a l'utilisation de la librairie
Psmile/PRISM, et creation d'un tag IPSL-CM4_PSMILE, selon M.-E. Demory
LF

File:

• LMDZ.3.3/trunk/libf/phylmd/inc_cpl.h (modified) (1 diff)

LMDZ.3.3/trunk/libf/phylmd/inc_cpl.h

@@ -1 @@
-C
-C -- inc_cpl.h  
-C    **********
-C@
-C@  Contents : variables describing field restart file names 
-C@  --------
-C@
-C@ -- cl_write/cl_read  : for fields to write/READ
-C@ -- cl_f_write/cl_f_read  : for fields to write/read
-C@
-C     -------------------------------------------------------------------
-C
+!
+! $Header$
+!
+! -- 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*8 cl_f_writ(jpmaxfld), cl_f_read(jpmaxfld)
+#ifndef CPP_PSMILE
       CHARACTER*8 cl_writ(jpmaxfld), cl_read(jpmaxfld)
-      CHARACTER*8 cl_f_writ(jpmaxfld), cl_f_read(jpmaxfld)
       COMMON / comcpl / cl_writ, cl_read, cl_f_writ, cl_f_read
-C     -------------------------------------------------------------------
+#endif
+!     -------------------------------------------------------------------