Changeset 544 for LMDZ.3.3/trunk/libf/dyn3d/fxyhyper.F

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/dyn3d/fxyhyper.F (modified) (2 diffs)

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(/)