Changeset 544 for LMDZ.3.3/trunk

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

Location:

LMDZ.3.3/trunk/libf

Files:

• dyn3d/bilan_dyn.F (modified) (1 diff)
• dyn3d/fxyhyper.F (modified) (2 diffs)
• phylmd/inc_cpl.h (modified) (1 diff)

LMDZ.3.3/trunk/libf/dyn3d/bilan_dyn.F

@@ -110 +110 @@
       character*10 znom(ntr,nQ)
       character*20 znoml(ntr,nQ)
+cvg>>
+      save znom, nom
+cvg<<
       character*10 zunites(ntr,nQ)
       integer iave,itot,immc,itrs,istn

LMDZ.3.3/trunk/libf/dyn3d/fxyhyper.F

@@ -114 +114 @@
         WRITE(6,*) ' *********** '
         WRITE(6,18)
-        WRITE(6,3)  dymin, dymax
+cvg>>
+        WRITE(6,3) dymin
+        WRITE(6,4) dymax
+cvg<<
+cvg        WRITE(6,3)  dymin, dymax
         WRITE(6,*) ' Si cette derniere est trop lache , modifiez les par
      ,ametres  grossism , tau , dzoom pour Y et repasser ! '
@@ -122 +126 @@
         WRITE(6,*) ' ************ '
         WRITE(6,18)
-        WRITE(6,3)  dxmin, dxmax
+cvg>>
+        WRITE(6,3) dxmin
+        WRITE(6,4) dxmax
+cvg<<
+cvg        WRITE(6,3)  dxmin, dxmax
         WRITE(6,*) ' Si cette derniere est trop lache , modifiez les par
      ,ametres  grossism , tau , dzoom pour Y et repasser ! '
         WRITE(6,18)
 c
+cvg3      Format(1x, ' Au centre du zoom , la longueur de la maille est',
+cvg     ,  ' d environ ',f8.2 ,' degres  ',
+cvg     , ' alors que la maille en dehors de la zone du zoom est d environ
+cvg     , ', f8.2,' degres ' )
+cvg>>
 3      Format(1x, ' Au centre du zoom , la longueur de la maille est',
-     ,  ' d environ ',f8.2 ,' degres  ',
-     , ' alors que la maille en dehors de la zone du zoom est d environ
-     , ', f8.2,' degres ' )
+     ,  ' d environ ',f8.2 ,' degres  ')
+4      Format(1x, ' alors que la maille en dehors de la zone du zoom',
+     ,  ' est d environ ', f8.2,' degres ' )
+cvg<<
 18      FORMAT(/)
 

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
+!     -------------------------------------------------------------------