Changeset 1146 for LMDZ4/trunk/libf/dyn3d/addfi.F

Timestamp:

Apr 9, 2009, 12:11:35 PM (15 years ago)

Author:

Laurent Fairhead

Message:

Réintegration dans le tronc des modifications issues de la branche LMDZ-dev
comprises entre la révision 1074 et 1145
Validation: une simulation de 1 jour en séquentiel sur PC donne les mêmes
résultats entre la trunk et la dev
LF

Location:

LMDZ4/trunk

Files:

• . (modified) (1 prop)
• libf/dyn3d/addfi.F (modified) (4 diffs)

LMDZ4/trunk/libf/dyn3d/addfi.F

@@ -2 +2 @@
 ! $Header$
 !
-      SUBROUTINE addfi(nq, pdt, leapf, forward,
+      SUBROUTINE addfi(pdt, leapf, forward,
      S          pucov, pvcov, pteta, pq   , pps ,
      S          pdufi, pdvfi, pdhfi,pdqfi, pdpfi  )
+
+      USE infotrac, ONLY : nqtot
       IMPLICIT NONE
 c
@@ -52 +54 @@
 c    -----------
 c
-      INTEGER nq
-
       REAL pdt
 c
       REAL pvcov(ip1jm,llm),pucov(ip1jmp1,llm)
-      REAL pteta(ip1jmp1,llm),pq(ip1jmp1,llm,nq),pps(ip1jmp1)
+      REAL pteta(ip1jmp1,llm),pq(ip1jmp1,llm,nqtot),pps(ip1jmp1)
 c
       REAL pdvfi(ip1jm,llm),pdufi(ip1jmp1,llm)
-      REAL pdqfi(ip1jmp1,llm,nq),pdhfi(ip1jmp1,llm),pdpfi(ip1jmp1)
+      REAL pdqfi(ip1jmp1,llm,nqtot),pdhfi(ip1jmp1,llm),pdpfi(ip1jmp1)
 c
       LOGICAL leapf,forward
@@ -125 +125 @@
       ENDDO
 
-      DO iq = 3, nq
+      DO iq = 3, nqtot
          DO k = 1,llm
             DO j = 1,ip1jmp1
@@ -148 +148 @@
 
 
-      DO iq = 1, nq
+      DO iq = 1, nqtot
         DO  k    = 1, llm
           DO  ij   = 1, iim