Changeset 130 for trunk/libf/phytitan/optci_1pt.F

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*

File:

• trunk/libf/phytitan/optci_1pt.F (modified) (2 diffs)

trunk/libf/phytitan/optci_1pt.F

@@ -318 +318 @@
 C     ??FLAG? HERE MUST BE WATCHED CAREFULLY
                      U=COLDEN(J)*6.02204E23/BMU
-          if(ig.eq.1.and.k.eq.nspecv/2) print*,'Avant GAS2'
+c         if(ig.eq.1.and.k.eq.nspecv/2) print*,'Avant GAS2'
                      if((ylellouch).or.(.not.hcnrad)) then
                        CALL GAS2_NOHCN(J, KGAS,TBAR,PBAR,U,TAU2)
@@ -324 +324 @@
                        CALL GAS2(J, KGAS,TBAR,PBAR,U,TAU2)
                      endif
-          if(ig.eq.1.and.k.eq.nspecv/2) print*,'Apres GAS2'
+c         if(ig.eq.1.and.k.eq.nspecv/2) print*,'Apres GAS2'
                      TAUGAS=TAUGAS+TAU2
        ENDIF