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

Timestamp:

Jun 22, 2007, 2:49:51 PM (18 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/screenc.F90 (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/screenc.F90

@@ -22 +22 @@
 ! 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
@@ -53 +53 @@
       REAL, dimension(klon), intent(out) :: pref, delu, delte, delq 
 !-----------------------------------------------------------------------
-#include "YOMCST.inc"
+      include "YOMCST.h"
 !
 ! Variables locales