Changeset 1685 for LMDZ5/trunk/libf/filtrez/filtreg_mod.F90

Timestamp:

Nov 21, 2012, 4:00:42 PM (12 years ago)

Author:

Laurent Fairhead

Message:

Suite du phasage de la dynamique localisée

---

Continuing the phasing of the localised dynamics

File:

• LMDZ5/trunk/libf/filtrez/filtreg_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/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