source: LMDZ6/branches/Amaury_dev/libf/filtrez/lmdz_coefils.f90 @ 5128

Last change on this file since 5128 was 5106, checked in by abarral, 4 months ago

Turn coefils.h into lmdz_coefils.f90
Put filtreg.F90 inside lmdz_filtreg.F90
Turn mod_filtreg_p.F90 into lmdz_filtreg_p.F90
Delete obsolete parafilt.h*
(lint) remove spaces between routine name and args
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 942 bytes
RevLine 
[1591]1! $Id $
[5106]2! replacement for coefils.h
3MODULE lmdz_coefils
4  IMPLICIT NONE; PRIVATE
5  INCLUDE "dimensions.h"
6  PUBLIC jfiltnu, jfiltsu, jfiltnv, jfiltsv, sddu, sddv, unsddu, unsddv, coefilu, coefilv, &
7          modfrstu, modfrstv, eignfnu, eignfnv, coefilu2, coefilv2
[5099]8
[5106]9  INTEGER :: jfiltnu ! index of the last lat line filtered in NH (U grid)
10  INTEGER :: jfiltsu ! index of the first lat line filtered in SH (U grid)
11  INTEGER :: jfiltnv ! index of the last lat line filtered in NH (V grid)
12  INTEGER :: jfiltsv ! index of the first lat line filtered in SH (V grid)
13  INTEGER, DIMENSION(jjm) :: modfrstu ! number of retained (ie: unfiltered) modes on U grid
14  INTEGER, DIMENSION(jjm) :: modfrstv ! number of retained (ie: unfiltered) modes on V grid
15  REAL, DIMENSION(iim) :: sddu, sddv, unsddu, unsddv
16  REAL, DIMENSION(iim, jjm) :: coefilu, coefilv, coefilu2, coefilv2
17  REAL, DIMENSION(iim, iim) :: eignfnu, eignfnv
18END MODULE lmdz_coefils
Note: See TracBrowser for help on using the repository browser.