libf/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	!
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