trunk/dyn3d/dump2d.f

module dump2d_m

  IMPLICIT NONE

contains

SUBROUTINE dump2d(im, jm, z, nom_z)

! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/dump2d.F,v 1.1.1.1 2004/05/19
! 12:53:05 lmdzadmin Exp $

  INTEGER, intent(in):: im, jm
  REAL, intent(in):: z(im, jm)
  CHARACTER(len=*), intent(in):: 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

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