Changeset 101 for trunk/libf/phyvenus/radlwsw.NewtonCool

Timestamp:

Mar 23, 2011, 4:23:31 PM (14 years ago)

Author:

slebonnois

Message:

SL: modifications pour arriver a compiler le gcm VENUS !
Ca marche !
A noter: modifs de makelmdz

File:

• trunk/libf/phyvenus/radlwsw.NewtonCool (modified) (2 diffs)

trunk/libf/phyvenus/radlwsw.NewtonCool

@@ -9 +9 @@
      .                  lwnet, swnet)
 c      
-      IMPLICIT none
 c======================================================================
 c Auteur(s): Z.X. Li (LMD/CNRS) date: 19960719
@@ -38 +37 @@
 
 c======================================================================
+      use dimphy
+      USE comgeomphy
+      IMPLICIT none
 #include "dimensions.h"
-#include "dimphy.h"
-#include "raddim.h"
 #include "YOMCST.h"
 #include "clesphys.h" 
-#include "comgeomphy.h"
 c
       real rmu0(klon), fract(klon), dist