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

Diff of /trunk/dyn3d/dump2d.f

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

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 102 by guez, Tue Jul 15 13:43:24 2014 UTC
# Line 1  Line 1 
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
# Line 45  SUBROUTINE dump2d(im, jm, z, nom_z) Line 50  SUBROUTINE dump2d(im, jm, z, nom_z)
50    END IF    END IF
51    RETURN    RETURN
52  END SUBROUTINE dump2d  END SUBROUTINE dump2d
53    
54    end module dump2d_m
Legend:
Removed from v.82  
changed lines
  Added in v.102
  ViewVC Help
Powered by ViewVC 1.1.21