Changeset 946 for LMDZ4/trunk/libf

Timestamp:

Apr 16, 2008, 12:34:42 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Compatibilite F90
LF

File:

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

LMDZ4/trunk/libf/dyn3dpar/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 
       INTEGER vadv(nqmx) ! indice schema transport vertical 
       INTEGER niadv(nqmx) ! equivalent dyn / physique
-      character*8 tnom(nqmx) ! nom court du traceur
-      character*10 tname(nqmx) ! nom du traceur pour restart
-      character*13 ttext(nqmx) ! nom long du traceur pour sorties
+      character (len=8) :: tnom(nqmx) ! nom court du traceur
+      character (len=10) :: tname(nqmx) ! nom du traceur pour restart
+      character (len=13) :: ttext(nqmx) ! nom long du traceur pour sorties
+
 
       integer nbtrac
@@ -23 +31 @@
       integer conv_flg(nqmx-2) 
       integer pbl_flg(nqmx-2)
-      character*8 tracnam(nqmx-2) 
-c-----------------------------------------------------------------------
+      character (len=8) :: tracnam(nqmx-2) 
+!-----------------------------------------------------------------------