Changeset 793 for LMDZ4/trunk/libf/phylmd/YOETHF.h

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/YOETHF.h (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/YOETHF.h

@@ -2 +2 @@
 ! $Header$
 !
-C*    COMMON *YOETHF* DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS
-C
-C     *R__ES*   *CONSTANTS USED FOR COMPUTATION OF SATURATION
-C                MIXING RATIO OVER LIQUID WATER(*R_LES*) OR
-C                ICE(*R_IES*).
-C     *RVTMP2*  *RVTMP2=RCPV/RCPD-1.
-C     *RHOH2O*  *DENSITY OF LIQUID WATER.   (RATM/100.)
-C
+!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
+!                 veillez  n'utiliser que des ! pour les commentaires
+!                 et  bien positionner les & des lignes de continuation
+!                 (les placer en colonne 6 et en colonne 73)
+!
+!*    COMMON *YOETHF* DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS
+!
+!     *R__ES*   *CONSTANTS USED FOR COMPUTATION OF SATURATION
+!                MIXING RATIO OVER LIQUID WATER(*R_LES*) OR
+!                ICE(*R_IES*).
+!     *RVTMP2*  *RVTMP2=RCPV/RCPD-1.
+!     *RHOH2O*  *DENSITY OF LIQUID WATER.   (RATM/100.)
+!
       REAL R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES
       REAL RVTMP2, RHOH2O
-      COMMON /YOETHF/R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES,
-     .               RVTMP2, RHOH2O
+      COMMON /YOETHF/R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES,    &
+     &               RVTMP2, RHOH2O
 !$OMP THREADPRIVATE(/YOETHF/)