Changeset 4482 for LMDZ6/branches/LMDZ_ECRad/libf/filtrez

Timestamp:

Mar 29, 2023, 3:14:27 PM (23 months ago)

Author:

lguez

Message:

Sync latest trunk changes to branch LMDZ_ECRad

Location:

LMDZ6/branches/LMDZ_ECRad

Files:

• . (modified) (1 prop)
• libf/filtrez/filtreg.F (modified) (1 diff)
• libf/filtrez/filtreg_mod.F90 (modified) (2 diffs)
• libf/filtrez/mod_fft_wrapper.F90 (modified) (3 diffs)

LMDZ6/branches/LMDZ_ECRad/libf/filtrez/filtreg.F

@@ -71 +71 @@
 
       INTEGER :: sdd1_type, sdd2_type
+
+      if ( iim == 1 ) return ! no filtre in 2D y-z
 
       IF (first) THEN

LMDZ6/branches/LMDZ_ECRad/libf/filtrez/filtreg_mod.F90

@@ -66 +66 @@
     !-----------------------------------------------------------
     !
+    if ( iim == 1 ) return ! No filtre in 2D y-z
 
     pi       = 2. * ASIN( 1. )
@@ -125 +126 @@
     !
     colat0  =  MIN( 0.5, dymin/dxmin )
+    ! colat0  =  1.
     !
     IF( .NOT.fxyhypb.AND.ysinus )  THEN

LMDZ6/branches/LMDZ_ECRad/libf/filtrez/mod_fft_wrapper.F90

@@ -11 +11 @@
     INTEGER :: nb
     
-    STOP "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
+    print *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
+    stop 1
   END SUBROUTINE Init_fft
   
@@ -21 +22 @@
     COMPLEX,INTENT(INOUT) :: TF_vect(vsize/2+1,nb_vect)
     
-    STOP "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
+    print *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
+    stop 1
     
   END SUBROUTINE fft_forward
@@ -31 +33 @@
     COMPLEX,INTENT(IN ) :: TF_vect(vsize/2+1,nb_vect)
   
-    STOP "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
+    print *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
+    stop 1
     
   END SUBROUTINE fft_backward