/[lmdze]/trunk/libf/bibio/writedynav.f90
ViewVC logotype

Diff of /trunk/libf/bibio/writedynav.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 60 by guez, Tue Jan 10 19:02:02 2012 UTC revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC
# Line 4  module writedynav_m Line 4  module writedynav_m
4    
5  contains  contains
6    
7    subroutine writedynav(nq, time, vcov, ucov, teta, ppk, phi, q, masse, ps, &    subroutine writedynav(vcov, ucov, teta, ppk, phi, q, masse, ps, phis, time)
        phis)  
8    
9      ! From LMDZ4/libf/bibio/writedynav.F, version 1.1.1.1 2004/05/19 12:53:05      ! From LMDZ4/libf/bibio/writedynav.F, version 1.1.1.1 2004/05/19 12:53:05
10      ! Ecriture du fichier histoire au format IOIPSL      ! Ecriture du fichier histoire au format IOIPSL
# Line 13  contains Line 12  contains
12      ! Appels successifs des routines histwrite      ! Appels successifs des routines histwrite
13    
14      ! Entree:      ! Entree:
     ! time: temps de l'ecriture  
15      ! vcov: vents v covariants      ! vcov: vents v covariants
16      ! ucov: vents u covariants      ! ucov: vents u covariants
17      ! phi : geopotentiel instantane      ! phi : geopotentiel instantane
# Line 23  contains Line 21  contains
21    
22      ! L. Fairhead, LMD, 03/99      ! L. Fairhead, LMD, 03/99
23    
24        use covnat_m, only: covnat
25      USE histwrite_m, ONLY: histwrite      USE histwrite_m, ONLY: histwrite
26      USE histcom, ONLY: histsync      USE histsync_m, ONLY: histsync
27      USE dimens_m, ONLY: llm      USE dimens_m, ONLY: llm
28      USE paramet_m, ONLY: iip1, ijp1llm, ip1jm, ip1jmp1, jjp1      USE paramet_m, ONLY: iip1, ijp1llm, ip1jm, ip1jmp1, jjp1
29      USE comconst, ONLY: cpp      USE comconst, ONLY: cpp
# Line 32  contains Line 31  contains
31      USE iniadvtrac_m, ONLY: ttext      USE iniadvtrac_m, ONLY: ttext
32      use initdynav_m, only: histaveid      use initdynav_m, only: histaveid
33    
     INTEGER nq  
34      REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm)      REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm)
35      REAL, intent(in):: teta(ip1jmp1*llm) ! temperature potentielle      REAL, intent(in):: teta(ip1jmp1*llm) ! temperature potentielle
36      real phi(ip1jmp1, llm), ppk(ip1jmp1*llm)      real phi(ip1jmp1, llm), ppk(ip1jmp1*llm)
37      REAL ps(ip1jmp1)      REAL ps(ip1jmp1)
38      real, intent(in):: masse(ip1jmp1, llm)      real, intent(in):: masse(ip1jmp1, llm)
39      REAL phis(ip1jmp1)      REAL phis(ip1jmp1)
40      REAL q(ip1jmp1, llm, nq)      REAL, intent(in):: q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nqmx)
41      integer, intent(in):: time      integer, intent(in):: time ! temps de l'ecriture
42    
43      ! Variables locales      ! Variables locales
44      integer ndex2d(iip1*jjp1), ndex3d(iip1*jjp1*llm), iq, ii, ll      integer ndex2d(iip1*jjp1), ndex3d(iip1*jjp1*llm), iq, ii, ll
# Line 89  contains Line 87  contains
87      call histwrite(histaveid, 'phi', itau_w, phi)      call histwrite(histaveid, 'phi', itau_w, phi)
88    
89      ! Traceurs      ! Traceurs
90      DO iq=1, nq      DO iq = 1, size(q, 4)
91         call histwrite(histaveid, ttext(iq), itau_w, q(:, :, iq))         call histwrite(histaveid, ttext(iq), itau_w, q(:, :, :, iq))
92      enddo      enddo
93    
94      ! Masse      ! Masse
Legend:
Removed from v.60  
changed lines
  Added in v.61
  ViewVC Help
Powered by ViewVC 1.1.21