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

Diff of /trunk/dyn3d/dump2d.f90

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

trunk/dyn3d/dump2d.f revision 80 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/dyn3d/dump2d.f90 revision 81 by guez, Wed Mar 5 14:38:41 2014 UTC
# Line 1  Line 1 
1  !  
2  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/dump2d.F,v 1.1.1.1 2004/05/19 12:53:05 lmdzadmin Exp $  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/dump2d.F,v 1.1.1.1 2004/05/19
3  !  ! 12:53:05 lmdzadmin Exp $
4        SUBROUTINE dump2d(im,jm,z,nom_z)  
5        IMPLICIT NONE  SUBROUTINE dump2d(im, jm, z, nom_z)
6        INTEGER im,jm    IMPLICIT NONE
7        REAL z(im,jm)    INTEGER im, jm
8        CHARACTER*80 nom_z    REAL z(im, jm)
9      CHARACTER *80 nom_z
10        INTEGER i,j,imin,illm,jmin,jllm  
11        REAL zmin,zllm    INTEGER i, j, imin, illm, jmin, jllm
12      REAL zmin, zllm
13        PRINT*,nom_z  
14      PRINT *, nom_z
15        zmin=z(1,1)  
16        zllm=z(1,1)    zmin = z(1, 1)
17        imin=1    zllm = z(1, 1)
18        illm=1    imin = 1
19        jmin=1    illm = 1
20        jllm=1    jmin = 1
21      jllm = 1
22        DO j=1,jm  
23           DO i=1,im    DO j = 1, jm
24              IF(z(i,j).GT.zllm) THEN      DO i = 1, im
25                 illm=i        IF (z(i,j)>zllm) THEN
26                 jllm=j          illm = i
27                 zllm=z(i,j)          jllm = j
28              ENDIF          zllm = z(i, j)
29              IF(z(i,j).LT.zmin) THEN        END IF
30                 imin=i        IF (z(i,j)<zmin) THEN
31                 jmin=j          imin = i
32                 zmin=z(i,j)          jmin = j
33              ENDIF          zmin = z(i, j)
34           ENDDO        END IF
35        ENDDO      END DO
36      END DO
37        PRINT*,'MIN: ',zmin  
38        PRINT*,'MAX: ',zllm    PRINT *, 'MIN: ', zmin
39      PRINT *, 'MAX: ', zllm
40        IF(zllm.GT.zmin) THEN  
41        DO j=1,jm    IF (zllm>zmin) THEN
42        WRITE(*,'(72i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)      DO j = 1, jm
43        ENDDO        WRITE (*, '(72i1)')(nint(10.*(z(i,j)-zmin)/(zllm-zmin)), i=1, im)
44        ENDIF      END DO
45        RETURN    END IF
46        END    RETURN
47    END SUBROUTINE dump2d
Legend:
Removed from v.80  
changed lines
  Added in v.81
  ViewVC Help
Powered by ViewVC 1.1.21