Changeset 102 for trunk/libf/phytitan/iniphysiq.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/iniphysiq.F (modified) (2 diffs)

trunk/libf/phytitan/iniphysiq.F

@@ -9 +9 @@
      $           plat,plon,parea,pcu,pcv,
      $           prad,pg,pr,pcpp)
-      IMPLICIT NONE
+
 c
 c=======================================================================
@@ -43 +43 @@
 c   -------------
  
+      use dimphy
+      USE comgeomphy
+      IMPLICIT NONE
 #include "dimensions.h"
-#include "dimphy.h"
-#include "comgeomphy.h"
 
       REAL prad,pg,pr,pcpp,punjours