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

LMDZ4/trunk/libf/phylmd/fisrtilp.h

@@ -1 +1 @@
 !
 ! $Header$
+!
+!
+!  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)
 !
       REAL cld_lc_lsc,cld_lc_con
@@ -9 +15 @@
       INTEGER iflag_pdf
 
-      common/comfisrtilp/
-     s     cld_lc_lsc     ! 2.6e-4
-     s     ,cld_lc_con    ! 2.6e-4
-     s     ,cld_tau_lsc   ! 3600.
-     s     ,cld_tau_con   ! 3600.
-     s     ,ffallv_lsc    ! 1.
-     s     ,ffallv_con    ! 1.
-     s     ,coef_eva      ! 2.e-5
-     s     ,reevap_ice    ! F
-     s     ,iflag_pdf     ! 0
+      common/comfisrtilp/                                               &
+     &     cld_lc_lsc                                                   &
+     &     ,cld_lc_con                                                  &
+     &     ,cld_tau_lsc                                                 &
+     &     ,cld_tau_con                                                 &
+     &     ,ffallv_lsc                                                  &
+     &     ,ffallv_con                                                  &
+     &     ,coef_eva                                                    &
+     &     ,reevap_ice                                                  &
+     &     ,iflag_pdf        
 
 !$OMP THREADPRIVATE(/comfisrtilp/)