/[lmdze]/trunk/Sources/filtrez/inifilr.f
ViewVC logotype

Diff of /trunk/Sources/filtrez/inifilr.f

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

revision 151 by guez, Tue Jun 23 15:14:20 2015 UTC revision 154 by guez, Tue Jul 7 17:49:23 2015 UTC
# Line 31  contains Line 31  contains
31    
32      USE dimens_m, ONLY : iim, jjm      USE dimens_m, ONLY : iim, jjm
33      USE dynetat0_m, ONLY : rlatu, rlatv, xprimu, grossismx      USE dynetat0_m, ONLY : rlatu, rlatv, xprimu, grossismx
34      use inifgn_m, only: inifgn, eignfnu, eignfnv      use inifgn_m, only: inifgn
35      use jumble, only: new_unit      use jumble, only: new_unit
36      use nr_util, only: pi      use nr_util, only: pi
37    
# Line 44  contains Line 44  contains
44      REAL colat0 ! > 0      REAL colat0 ! > 0
45      REAL eignft(iim, iim), coff      REAL eignft(iim, iim), coff
46    
47        real eignfnu(iim, iim), eignfnv(iim, iim)
48        ! eigenfunctions of the discrete laplacian
49    
50      ! Filtering coefficients (lamda_max * cos(rlat) / lamda):      ! Filtering coefficients (lamda_max * cos(rlat) / lamda):
51      real coefilu(iim, jjm), coefilv(iim, jjm)      real coefilu(iim, jjm), coefilv(iim, jjm)
52      real coefilu2(iim, jjm), coefilv2(iim, jjm)      real coefilu2(iim, jjm), coefilv2(iim, jjm)
# Line 56  contains Line 59  contains
59    
60      print *, "Call sequence information: inifilr"      print *, "Call sequence information: inifilr"
61    
62      CALL inifgn(eignvl)      CALL inifgn(eignvl, eignfnu, eignfnv)
63    
64      ! compute eigenvalues and eigenfunctions      ! compute eigenvalues and eigenfunctions
65      ! compute the filtering coefficients for scalar lines and      ! compute the filtering coefficients for scalar lines and
Legend:
Removed from v.151  
changed lines
  Added in v.154
  ViewVC Help
Powered by ViewVC 1.1.21