/[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 156 by guez, Thu Jul 16 17:39:10 2015 UTC
# Line 7  module inifilr_m Line 7  module inifilr_m
7    ! jfilts index of the first line filtered in SH    ! jfilts index of the first line filtered in SH
8    
9    ! North:    ! North:
10    
11    real, allocatable:: matriceun(:, :, :), matrinvn(:, :, :)    real, allocatable:: matriceun(:, :, :), matrinvn(:, :, :)
12    ! (iim, iim, 2:jfiltnu)    ! (iim, iim, 2:jfiltnu)
13    
14    real, allocatable:: matricevn(:, :, :) ! (iim, iim, jfiltnv)    real, allocatable:: matricevn(:, :, :) ! (iim, iim, jfiltnv)
15    
16    ! South:    ! South:
17    
18    real, allocatable:: matriceus(:, :, :), matrinvs(:, :, :)    real, allocatable:: matriceus(:, :, :), matrinvs(:, :, :)
19    ! (iim, iim, jfiltsu:jjm)    ! (iim, iim, jfiltsu:jjm)
20    
# Line 25  contains Line 27  contains
27      ! From filtrez/inifilr.F, version 1.1.1.1 2004/05/19 12:53:09      ! From filtrez/inifilr.F, version 1.1.1.1 2004/05/19 12:53:09
28      ! H. Upadhyaya, O. Sharma      ! H. Upadhyaya, O. Sharma
29    
30      ! This routine computes the eigenfunctions of the laplacian on the      ! This routine computes the eigenvectors of the laplacian on the
31      ! stretched grid, and the filtering coefficients. The modes are      ! stretched grid, and the filtering coefficients. The modes are
32      ! filtered from modfrst to iim.      ! filtered from modfrst to iim.
33    
34      USE dimens_m, ONLY : iim, jjm      USE dimens_m, ONLY : iim, jjm
35      USE dynetat0_m, ONLY : rlatu, rlatv, xprimu, grossismx      USE dynetat0_m, ONLY : rlatu, rlatv, xprimu, grossismx
36      use inifgn_m, only: inifgn, eignfnu, eignfnv      use inifgn_m, only: inifgn
37      use jumble, only: new_unit      use jumble, only: new_unit
38      use nr_util, only: pi      use nr_util, only: pi
39    
# Line 44  contains Line 46  contains
46      REAL colat0 ! > 0      REAL colat0 ! > 0
47      REAL eignft(iim, iim), coff      REAL eignft(iim, iim), coff
48    
49        real eignfnu(iim, iim), eignfnv(iim, iim)
50        ! eigenvectors of the discrete laplacian
51    
52      ! Filtering coefficients (lamda_max * cos(rlat) / lamda):      ! Filtering coefficients (lamda_max * cos(rlat) / lamda):
53      real coefilu(iim, jjm), coefilv(iim, jjm)      real coefilu(iim, jjm), coefilv(iim, jjm)
54      real coefilu2(iim, jjm), coefilv2(iim, jjm)      real coefilu2(iim, jjm), coefilv2(iim, jjm)
# Line 56  contains Line 61  contains
61    
62      print *, "Call sequence information: inifilr"      print *, "Call sequence information: inifilr"
63    
64      CALL inifgn(eignvl)      CALL inifgn(eignvl, eignfnu, eignfnv)
65    
66      ! compute eigenvalues and eigenfunctions      ! compute eigenvalues and eigenvectors
67      ! compute the filtering coefficients for scalar lines and      ! compute the filtering coefficients for scalar lines and
68      ! meridional wind v-lines      ! meridional wind v-lines
69      ! we filter all those latitude lines where coefil < 1      ! we filter all those latitude lines where coefil < 1
Legend:
Removed from v.151  
changed lines
  Added in v.156
  ViewVC Help
Powered by ViewVC 1.1.21