source: LMDZ.3.3/trunk/libf/dyn3d/dump2d.F @ 507

Last change on this file since 507 was 2, checked in by lmdz, 25 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 820 bytes
Line 
1      SUBROUTINE dump2d(im,jm,z,nom_z)
2      IMPLICIT NONE
3      INTEGER im,jm
4      REAL z(im,jm)
5      CHARACTER*80 nom_z
6
7      INTEGER i,j,imin,illm,jmin,jllm
8      REAL zmin,zllm
9
10      PRINT*,nom_z
11
12      zmin=z(1,1)
13      zllm=z(1,1)
14      imin=1
15      illm=1
16      jmin=1
17      jllm=1
18
19      DO j=1,jm
20         DO i=1,im
21            IF(z(i,j).GT.zllm) THEN
22               illm=i
23               jllm=j
24               zllm=z(i,j)
25            ENDIF
26            IF(z(i,j).LT.zmin) THEN
27               imin=i
28               jmin=j
29               zmin=z(i,j)
30            ENDIF
31         ENDDO
32      ENDDO
33
34      PRINT*,'MIN: ',zmin
35      PRINT*,'MAX: ',zllm
36
37      IF(zllm.GT.zmin) THEN
38      DO j=1,jm
39      WRITE(*,'(72i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
40      ENDDO
41      ENDIF
42      RETURN
43      END
Note: See TracBrowser for help on using the repository browser.