Changeset 908

Timestamp:

Feb 14, 2008, 5:25:27 PM (17 years ago)

Author:

lmdzadmin

Message:

Ajout & pour compatibilite format fixe/format libre AI
IM

File:

• LMDZ4/trunk/libf/dyn3d/advtrac.h (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3d/advtrac.h

@@ -2 +2 @@
 ! $Header$
 !
-c-----------------------------------------------------------------------
-c INCLUDE 'advtrac.h'
+!-----------------------------------------------------------------------
+! INCLUDE 'advtrac.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)
+!
 
-      COMMON/advtr/iadv,hadv,vadv,tnom,tname,ttext,niadv,
-     &     nbtrac, nprath, mmt_adj, hadv_flg, vadv_flg, conv_flg, 
-     &     pbl_flg, tracnam
+      COMMON/advtr/iadv, hadv, vadv, tnom, tname, ttext, niadv,         &
+     &   nbtrac, nprath, mmt_adj, hadv_flg, vadv_flg, conv_flg,         &
+     &   pbl_flg, tracnam
       INTEGER iadv(nqmx) ! indice schema de transport 
       INTEGER hadv(nqmx) ! indice schema transport horizontal 
@@ -25 +32 @@
       integer pbl_flg(nqmx-2)
       character*8 tracnam(nqmx-2) 
-c-----------------------------------------------------------------------
+!-----------------------------------------------------------------------