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

Optimisations SX9

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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.