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

Contents of /trunk/dyn3d/dump2d.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 102 - (show annotations)
Tue Jul 15 13:43:24 2014 UTC (9 years, 9 months ago) by guez
File size: 879 byte(s)
Removed unused file "condsurf.f" (only useful for ocean slab).

day_step must be a multiple of 4 * iperiod if ok_guide.

Changed type of variable online of module conf_guide_m from integer to
logical. Value -1 was not useful, equivalent to not ok_guide.

Removed argument masse of procedure guide. masse is kept consistent
with ps throughout the run. masse need only be computed again just
after ps has been modified. In prodecure guide, replaced use of
remanent variable first by test on itau. Replaced test on variable
"test" by test on integer values.

In leapfrog, for the call to guide, replaced test on real values by
test on integer values.

Bug fix in tau2alpha: computation of dxdyv (following LMDZ revision 1040).

In procedure wrgrads, replaced badly chosen argument name "if" by i_f.

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

  ViewVC Help
Powered by ViewVC 1.1.21