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)>zllm) THEN
        illm = i
        jllm = j
        zllm = z(i, j)
      END IF
      IF (z(i,j)<zmin) THEN
        imin = i
        jmin = j
        zmin = z(i, j)
      END IF
    END DO
  END DO

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

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