/[lmdze]/trunk/dyn3d/initial0.f90
ViewVC logotype

Diff of /trunk/dyn3d/initial0.f90

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

trunk/dyn3d/initial0.f revision 80 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/dyn3d/initial0.f90 revision 81 by guez, Wed Mar 5 14:38:41 2014 UTC
# Line 1  Line 1 
1  !  
2  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/initial0.F,v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin Exp $  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/initial0.F,v 1.1.1.1 2004/05/19
3  !  ! 12:53:07 lmdzadmin Exp $
4        SUBROUTINE initial0(n,x)  
5        IMPLICIT NONE  SUBROUTINE initial0(n, x)
6        INTEGER n,i    IMPLICIT NONE
7        REAL x(n)    INTEGER n, i
8        DO 10 i=1,n    REAL x(n)
9           x(i)=0.  
10  10    CONTINUE    DO i = 1, n
11        RETURN      x(i) = 0.
12        END    END DO
13      RETURN
14    END SUBROUTINE initial0
Legend:
Removed from v.80  
changed lines
  Added in v.81
  ViewVC Help
Powered by ViewVC 1.1.21