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 |