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

LMDZ4/trunk/libf/phylmd/coefcdrag.F90

@@ -21 +21 @@
 ! klon----input-I- dimension de la grille physique (= nb_pts_latitude X nb_pts_longitude)
 ! knon----input-I- nombre de points pour un type de surface
-! nsrf----input-I- indice pour le type de surface; voir indicesol.inc
+! nsrf----input-I- indice pour le type de surface; voir indicesol.h
 ! zxli----input-L- TRUE si calcul des cdrags selon Laurent Li
 ! speed---input-R- module du vent au 1er niveau du modele
@@ -50 +50 @@
 !-------------------------------------------------------------------------
 !
-#include "YOMCST.inc"
-#include "YOETHF.inc"
-#include "indicesol.inc"
+      include "YOMCST.h"
+      include "YOETHF.h"
+      include "indicesol.h"
 ! Quelques constantes :
       REAL, parameter :: RKAR=0.40, CB=5.0, CC=5.0, CD=5.0