Changeset 1707 for LMDZ5/branches/testing/libf/filtrez/filtreg_mod.F90

Timestamp:

Jan 11, 2013, 10:19:19 AM (11 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur la r1706

---

Testing release based on r1706

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/filtrez/filtreg_mod.F90 (modified) (3 diffs)

LMDZ5/branches/testing/libf/filtrez/filtreg_mod.F90

@@ -1 +1 @@
 !
-! $Id $
+! $Id$
 !
 MODULE filtreg_mod
@@ -10 +10 @@
 
   SUBROUTINE inifilr
-  USE mod_filtre_fft
-    !
+  USE mod_filtre_fft, ONLY : use_filtre_fft,Init_filtre_fft
+  USE mod_filtre_fft_loc, ONLY : Init_filtre_fft_loc=>Init_filtre_fft    !
     !    ... H. Upadhyaya, O.Sharma   ...
     !
@@ -541 +541 @@
        CALL Init_filtre_fft(coefilu,modfrstu,jfiltnu,jfiltsu,  &
                            coefilv,modfrstv,jfiltnv,jfiltsv)
+       CALL Init_filtre_fft_loc(coefilu,modfrstu,jfiltnu,jfiltsu,  &
+                           coefilv,modfrstv,jfiltnv,jfiltsv)
     ENDIF