Changeset 843 for trunk/LMDZ.COMMON


Ignore:
Timestamp:
Nov 15, 2012, 10:33:08 AM (12 years ago)
Author:
emillour
Message:

Common dynamics:

  • bug fix in filtreg_p.F on array boundaries (important when not using BLAS)
  • updated arch-GNOME files to point to more recent ifort compiler
  • converted script "build_gcm" to bash

EM

Location:
trunk/LMDZ.COMMON
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/arch/arch-GNOMEp.fcm

    r841 r843  
    1 %COMPILER            /opt/intel/composerxe-2011.0.084/bin/intel64/ifort
    2 %LINK                /opt/intel/composerxe-2011.0.084/bin/intel64/ifort
     1%COMPILER            /opt/intel2/composer_xe_2011_sp1.6.233/bin/intel64/ifort
     2%LINK                /opt/intel2/composer_xe_2011_sp1.6.233/bin/intel64/ifort
    33%AR                  ar
    44%MAKE                make
    55%FPP_FLAGS           -P -traditional
    66%FPP_DEF             NC_DOUBLE BLAS SGEMV=DGEMV SGEMM=DGEMM FFT_FFTW
    7 %BASE_FFLAGS         -real-size 64 -ip -mkl=parallel -fp-model precise -align common -mcmodel=large
     7%BASE_FFLAGS         -real-size 64 -ip -mkl=parallel -fp-model precise -align common -mcmodel=large -shared-intel
    88%PROD_FFLAGS         -O2
    99%DEV_FFLAGS          -O2
    1010%DEBUG_FFLAGS        -g -no-ftz -check -traceback -ftrapuv -fp-stack-check
    11 %MPI_FFLAGS          -I/opt/intel/impi/4.0.1.007/include64
    12 %OMP_FFLAGS         
     11%MPI_FFLAGS          -I/opt/intel2/impi/4.0.3.008/include
     12%OMP_FFLAGS          -openmp
    1313%BASE_LD             -mkl=parallel
    14 %MPI_LD              -L/opt/intel/impi/4.0.1.007/lib64 -lmpiif -lmpi -lmkl_core -lfftw3
    15 %OMP_LD             
     14%MPI_LD              -L/opt/intel2/impi/4.0.3.008/lib64 -lmpiif -lmpi -lmkl_core -lfftw3
     15%OMP_LD              -openmp

  • trunk/LMDZ.COMMON/arch/arch-GNOMEs.fcm

    r841 r843  
    1 %COMPILER            /opt/intel/composerxe-2011.0.084/bin/intel64/ifort
    2 %LINK                /opt/intel/composerxe-2011.0.084/bin/intel64/ifort
     1%COMPILER            /opt/intel2/composer_xe_2011_sp1.6.233/bin/intel64/ifort
     2%LINK                /opt/intel2/composer_xe_2011_sp1.6.233/bin/intel64/ifort
    33%AR                  ar
    44%MAKE                make
    55%FPP_FLAGS           -P -traditional
    66%FPP_DEF             NC_DOUBLE BLAS SGEMV=DGEMV SGEMM=DGEMM
    7 %BASE_FFLAGS         -real-size 64 -ip -mkl=sequential -fp-model precise -align common  -mcmodel=large
     7%BASE_FFLAGS         -real-size 64 -ip -mkl=sequential -fp-model precise -align common  -mcmodel=large -shared-intel
    88%PROD_FFLAGS         -O2
    99%DEV_FFLAGS          -O2

  • trunk/LMDZ.COMMON/build_gcm

    r134 r843  
    1 #!/bin/csh
     1#!/bin/bash
    22
    3 if ( -f '.lock' ) then
     3if [[ -f '.lock' ]] ; then
    44  echo 'ATTENTION: vous etes sans doute en train de compiler le modele par ailleurs'
    55  echo "Attendez que la premiere compilation soit terminee pour relancer la suivante."
    … …  
    77  echo  vous pouvez continuer en repondant oui.
    88  echo "Voulez-vous vraiment continuer?"
    9 
    10   if ( $< == "oui" ) then
    11    
    12   else
     9  read -p "" answer
     10  if [[ $answer != "oui" ]] ; then
    1311    exit
    14   endif
     12  fi
    1513else
    1614  echo "compilation en cours..." > '.lock'
    17 endif
    18 
    19 #set arch=$1
    20 
     15fi
    2116
    2217fcm build

  • trunk/LMDZ.COMMON/libf/dyn3dpar/filtreg_p.F

    r492 r843  
    214214     &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
    215215#else
    216                      champ_fft(:,j-jdfil+1,:)
     216                     champ_fft(:iim,j-jdfil+1,:)
    217217     &                    =matmul(matrinvn(:,:,j),champ_loc(:iim,j,:))
    218218#endif
    … …  
    227227     &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
    228228#else
    229                      champ_fft(:,j-jdfil+1,:)
     229                     champ_fft(:iim,j-jdfil+1,:)
    230230     &                    =matmul(matriceun(:,:,j),champ_loc(:iim,j,:))
    231231#endif
    … …  
    240240     &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
    241241#else
    242                      champ_fft(:,j-jdfil+1,:)
     242                     champ_fft(:iim,j-jdfil+1,:)
    243243     &                    =matmul(matricevn(:,:,j),champ_loc(:iim,j,:))
    244244#endif
    … …  
    257257     &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
    258258#else
    259                      champ_fft(:,j-jdfil+1,:)
     259                     champ_fft(:iim,j-jdfil+1,:)
    260260     &                    =matmul(matrinvs(:,:,j-jfiltsu+1),
    261261     &                            champ_loc(:iim,j,:))
    … …  
    272272     &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
    273273#else
    274                      champ_fft(:,j-jdfil+1,:)
     274                     champ_fft(:iim,j-jdfil+1,:)
    275275     &                    =matmul(matriceus(:,:,j-jfiltsu+1),
    276276     &                            champ_loc(:iim,j,:))
    … …  
    287287     &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
    288288#else
    289                      champ_fft(:,j-jdfil+1,:)
     289                     champ_fft(:iim,j-jdfil+1,:)
    290290     &                    =matmul(matricevs(:,:,j-jfiltsv+1),
    291291     &                            champ_loc(:iim,j,:))
Note: See TracChangeset for help on using the changeset viewer.