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

trunk/libf/phytitan/cooling.F

@@ -1 +1 @@
       SUBROUTINE COOLING(ngrid,NL,PRESS,TEMP,Z,Q0,lwnet,pfluxi)
-      IMPLICIT NONE
 
 c=======================================================================
@@ -52 +51 @@
 c   ------------
 
+      use dimphy
+      IMPLICIT NONE
 #include "dimensions.h"
-#include "dimphy.h"
 #include "YOMCST.h"
       INTEGER NLAYER,NSPECI,NSPC1I