Changeset 793 for LMDZ4/trunk/libf/phylmd/climb_hq_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/climb_hq_mod.F90 (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/climb_hq_mod.F90

@@ -28 +28 @@
        petAcoef, peqAcoef, petBcoef, peqBcoef)
 
-    INCLUDE "YOMCST.inc"
+    INCLUDE "YOMCST.h"
 ! This routine calculates recursivly the coefficients C and D
 ! for the quantity X=[Q,H] in equation X(k) = C(k) + D(k)*X(k-1), where k is
@@ -183 +183 @@
 ! where X is H or Q, and k the vertical level k=1,klev
 !
-    INCLUDE "YOMCST.inc"
+    INCLUDE "YOMCST.h"
 ! Input arguments
 !****************************************************************************************
@@ -255 +255 @@
 ! C and D are known from before and k is index of the vertical layer.
 !   
-    INCLUDE "YOMCST.inc"
+    INCLUDE "YOMCST.h"
 ! Input arguments
 !****************************************************************************************