/[lmdze]/trunk/dyn3d/writedynav.f
ViewVC logotype

Diff of /trunk/dyn3d/writedynav.f

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

revision 56 by guez, Tue Jan 10 19:02:02 2012 UTC revision 62 by guez, Thu Jul 26 14:37:37 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      ! Écriture du fichier histoire au format IOIPSL
11        ! L. Fairhead, LMD, 03/99
12    
13      ! Appels successifs des routines histwrite      ! Appels successifs des routines histwrite
14    
15      ! Entree:      use covnat_m, only: covnat
     ! time: temps de l'ecriture  
     ! vcov: vents v covariants  
     ! ucov: vents u covariants  
     ! phi : geopotentiel instantane  
     ! q : traceurs  
     ! ps :pression au sol  
     ! phis : geopotentiel au sol  
   
     ! L. Fairhead, LMD, 03/99  
   
16      USE histwrite_m, ONLY: histwrite      USE histwrite_m, ONLY: histwrite
17      USE histcom, ONLY: histsync      USE histsync_m, ONLY: histsync
18      USE dimens_m, ONLY: llm      USE dimens_m, ONLY: llm
19      USE paramet_m, ONLY: iip1, ijp1llm, ip1jm, ip1jmp1, jjp1      USE paramet_m, ONLY: iip1, ijp1llm, ip1jm, ip1jmp1, jjp1
20      USE comconst, ONLY: cpp      USE comconst, ONLY: cpp
# Line 32  contains Line 22  contains
22      USE iniadvtrac_m, ONLY: ttext      USE iniadvtrac_m, ONLY: ttext
23      use initdynav_m, only: histaveid      use initdynav_m, only: histaveid
24    
25      INTEGER nq      REAL, intent(in):: vcov(ip1jm, llm), ucov(ip1jmp1, llm) ! vents covariants
     REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm)  
26      REAL, intent(in):: teta(ip1jmp1*llm) ! temperature potentielle      REAL, intent(in):: teta(ip1jmp1*llm) ! temperature potentielle
27      real phi(ip1jmp1, llm), ppk(ip1jmp1*llm)      real, intent(in):: phi(ip1jmp1, llm) ! geopotentiel instantane
28      REAL ps(ip1jmp1)      real, intent(in):: ppk(ip1jmp1*llm)
29        REAL, intent(in):: ps(ip1jmp1) ! pression au sol
30      real, intent(in):: masse(ip1jmp1, llm)      real, intent(in):: masse(ip1jmp1, llm)
31      REAL phis(ip1jmp1)      REAL, intent(in):: phis(ip1jmp1) ! geopotentiel au sol
32      REAL q(ip1jmp1, llm, nq)      REAL, intent(in):: q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nqmx) traceurs
33      integer, intent(in):: time      integer, intent(in):: time ! temps de l'ecriture
34    
35      ! Variables locales      ! Variables locales
36      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 79  contains
79      call histwrite(histaveid, 'phi', itau_w, phi)      call histwrite(histaveid, 'phi', itau_w, phi)
80    
81      ! Traceurs      ! Traceurs
82      DO iq=1, nq      DO iq = 1, size(q, 4)
83         call histwrite(histaveid, ttext(iq), itau_w, q(:, :, iq))         call histwrite(histaveid, ttext(iq), itau_w, q(:, :, :, iq))
84      enddo      enddo
85    
86      ! Masse      ! Masse
Legend:
Removed from v.56  
changed lines
  Added in v.62
  ViewVC Help
Powered by ViewVC 1.1.21