Changeset 793 for LMDZ4/trunk/libf/phylmd/fonte_neige_mod.F90

Timestamp:

Jun 22, 2007, 2:49:51 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Modifications suite a la transformation des fichiers include pour
qu'ils soient compatibles a la fois au format fixe et au format libre
Un bon nombre de fichiers *.inc du coup disparaissent
LF

File:

• LMDZ4/trunk/libf/phylmd/fonte_neige_mod.F90 (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/fonte_neige_mod.F90

@@ -44 +44 @@
 ! restart file. The other variables are initialized to zero.
 !
-    INCLUDE "indicesol.inc"
+    INCLUDE "indicesol.h"
 !****************************************************************************************
 ! Input argument
@@ -139 +139 @@
 !   evap
 !
-  INCLUDE "indicesol.inc"
-  INCLUDE "dimensions90.h"
-  INCLUDE "YOETHF.inc"
-  INCLUDE "YOMCST.inc"
-  INCLUDE "FCTTRE.inc"
-  INCLUDE "clesphys.inc"
+  INCLUDE "indicesol.h"
+  INCLUDE "dimensions.h"
+  INCLUDE "YOETHF.h"
+  INCLUDE "YOMCST.h"
+  INCLUDE "FCTTRE.h"
+  INCLUDE "clesphys.h"
 
 ! Input variables
@@ -313 +313 @@
 ! This routine is called from physiq.F before histwrite.
 
-    INCLUDE "indicesol.inc"
+    INCLUDE "indicesol.h"
 !****************************************************************************************
     REAL, DIMENSION(klon,nbsrf), INTENT(IN) :: pctsrf