source: LMDZ5/trunk/libf/dyn3d/dump2d.F @ 1907

Last change on this file since 1907 was 1907, checked in by lguez, 10 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 865 bytes
Line 
1!
2! $Id: dump2d.F 1907 2013-11-26 13:10:46Z lguez $
3!
4      SUBROUTINE dump2d(im,jm,z,nom_z)
5      IMPLICIT NONE
6      INTEGER im,jm
7      REAL z(im,jm)
8      CHARACTER (len=*) :: nom_z
9
10      INTEGER i,j,imin,illm,jmin,jllm
11      REAL zmin,zllm
12
13      WRITE(*,*) "dump2d: ",trim(nom_z)
14
15      zmin=z(1,1)
16      zllm=z(1,1)
17      imin=1
18      illm=1
19      jmin=1
20      jllm=1
21
22      DO j=1,jm
23         DO i=1,im
24            IF(z(i,j).GT.zllm) THEN
25               illm=i
26               jllm=j
27               zllm=z(i,j)
28            ENDIF
29            IF(z(i,j).LT.zmin) THEN
30               imin=i
31               jmin=j
32               zmin=z(i,j)
33            ENDIF
34         ENDDO
35      ENDDO
36
37      PRINT*,'MIN: ',zmin
38      PRINT*,'MAX: ',zllm
39
40      IF(zllm.GT.zmin) THEN
41       DO j=1,jm
42        WRITE(*,'(600i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
43       ENDDO
44      ENDIF
45      RETURN
46      END
Note: See TracBrowser for help on using the repository browser.