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

LMDZ4/trunk/libf/dyn3d/dynetat0.F

@@ -2 +2 @@
 ! $Header$
 !
-      SUBROUTINE dynetat0(fichnom,nq,vcov,ucov,
+      SUBROUTINE dynetat0(fichnom,vcov,ucov,
      .                    teta,q,masse,ps,phis,time)
+
+      USE infotrac
       IMPLICIT NONE
 
@@ -32 +34 @@
 #include "serre.h"
 #include "logic.h"
-#include "advtrac.h"
 
 c   Arguments:
@@ -38 +39 @@
 
       CHARACTER*(*) fichnom
-      INTEGER nq
       REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm),teta(ip1jmp1,llm)
-      REAL q(ip1jmp1,llm,nq),masse(ip1jmp1,llm)
+      REAL q(ip1jmp1,llm,nqtot),masse(ip1jmp1,llm)
       REAL ps(ip1jmp1),phis(ip1jmp1)
 
@@ -315 +315 @@
 
 
-      IF(nq.GE.1) THEN
-      DO iq=1,nq
+      IF(nqtot.GE.1) THEN
+      DO iq=1,nqtot
         ierr =  NF_INQ_VARID (nid, tname(iq), nvarid)
         IF (ierr .NE. NF_NOERR) THEN