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

LMDZ4/trunk/libf/dyn3dpar/inithist_p.F

@@ -2 +2 @@
 ! $Header$
 !
-      subroutine inithist_p(infile,day0,anne0,tstep,t_ops,t_wrt,nq,
+      subroutine inithist_p(infile,day0,anne0,tstep,t_ops,t_wrt,
      .                      fileid,filevid)
 
@@ -9 +9 @@
        use Write_field
        use misc_mod
+       USE infotrac
 
       implicit none
@@ -29 +30 @@
 C      t_ops: frequence de l'operation pour IOIPSL
 C      t_wrt: frequence d'ecriture sur le fichier
-C      nq: nombre de traceurs
 C
 C   Sortie:
@@ -50 +50 @@
 #include "description.h"
 #include "serre.h"
-#include "advtrac.h"
 
 C   Arguments
@@ -58 +57 @@
       real tstep, t_ops, t_wrt
       integer fileid, filevid
-      integer nq
 
 C   Variables locales
@@ -83 +81 @@
       INTEGER :: dynu_domain_id
       INTEGER :: dynv_domain_id
+
 C
 C  Initialisations
@@ -217 +216 @@
 C  Traceurs
 C
-        DO iq=1,nq
+        DO iq=1,nqtot
           call histdef(fileid, ttext(iq),  ttext(iq), '-',
      .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,