Parent Directory
| 
Revision Log
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 | guez | 102 | module dump2d_m |
| 2 | guez | 3 | |
| 3 | guez | 102 | IMPLICIT NONE |
| 4 | |||
| 5 | contains | ||
| 6 | |||
| 7 | SUBROUTINE dump2d(im, jm, z, nom_z) | ||
| 8 | |||
| 9 | guez | 81 | ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/dump2d.F,v 1.1.1.1 2004/05/19 |
| 10 | ! 12:53:05 lmdzadmin Exp $ | ||
| 11 | guez | 3 | |
| 12 | guez | 81 | INTEGER im, jm |
| 13 | REAL z(im, jm) | ||
| 14 | guez | 102 | CHARACTER(len=*) nom_z |
| 15 | guez | 3 | |
| 16 | guez | 81 | INTEGER i, j, imin, illm, jmin, jllm |
| 17 | REAL zmin, zllm | ||
| 18 | guez | 3 | |
| 19 | guez | 81 | PRINT *, nom_z |
| 20 | guez | 3 | |
| 21 | guez | 81 | zmin = z(1, 1) |
| 22 | zllm = z(1, 1) | ||
| 23 | imin = 1 | ||
| 24 | illm = 1 | ||
| 25 | jmin = 1 | ||
| 26 | jllm = 1 | ||
| 27 | guez | 3 | |
| 28 | guez | 81 | 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 | guez | 102 | |
| 54 | end module dump2d_m |
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |