Changeset 1146 for LMDZ4/trunk/libf/dyn3dpar/addfi_p.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/dyn3dpar/addfi_p.F (modified) (5 diffs)

LMDZ4/trunk/libf/dyn3dpar/addfi_p.F

@@ -2 +2 @@
 ! $Header$
 !
-      SUBROUTINE addfi_p(nq, pdt, leapf, forward,
+      SUBROUTINE addfi_p(pdt, leapf, forward,
      S          pucov, pvcov, pteta, pq   , pps ,
      S          pdufi, pdvfi, pdhfi,pdqfi, pdpfi  )
       USE parallel
+      USE infotrac, ONLY : nqtot
       IMPLICIT NONE
 c
@@ -53 +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
@@ -166 +165 @@
       ENDDO
 
-      DO iq = 3, nq
+      DO iq = 3, nqtot
 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
          DO k = 1,llm
@@ -208 +207 @@
 
       if (pole_nord) then
-        DO iq = 1, nq
+        DO iq = 1, nqtot
 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
           DO  k    = 1, llm
@@ -225 +224 @@
       
       if (pole_sud) then
-        DO iq = 1, nq
+        DO iq = 1, nqtot
 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
           DO  k    = 1, llm