- Timestamp:
- Mar 29, 2023, 3:14:27 PM (15 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/filtrez/mod_fft_wrapper.F90
r1907 r4482 11 11 INTEGER :: nb 12 12 13 STOP "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique" 13 print *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique" 14 stop 1 14 15 END SUBROUTINE Init_fft 15 16 … … 21 22 COMPLEX,INTENT(INOUT) :: TF_vect(vsize/2+1,nb_vect) 22 23 23 STOP "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique" 24 print *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique" 25 stop 1 24 26 25 27 END SUBROUTINE fft_forward … … 31 33 COMPLEX,INTENT(IN ) :: TF_vect(vsize/2+1,nb_vect) 32 34 33 STOP "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique" 35 print *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique" 36 stop 1 34 37 35 38 END SUBROUTINE fft_backward
Note: See TracChangeset
for help on using the changeset viewer.