/[lmdze]/trunk/libf/filtrez/coefils.f90
ViewVC logotype

Diff of /trunk/libf/filtrez/coefils.f90

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

trunk/libf/filtrez/coefils.h revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC trunk/libf/filtrez/coefils.f90 revision 25 by guez, Fri Mar 5 16:43:45 2010 UTC
# Line 1  Line 1 
1  !  module coefils
2  ! $Header: /home/cvsroot/LMDZ4/libf/filtrez/coefils.h,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $  
3  !    ! From filtrez/coefils.h,v 1.1.1.1 2004/05/19 12:53:09
4        COMMON/coefils/jfiltnu,jfiltsu,jfiltnv,jfiltsv,sddu(iim),sddv(iim)  
5       * ,unsddu(iim),unsddv(iim),coefilu(iim,jjm),coefilv(iim,jjm),    use dimens_m, only: iim, jjm
6       * modfrstu(jjm),modfrstv(jjm),eignfnu(iim,iim),eignfnv(iim,iim)  
7       * ,coefilu2(iim,jjm),coefilv2(iim,jjm)    implicit none
8  c  
9        INTEGER jfiltnu,jfiltsu,jfiltnv,jfiltsv,modfrstu,modfrstv    private iim, jjm
10        REAL    sddu,sddv,unsddu,unsddv,coefilu,coefilv,eignfnu,eignfnv  
11        REAL    coefilu2,coefilv2    real sddu(iim),sddv(iim)
12      real unsddu(iim),unsddv(iim),coefilu(iim,jjm),coefilv(iim,jjm)
13      integer modfrstu(jjm),modfrstv(jjm)
14      real eignfnu(iim,iim),eignfnv(iim,iim)
15      real coefilu2(iim,jjm),coefilv2(iim,jjm)
16      INTEGER jfiltnu,jfiltsu,jfiltnv,jfiltsv
17    
18    end module coefils
Legend:
Removed from v.3  
changed lines
  Added in v.25
  ViewVC Help
Powered by ViewVC 1.1.21