Ignore:
Timestamp:
Oct 29, 2009, 2:55:23 PM (15 years ago)
Author:
yann meurdesoif
Message:

Optimisations SX9

YM

Location:
LMDZ4/branches/LMDZ4-dev/libf/filtrez
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4-dev/libf/filtrez/mod_fft_wrapper.F90

    r986 r1250  
    1919    INTEGER,INTENT(IN)  :: nb_vect
    2020    REAL,INTENT(IN)     :: vect(vsize+inc,nb_vect)
    21     COMPLEX,INTENT(INOUT) :: TF_vect(vsize/2+1,nb_vect)
     21    COMPLEX*16,INTENT(INOUT) :: TF_vect(vsize/2+1,nb_vect)
    2222   
    2323    STOP "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
    … …  
    2929    INTEGER,INTENT(IN)  :: nb_vect
    3030    REAL,INTENT(INOUT)    :: vect(vsize+inc,nb_vect)
    31     COMPLEX,INTENT(IN ) :: TF_vect(vsize/2+1,nb_vect)
     31    COMPLEX*16,INTENT(IN ) :: TF_vect(vsize/2+1,nb_vect)
    3232 
    3333    STOP "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"

  • LMDZ4/branches/LMDZ4-dev/libf/filtrez/mod_filtre_fft.F90

    r1249 r1250  
    199199
    200200    REAL               :: vect(iim+inc,jj_end-jj_begin+1,nbniv)
    201     COMPLEX            :: TF_vect(iim/2+1,jj_end-jj_begin+1,nbniv)
     201    COMPLEX*16         :: TF_vect(iim/2+1,jj_end-jj_begin+1,nbniv)
    202202    INTEGER            :: nb_vect
    203203    INTEGER :: i,j,l
    … …  
    260260    REAL,INTENT(INOUT) :: vect_inout(iim+1,nlat,nbniv)
    261261
    262      REAL               :: vect(iim+inc,jj_end-jj_begin+1,nbniv)
    263     COMPLEX            :: TF_vect(iim/2+1,jj_end-jj_begin+1,nbniv)
     262    REAL               :: vect(iim+inc,jj_end-jj_begin+1,nbniv)
     263    COMPLEX*16         :: TF_vect(iim/2+1,jj_end-jj_begin+1,nbniv)
    264264    INTEGER            :: nb_vect
    265265    INTEGER :: i,j,l
Note: See TracChangeset for help on using the changeset viewer.