Changeset 102 for trunk/libf/phyvenus

Timestamp:

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

Author:

slebonnois

Message:

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

Location:

trunk/libf/phyvenus

Files:

• comgeomphy.h (deleted)
• dimphy.h (deleted)
• iniphysiq.F (modified) (2 diffs)
• printflag.F (modified) (1 diff)
• raddim.160.98.h (deleted)
• raddim.192.143.h (deleted)
• raddim.32.24.h (deleted)
• raddim.48.32.h (deleted)
• raddim.72.46.h (deleted)
• raddim.96.72.h (deleted)
• raddim.defaut.h (deleted)
• raddim.h (deleted)

trunk/libf/phyvenus/iniphysiq.F

@@ -10 +10 @@
      $           prad,pg,pr,pcpp)
 
-      use dimphy
-      USE comgeomphy
-      IMPLICIT NONE
 c
 c=======================================================================
@@ -46 +43 @@
 c   -------------
  
+      use dimphy
+      USE comgeomphy
+      IMPLICIT NONE
 #include "dimensions.h"
 

trunk/libf/phyvenus/printflag.F

@@ -119 +119 @@
 
 
- 11    FORMAT(2x,5(1H*),', Ok_orodr = ',
-     , l3,3x,', Ok_orolf = ',l3,3x,5(1H*) )
+ 11    FORMAT(2x,5(1H*),', Ok_orodr = ',l3,3x,', Ok_orolf = ',l3,3x,
+     ,    ' ok_gw_nonoro = ',l3,3x,5(1H*) )