Changeset 962 for LMDZ4/trunk/libf

Timestamp:

Jun 9, 2008, 11:51:32 AM (16 years ago)

Author:

Laurent Fairhead

Message:

Un peu de menage pour avoir moins de sorties a la compilation sur Nec
LF

Location:

LMDZ4/trunk/libf

Files:

• dyn3d/advtrac.h (modified) (2 diffs)
• dyn3d/control.h (modified) (1 diff)
• dyn3d/gcm.F (modified) (1 diff)
• filtrez/acc.F (modified) (1 diff)

LMDZ4/trunk/libf/dyn3d/advtrac.h

@@ -19 +19 @@
       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
 
 
@@ -31 +31 @@
       integer conv_flg(nqmx-2) 
       integer pbl_flg(nqmx-2)
-      character*8 tracnam(nqmx-2) 
+      character (len=8) :: tracnam(nqmx-2) 
 !-----------------------------------------------------------------------

LMDZ4/trunk/libf/dyn3d/control.h

@@ -21 +21 @@
       REAL periodav
       logical offline
-      CHARACTER*4 config_inca
+      CHARACTER (len=4) :: config_inca
 !-----------------------------------------------------------------------

LMDZ4/trunk/libf/dyn3d/gcm.F

@@ -115 +115 @@
       REAL alpha(ip1jmp1,llm),beta(ip1jmp1,llm)
 c+jld variables test conservation energie
-      REAL ecin(ip1jmp1,llm),ecin0(ip1jmp1,llm)
+c      REAL ecin(ip1jmp1,llm),ecin0(ip1jmp1,llm)
 C     Tendance de la temp. potentiel d (theta)/ d t due a la 
 C     tansformation d'energie cinetique en energie thermique
 C     cree par la dissipation
       REAL dhecdt(ip1jmp1,llm)
-      REAL vcont(ip1jm,llm),ucont(ip1jmp1,llm)
-      REAL      d_h_vcol, d_qt, d_qw, d_ql, d_ec
-      CHARACTER*15 ztit
+c      REAL vcont(ip1jm,llm),ucont(ip1jmp1,llm)
+c      REAL      d_h_vcol, d_qt, d_qw, d_ql, d_ec
+      CHARACTER (len=15) :: ztit
 c-jld 
 
 
-      character*80 dynhist_file, dynhistave_file
-      character*20 modname
-      character*80 abort_message
+      character (len=80) :: dynhist_file, dynhistave_file
+      character (len=20) :: modname
+      character (len=80) :: abort_message
 
 C Calendrier

LMDZ4/trunk/libf/filtrez/acc.F

@@ -4 +4 @@
         subroutine acc(vec,d,im)
         dimension vec(im,im),d(im)
-        do 10 j=1,im
-        do 9 i=1,im
- 9      d(i)=vec(i,j)*vec(i,j)
-        sum=ssum(im,d,1)
-        sum=sqrt(sum)
-        do 10 i=1,im
- 10     vec(i,j)=vec(i,j)/sum
+        do j=1,im
+          do i=1,im
+            d(i)=vec(i,j)*vec(i,j)
+          enddo
+          sum=ssum(im,d,1)
+          sum=sqrt(sum)
+          do i=1,im
+            vec(i,j)=vec(i,j)/sum
+          enddo
+        enddo
         return
         end