/[lmdze]/trunk/dyn3d/dump2d.f
ViewVC logotype

Diff of /trunk/dyn3d/dump2d.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC revision 102 by guez, Tue Jul 15 13:43:24 2014 UTC
# Line 1  Line 1 
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
Legend:
Removed from v.76  
changed lines
  Added in v.102
  ViewVC Help
Powered by ViewVC 1.1.21