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 |
! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/dump2d.F,v 1.1.1.1 2004/05/19 |
10 |
! 12:53:05 lmdzadmin Exp $ |
! 12:53:05 lmdzadmin Exp $ |
11 |
|
|
|
SUBROUTINE dump2d(im, jm, z, nom_z) |
|
|
IMPLICIT NONE |
|
12 |
INTEGER im, jm |
INTEGER im, jm |
13 |
REAL z(im, jm) |
REAL z(im, jm) |
14 |
CHARACTER *80 nom_z |
CHARACTER(len=*) nom_z |
15 |
|
|
16 |
INTEGER i, j, imin, illm, jmin, jllm |
INTEGER i, j, imin, illm, jmin, jllm |
17 |
REAL zmin, zllm |
REAL zmin, zllm |
50 |
END IF |
END IF |
51 |
RETURN |
RETURN |
52 |
END SUBROUTINE dump2d |
END SUBROUTINE dump2d |
53 |
|
|
54 |
|
end module dump2d_m |