Changeset 792 for LMDZ4/trunk/libf/dyn3dpar/control.h

Timestamp:

Jun 22, 2007, 2:46:23 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 fichier *.inc du coup disparaissent
LF

File:

• LMDZ4/trunk/libf/dyn3dpar/control.h (modified) (1 diff)

LMDZ4/trunk/libf/dyn3dpar/control.h

@@ -2 +2 @@
 ! $Header$
 !
-c-----------------------------------------------------------------------
-c INCLUDE 'control.h'
+!
+!  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)
+!
+!-----------------------------------------------------------------------
+! INCLUDE 'control.h'
 
-      COMMON/control/nday,day_step,
-     .              iperiod,iapp_tracvl,iconser,iecri,idissip,iphysiq ,
-     .              periodav,ecritphy,iecrimoy,dayref,anneeref,
-     .              raz_date,offline,ip_ebil_dyn
+      COMMON/control/nday,day_step,                                     &
+     &              iperiod,iapp_tracvl,iconser,iecri,idissip,iphysiq , &
+     &              periodav,ecritphy,iecrimoy,dayref,anneeref,         &
+     &              raz_date,offline,ip_ebil_dyn
 
-      INTEGER   nday,day_step,iperiod,iapp_tracvl,iconser,iecri,
-     .          idissip,iphysiq,iecrimoy,dayref,anneeref, raz_date,
-     .          ip_ebil_dyn 
+      INTEGER   nday,day_step,iperiod,iapp_tracvl,iconser,iecri,        &
+     &          idissip,iphysiq,iecrimoy,dayref,anneeref, raz_date      &
+     &          ,ip_ebil_dyn
       REAL periodav, ecritphy
       logical offline
 
-c-----------------------------------------------------------------------
+!-----------------------------------------------------------------------