Changeset 130


Ignore:
Timestamp:
May 25, 2011, 3:45:43 PM (14 years ago)
Author:
slebonnois
Message:

Sebastien:

  • correction de bugs dans phytitan suite a compil avec -debug sur gnome
  • elimination de nbetat* dans gcm.F et leapfrog.F (et dans le parallele)
  • correction rday -> rjour dans sortvarc.F
  • ajustement des arch-GNOME*
Location:
trunk
Files:
14 edited

Legend:

Unmodified
Added
Removed

  • trunk/arch/arch-GNOMEp.fcm

    r116 r130  
    66%FPP_DEF             NC_DOUBLE BLAS SGEMV=DGEMV SGEMM=DGEMM FFT_FFTW
    77%BASE_FFLAGS         -real-size 64 -ip -mkl=parallel -fp-model precise -align common -mcmodel=large
    8 %PROD_FFLAGS         -O3
     8%PROD_FFLAGS         -O2
    99%DEV_FFLAGS          -O2
    10 %DEBUG_FFLAGS        -O2
     10%DEBUG_FFLAGS        -g -no-ftz -check -traceback -ftrapuv -fp-stack-check
    1111%MPI_FFLAGS          -I/opt/intel/impi/3.2.1.009/include64
    1212%OMP_FFLAGS         

  • trunk/arch/arch-GNOMEs.fcm

    r125 r130  
    88%PROD_FFLAGS         -O2
    99%DEV_FFLAGS          -O2
    10 %DEBUG_FFLAGS        -O2
     10%DEBUG_FFLAGS        -g -no-ftz -check -traceback -ftrapuv -fp-stack-check
    1111%C_COMPILER          gcc
    1212%C_OPTIM             -O3

  • trunk/arch/arch-GNOMEs.path

    r116 r130  
    11NETCDF_LIBDIR=/usr/local/lib
    22NETCDF_INCDIR=/usr/local/include
    3 IOIPSL_INCDIR=$trunk/ioipsl/lib
    4 IOIPSL_LIBDIR=$trunk/ioipsl/lib
     3IOIPSL_INCDIR=$HOME/LMDZ5/ioipsl/lib
     4IOIPSL_LIBDIR=$HOME/LMDZ5/ioipsl/lib
    55ORCH_INCDIR=$LMDGCM/../../lib
    66ORCH_LIBDIR=$LMDGCM/../../lib

  • trunk/arch/arch-linux-64bit.path

    r37 r130  
    1 NETCDF_LIBDIR=/home/emlmd/netcdf64-4.0.1_pgi/lib
    2 NETCDF_INCDIR=/home/emlmd/netcdf64-4.0.1_pgi/include
    3 IOIPSL_INCDIR=/home/emlmd/modipsl_pgi/lib
    4 IOIPSL_LIBDIR=/home/emlmd/modipsl_pgi/lib
     1NETCDF_LIBDIR=/donnees/emlmd/netcdf64-4.0.1_pgi/lib
     2NETCDF_INCDIR=/donnees/emlmd/netcdf64-4.0.1_pgi/include
     3IOIPSL_INCDIR=/donnees/emlmd/modipsl64_pgi/modipsl/lib
     4IOIPSL_LIBDIR=/donnees/emlmd/modipsl64_pgi/modipsl/lib
    55ORCH_INCDIR=/u/fairhead/modipsl_ioipsl_3/lib
    66ORCH_LIBDIR=/u/fairhead/modipsl_ioipsl_3/lib

  • trunk/chantiers/commit_importants.log

    r127 r130  
    903903-> au passage, pour rester en phase avec modèle terrestre on renomme
    904904   disvert_terre en disvert (le disvert "alternatif" demeure 'disvert_noterre')
     905
     906*********************
     907**** commit_v130 ****
     908*********************
     909
     910Sebastien:
     911
     912- correction de bugs dans phytitan suite a compil avec -debug sur gnome
     913- elimination de nbetat* dans gcm.F et leapfrog.F (et dans le parallele)
     914- correction rday -> rjour dans sortvarc.F
     915- ajustement des arch-GNOME*
     916

  • trunk/libf/dyn3d/gcm.F

    r101 r130  
    8585
    8686      REAL zdtvr
    87       INTEGER nbetatmoy, nbetatdem,nbetat
    8887
    8988c   variables dynamiques
    … …  
    397396#endif
    398397
    399 c  nombre d'etats dans les fichiers demarrage et histoire
    400       nbetatdem = nday / iecri
    401       nbetatmoy = nday / periodav + 1
    402 
    403398      if (iflag_phys.eq.1) then
    404399      ! these initialisations have already been done (via iniacademic)

  • trunk/libf/dyn3d/leapfrog.F

    r127 r130  
    6868
    6969      real zqmin,zqmax
    70       INTEGER nbetatmoy, nbetatdem,nbetat
    7170
    7271c   variables dynamiques
    … …  
    694693             ! Ehouarn: output only during LF or Backward Matsuno
    695694             if (leapf.or.(.not.leapf.and.(.not.forward))) then
    696               nbetat = nbetatdem
    697695! ADAPTATION GCM POUR CP(T)
    698696              call tpot2t(ijp1llm,teta,temp,pk)
    … …  
    821819              IF(MOD(itau,iecri         ).EQ.0) THEN
    822820c              IF(MOD(itau,iecri*day_step).EQ.0) THEN
    823                 nbetat = nbetatdem
    824821! ADAPTATION GCM POUR CP(T)
    825822                call tpot2t(ijp1llm,teta,temp,pk)

  • trunk/libf/dyn3d/sortvarc.F

    r124 r130  
    5353      REAL cosphi(ip1jm),omegcosp(ip1jm)
    5454      REAL dtvrs1j,rjour,heure,radsg,radomeg
    55       REAL rday, massebxy(ip1jm,llm)
     55      REAL massebxy(ip1jm,llm)
    5656      INTEGER  l, ij, imjmp1
    5757
    … …  
    143143
    144144      IF (firstcal.and.resetvarc) then
    145        rday = REAL(INT(time-jD_ref-jH_ref))
    146          PRINT 3500, itau, rday, heure,time
     145         PRINT 3500, itau, rjour, heure,time
    147146         PRINT*,'WARNING!!! On recalcule les valeurs initiales de :'
    148147         PRINT*,'ptot,rmsdpdt,etot,ztot,stot,rmsv,ang'
    … …  
    164163      firstcal = .false.
    165164
    166       PRINT 3500, itau, rday, heure, time
     165      PRINT 3500, itau, rjour, heure, time
    167166      PRINT 4000, ptot,rmsdpdt,etot,ztot,stot,rmsv,ang
    168167

  • trunk/libf/dyn3dpar/gcm.F

    r124 r130  
    8282
    8383      REAL zdtvr
    84 c      INTEGER nbetatmoy, nbetatdem,nbetat
    85       INTEGER nbetatmoy, nbetatdem
    8684
    8785c   variables dynamiques
    … …  
    416414#endif
    417415
    418 c  nombre d'etats dans les fichiers demarrage et histoire
    419       nbetatdem = nday / iecri
    420       nbetatmoy = nday / periodav + 1
    421 
    422416      if (iflag_phys.eq.1) then
    423417      ! these initialisations have already been done (via iniacademic)

  • trunk/libf/dyn3dpar/leapfrog_p.F

    r127 r130  
    7171     
    7272      real zqmin,zqmax
    73       INTEGER nbetatmoy, nbetatdem,nbetat
    7473
    7574c   variables dynamiques
    … …  
    15191518             if (leapf.or.(.not.leapf.and.(.not.forward))) then
    15201519c$OMP BARRIER
    1521 c$OMP MASTER
    1522               nbetat = nbetatdem
    1523 c$OMP END MASTER
    1524 c$OMP BARRIER
    15251520
    15261521! ADAPTATION GCM POUR CP(T)
    … …  
    17471742c              IF(MOD(itau,iecri*day_step).EQ.0) THEN
    17481743c$OMP BARRIER
    1749 c$OMP MASTER
    1750                 nbetat = nbetatdem
    1751 c$OMP END MASTER
    1752 c$OMP BARRIER
    17531744
    17541745! ADAPTATION GCM POUR CP(T)

  • trunk/libf/dyn3dpar/sortvarc.F

    r124 r130  
    5353      REAL cosphi(ip1jm),omegcosp(ip1jm)
    5454      REAL dtvrs1j,rjour,heure,radsg,radomeg
    55       REAL rday, massebxy(ip1jm,llm)
     55      REAL massebxy(ip1jm,llm)
    5656      INTEGER  l, ij, imjmp1
    5757
    … …  
    143143
    144144      IF (firstcal.and.resetvarc) then
    145        rday = REAL(INT(time-jD_ref-jH_ref))
    146          PRINT 3500, itau, rday, heure,time
     145         PRINT 3500, itau, rjour, heure,time
    147146         PRINT*,'WARNING!!! On recalcule les valeurs initiales de :'
    148147         PRINT*,'ptot,rmsdpdt,etot,ztot,stot,rmsv,ang'
    … …  
    164163      firstcal = .false.
    165164
    166       PRINT 3500, itau, rday, heure, time
     165      PRINT 3500, itau, rjour, heure, time
    167166      PRINT 4000, ptot,rmsdpdt,etot,ztot,stot,rmsv,ang
    168167

  • trunk/libf/phytitan/optci.F

    r119 r130  
    7474
    7575      integer iopti,iwarning     ! iopti: premier appel, une seule boucle sur les l.d'o.
    76       integer ig_,seulmtunpt
     76      integer ig,seulmtunpt
    7777      save iopti,iwarning,seulmtunpt
    7878      data iopti,iwarning,seulmtunpt/0,0,0/

  • trunk/libf/phytitan/optci_1pt.F

    r102 r130  
    318318C     ??FLAG? HERE MUST BE WATCHED CAREFULLY
    319319                     U=COLDEN(J)*6.02204E23/BMU
    320           if(ig.eq.1.and.k.eq.nspecv/2) print*,'Avant GAS2'
     320c         if(ig.eq.1.and.k.eq.nspecv/2) print*,'Avant GAS2'
    321321                     if((ylellouch).or.(.not.hcnrad)) then
    322322                       CALL GAS2_NOHCN(J, KGAS,TBAR,PBAR,U,TAU2)
    … …  
    324324                       CALL GAS2(J, KGAS,TBAR,PBAR,U,TAU2)
    325325                     endif
    326           if(ig.eq.1.and.k.eq.nspecv/2) print*,'Apres GAS2'
     326c         if(ig.eq.1.and.k.eq.nspecv/2) print*,'Apres GAS2'
    327327                     TAUGAS=TAUGAS+TAU2
    328328       ENDIF

  • trunk/libf/phytitan/pg3.F

    r125 r130  
    12041204         
    12051205
    1206 c        p0=.3
     1206c        p0=0.3
    12071207         p0=1.
    1208          do i=1,nz
     1208         do i=1,nz-1
    12091209          if (pb(i).lt.p0.and.pb(i+1).gt.p0) zalt0=(z(i)+z(i+1))/2.
    12101210         enddo
Note: See TracChangeset for help on using the changeset viewer.