Changeset 130 for trunk/libf/phytitan


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/libf/phytitan
Files:
3 edited

Legend:

Unmodified
Added
Removed

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