Ignore:
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:
6 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk

  • LMDZ4/trunk/libf/bibio/initdynav.F

    r761 r1146  
    55c
    66      subroutine initdynav(infile,day0,anne0,tstep,t_ops,t_wrt
    7      .                     ,nq,fileid)
     7     .                     ,fileid)
    88
    99       USE IOIPSL
     10       USE infotrac, ONLY : nqtot, ttext
    1011
    1112      implicit none
    … …  
    2829C      t_ops: frequence de l'operation pour IOIPSL
    2930C      t_wrt: frequence d'ecriture sur le fichier
    30 C      nq: nombre de traceurs
    3131C
    3232C   Sortie:
    … …  
    4848#include "description.h"
    4949#include "serre.h"
    50 #include "advtrac.h"
    5150
    5251C   Arguments
    … …  
    5655      real tstep, t_ops, t_wrt
    5756      integer fileid
    58       integer nq
    5957      integer thoriid, zvertiid
    6058
    … …  
    136134C  Traceurs
    137135C
    138         DO iq=1,nq
     136        DO iq=1,nqtot
    139137          call histdef(fileid, ttext(iq), ttext(iq), '-',
    140138     .             iip1, jjp1, thoriid, llm, 1, llm, zvertiid,

  • LMDZ4/trunk/libf/bibio/initfluxsto.F

    r761 r1146  
    33!
    44      subroutine initfluxsto
    5      .  (infile,tstep,t_ops,t_wrt,nq,
     5     .  (infile,tstep,t_ops,t_wrt,
    66     .                    fileid,filevid,filedid)
    77
    … …  
    2727C      t_ops: frequence de l'operation pour IOIPSL
    2828C      t_wrt: frequence d'ecriture sur le fichier
    29 C      nq: nombre de traceurs
    3029C
    3130C   Sortie:
    … …  
    5554      real tstep, t_ops, t_wrt
    5655      integer fileid, filevid,filedid
    57       integer nq,ndex(1)
     56      integer ndex(1)
    5857      real nivd(1)
    5958

  • LMDZ4/trunk/libf/bibio/inithist.F

    r761 r1146  
    22! $Header$
    33!
    4       subroutine inithist(infile,day0,anne0,tstep,t_ops,t_wrt,nq,fileid,
     4      subroutine inithist(infile,day0,anne0,tstep,t_ops,t_wrt,fileid,
    55     .                    filevid)
    66
    77       USE IOIPSL
     8       USE infotrac, ONLY : nqtot, ttext
    89
    910      implicit none
    … …  
    4748#include "description.h"
    4849#include "serre.h"
    49 #include "advtrac.h"
    5050
    5151C   Arguments
    … …  
    5555      real tstep, t_ops, t_wrt
    5656      integer fileid, filevid
    57       integer nq
    5857
    5958C   Variables locales
    … …  
    154153C  Traceurs
    155154C
    156         DO iq=1,nq
     155        DO iq=1,nqtot
    157156          call histdef(fileid, ttext(iq),  ttext(iq), '-',
    158157     .             iip1, jjp1, thoriid, llm, 1, llm, zvertiid,

  • LMDZ4/trunk/libf/bibio/writedynav.F

    r524 r1146  
    22! $Header$
    33!
    4       subroutine writedynav( histid, nq, time, vcov,
     4      subroutine writedynav( histid, time, vcov,
    55     ,                          ucov,teta,ppk,phi,q,masse,ps,phis)
    66
    77      USE ioipsl
     8      USE infotrac, ONLY : nqtot, ttext
    89      implicit none
    910
    … …  
    1516C   Entree:
    1617C      histid: ID du fichier histoire
    17 C      nqmx: nombre maxi de traceurs
    1818C      time: temps de l'ecriture
    1919C      vcov: vents v covariants
    … …  
    4545#include "description.h"
    4646#include "serre.h"
    47 #include "advtrac.h"
    4847
    4948C
    … …  
    5150C
    5251
    53       INTEGER histid, nq
     52      INTEGER histid
    5453      REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm)
    5554      REAL teta(ip1jmp1*llm),phi(ip1jmp1,llm),ppk(ip1jmp1*llm)                 
    5655      REAL ps(ip1jmp1),masse(ip1jmp1,llm)                   
    5756      REAL phis(ip1jmp1)                 
    58       REAL q(ip1jmp1,llm,nq)
     57      REAL q(ip1jmp1,llm,nqtot)
    5958      integer time
    6059
    … …  
    119118C  Traceurs
    120119C
    121         DO iq=1,nq
     120        DO iq=1,nqtot
    122121          call histwrite(histid, ttext(iq), itau_w, q(:,:,iq),
    123122     .                   iip1*jjp1*llm, ndex3d)

  • LMDZ4/trunk/libf/bibio/writehist.F

    r524 r1146  
    22! $Header$
    33!
    4       subroutine writehist( histid, histvid, nq, time, vcov,
     4      subroutine writehist( histid, histvid, time, vcov,
    55     ,                          ucov,teta,phi,q,masse,ps,phis)
    66
    77      USE ioipsl
     8      USE infotrac, ONLY : nqtot, ttext
    89      implicit none
    910
    … …  
    1617C      histid: ID du fichier histoire
    1718C      histvid:ID du fichier histoire pour les vents V (appele a disparaitre)
    18 C      nqmx: nombre maxi de traceurs
    1919C      time: temps de l'ecriture
    2020C      vcov: vents v covariants
    … …  
    4646#include "description.h"
    4747#include "serre.h"
    48 #include "advtrac.h"
    4948
    5049C
    … …  
    5251C
    5352
    54       INTEGER histid, nq, histvid
     53      INTEGER histid, histvid
    5554      REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm)
    5655      REAL teta(ip1jmp1,llm),phi(ip1jmp1,llm)                   
    5756      REAL ps(ip1jmp1),masse(ip1jmp1,llm)                   
    5857      REAL phis(ip1jmp1)                 
    59       REAL q(ip1jmp1,llm,nq)
     58      REAL q(ip1jmp1,llm,nqtot)
    6059      integer time
    6160
    … …  
    102101C  Traceurs
    103102C
    104         DO iq=1,nq
     103        DO iq=1,nqtot
    105104          call histwrite(histid, ttext(iq), itau_w, q(:,:,iq),
    106105     .                   iip1*jjp1*llm, ndexu)
Note: See TracChangeset for help on using the changeset viewer.