Changeset 102 for trunk/libf/phytitan/radtitan.F

Timestamp:

Mar 24, 2011, 11:46:27 AM (14 years ago)

Author:

slebonnois

Message:

SL : corrections et modifications dans phytitan correspondant a celles
faites apres compilation Venus. Titan pas encore compile.

File:

• trunk/libf/phytitan/radtitan.F (modified) (3 diffs)

trunk/libf/phytitan/radtitan.F

@@ -1 +1 @@
        SUBROUTINE RADTITAN(p,nq,nmicro,ycomp)
-
-      IMPLICIT NONE
-
 
 c=======================================================================
@@ -34 +31 @@
 c   -------------
 
+      USE infotrac
+      use dimphy
+      USE comgeomphy
+      IMPLICIT NONE
 #include "dimensions.h"
-#include "dimphy.h"
 #include "clesphys.h"
 #include "microtab.h"
 #include "numchimrad.h"
-#include "comgeomphy.h"
 #include "YOMCST.h"
-#include "advtrac.h"     !! pour noms des traceurs
 
 c Pour le CRAY, les block data doivent etre declares external
@@ -297 +295 @@
 
           do i=1,nq
-             if (tnom(i).eq."CH4") then
+             if (tname(i).eq."CH4") then
                 iradch4=i
-             elseif (tnom(i).eq."C2H2") then
+             elseif (tname(i).eq."C2H2") then
                 iradc2h2=i
-             elseif (tnom(i).eq."C2H6") then
+             elseif (tname(i).eq."C2H6") then
                 iradc2h6=i
-             elseif (tnom(i).eq."HCN") then
+             elseif (tname(i).eq."HCN") then
                 iradhcn=i
-             elseif (tnom(i).eq."N2") then
+             elseif (tname(i).eq."N2") then
                 iradn2=i
-             elseif (tnom(i).eq."H2") then
+             elseif (tname(i).eq."H2") then
                 iradh2=i
              endif