Changeset 1279 for LMDZ4/trunk/libf/dyn3d/dump2d.F

Timestamp:

Dec 10, 2009, 10:02:56 AM (15 years ago)

Author:

Laurent Fairhead

Message:

Merged LMDZ4-dev branch changes r1241:1278 into the trunk
Running trunk and LMDZ4-dev in LMDZOR configuration on local
machine (sequential) and SX8 (4-proc) yields identical results
(restart and restartphy are identical binarily)
Log history from r1241 to r1278 is available by switching to
source:LMDZ4/branches/LMDZ4-dev-20091210

Location:

LMDZ4/trunk

Files:

• . (modified) (1 prop)
• libf/dyn3d/dump2d.F (modified) (3 diffs)

LMDZ4/trunk/libf/dyn3d/dump2d.F

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
       SUBROUTINE dump2d(im,jm,z,nom_z)
@@ -6 +6 @@
       INTEGER im,jm
       REAL z(im,jm)
-      CHARACTER*80 nom_z
+      CHARACTER (len=*) :: nom_z
 
       INTEGER i,j,imin,illm,jmin,jllm
       REAL zmin,zllm
 
-      PRINT*,nom_z
+      WRITE(*,*) "dump2d: ",trim(nom_z)
 
       zmin=z(1,1)
@@ -39 +39 @@
 
       IF(zllm.GT.zmin) THEN
-      DO j=1,jm
-      WRITE(*,'(72i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
-      ENDDO
+       DO j=1,jm
+        WRITE(*,'(600i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
+       ENDDO
       ENDIF
       RETURN