trunk/dyn3d/dump2d.f

!
! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/dump2d.F,v 1.1.1.1 2004/05/19 12:53:05 lmdzadmin Exp $
!
      SUBROUTINE dump2d(im,jm,z,nom_z)
      IMPLICIT NONE
      INTEGER im,jm
      REAL z(im,jm)
      CHARACTER*80 nom_z

      INTEGER i,j,imin,illm,jmin,jllm
      REAL zmin,zllm

      PRINT*,nom_z

      zmin=z(1,1)
      zllm=z(1,1)
      imin=1
      illm=1
      jmin=1
      jllm=1

      DO j=1,jm
         DO i=1,im
            IF(z(i,j).GT.zllm) THEN
               illm=i
               jllm=j
               zllm=z(i,j)
            ENDIF
            IF(z(i,j).LT.zmin) THEN
               imin=i
               jmin=j
               zmin=z(i,j)
            ENDIF
         ENDDO
      ENDDO

      PRINT*,'MIN: ',zmin
      PRINT*,'MAX: ',zllm

      IF(zllm.GT.zmin) THEN
      DO j=1,jm
      WRITE(*,'(72i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
      ENDDO
      ENDIF
      RETURN
      END
1	guez	3	!
2			! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/dump2d.F,v 1.1.1.1 2004/05/19 12:53:05 lmdzadmin Exp $
3			!
4			SUBROUTINE dump2d(im,jm,z,nom_z)
5			IMPLICIT NONE
6			INTEGER im,jm
7			REAL z(im,jm)
8			CHARACTER*80 nom_z
9
10			INTEGER i,j,imin,illm,jmin,jllm
11			REAL zmin,zllm
12
13			PRINT*,nom_z
14
15			zmin=z(1,1)
16			zllm=z(1,1)
17			imin=1
18			illm=1
19			jmin=1
20			jllm=1
21
22			DO j=1,jm
23			DO i=1,im
24			IF(z(i,j).GT.zllm) THEN
25			illm=i
26			jllm=j
27			zllm=z(i,j)
28			ENDIF
29			IF(z(i,j).LT.zmin) THEN
30			imin=i
31			jmin=j
32			zmin=z(i,j)
33			ENDIF
34			ENDDO
35			ENDDO
36
37			PRINT*,'MIN: ',zmin
38			PRINT*,'MAX: ',zllm
39
40			IF(zllm.GT.zmin) THEN
41			DO j=1,jm
42			WRITE(,'(72i1)') (NINT(10.(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
43			ENDDO
44			ENDIF
45			RETURN
46			END