Changeset 1701


Ignore:
Timestamp:
Dec 21, 2012, 3:25:41 PM (11 years ago)
Author:
Laurent Fairhead
Message:

Spécifications non nécessaires

Unnecessary specifications

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/filtrez/mod_filtre_fft_loc.F90

    r1679 r1701  
    119119
    120120    REAL               :: vect(iim+inc,jj_end-jj_begin+1,nbniv)
    121 !    REAL               :: vect_test(iim+inc,jj_end-jj_begin+1,nbniv)
    122     COMPLEX*16         :: TF_vect(iim/2+1,jj_end-jj_begin+1,nbniv)
    123 !    COMPLEX*16         :: TF_vect_test(iim/2+1,jj_end-jj_begin+1,nbniv)
     121    COMPLEX            :: TF_vect(iim/2+1,jj_end-jj_begin+1,nbniv)
    124122    INTEGER            :: nb_vect
    125123    INTEGER :: i,j,l
    … …  
    201199
    202200    REAL               :: vect(iim+inc,jj_end-jj_begin+1,nbniv)
    203     COMPLEX*16         :: TF_vect(iim/2+1,jj_end-jj_begin+1,nbniv)
     201    COMPLEX            :: TF_vect(iim/2+1,jj_end-jj_begin+1,nbniv)
    204202    INTEGER            :: nb_vect
    205203    INTEGER :: i,j,l
    … …  
    264262
    265263    REAL               :: vect(iim+inc,jj_end-jj_begin+1,nbniv)
    266     COMPLEX*16         :: TF_vect(iim/2+1,jj_end-jj_begin+1,nbniv)
     264    COMPLEX            :: TF_vect(iim/2+1,jj_end-jj_begin+1,nbniv)
    267265    INTEGER            :: nb_vect
    268266    INTEGER :: i,j,l
Note: See TracChangeset for help on using the changeset viewer.