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