Changeset 1146 for LMDZ4/trunk/libf/dyn3d/calfis.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/calfis.F (modified) (12 diffs)

LMDZ4/trunk/libf/dyn3d/calfis.F

@@ -4 +4 @@
 C
 C
-      SUBROUTINE calfis(nq,
-     $                  lafin,
+      SUBROUTINE calfis(lafin,
      $                  rdayvrai,
      $                  heure,
@@ -32 +31 @@
 c    Auteur :  P. Le Van, F. Hourdin 
 c   .........
+      USE infotrac
 
       IMPLICIT NONE
@@ -90 +90 @@
 #include "paramet.h"
 #include "temps.h"
-#include "advtrac.h"
-
-      INTEGER ngridmx,nq
+
+      INTEGER ngridmx
       PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )
 
@@ -109 +108 @@
       REAL pteta(iip1,jjp1,llm)
       REAL pmasse(iip1,jjp1,llm)
-      REAL pq(iip1,jjp1,llm,nqmx)
+      REAL pq(iip1,jjp1,llm,nqtot)
       REAL pphis(iip1,jjp1)
       REAL pphi(iip1,jjp1,llm)
@@ -116 +115 @@
       REAL pducov(iip1,jjp1,llm)
       REAL pdteta(iip1,jjp1,llm)
-      REAL pdq(iip1,jjp1,llm,nqmx)
+      REAL pdq(iip1,jjp1,llm,nqtot)
 c
       REAL pps(iip1,jjp1)
@@ -125 +124 @@
       REAL pdufi(iip1,jjp1,llm)
       REAL pdhfi(iip1,jjp1,llm)
-      REAL pdqfi(iip1,jjp1,llm,nqmx)
+      REAL pdqfi(iip1,jjp1,llm,nqtot)
       REAL pdpsfi(iip1,jjp1)
 
@@ -142 +141 @@
 c
       REAL zufi(ngridmx,llm), zvfi(ngridmx,llm)
-      REAL ztfi(ngridmx,llm),zqfi(ngridmx,llm,nqmx)
+      REAL ztfi(ngridmx,llm),zqfi(ngridmx,llm,nqtot)
 c
       REAL pcvgu(ngridmx,llm), pcvgv(ngridmx,llm)
@@ -148 +147 @@
 c
       REAL zdufi(ngridmx,llm),zdvfi(ngridmx,llm)
-      REAL zdtfi(ngridmx,llm),zdqfi(ngridmx,llm,nqmx)
+      REAL zdtfi(ngridmx,llm),zdqfi(ngridmx,llm,nqtot)
       REAL zdpsrf(ngridmx)
 c
@@ -275 +274 @@
 c   ---------------
 c
-      DO iq=1,nq
+      DO iq=1,nqtot
           iiq=niadv(iq) 
          DO l=1,llm
@@ -444 +443 @@
       CALL physiq (ngridmx,
      .             llm,
-     .             nq,
      .             debut,
      .             lafin,
@@ -505 +503 @@
 c   ---------------------
 
-      DO iq=1,nqmx
+      DO iq=1,nqtot
          DO l=1,llm
             DO i=1,iip1
@@ -526 +524 @@
       pdqfi=0.
 C
-      DO iq=1,nq
+      DO iq=1,nqtot
          iiq=niadv(iq)
          DO l=1,llm