/[lmdze]/trunk/Sources/dyn3d/writehist.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/writehist.f

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

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 138 by guez, Fri May 22 23:13:19 2015 UTC
# Line 4  module writehist_m Line 4  module writehist_m
4    
5  contains  contains
6    
7    subroutine writehist(time, vcov, ucov, teta, phi, q, masse, ps)    subroutine writehist(time, vcov, ucov, teta, phi, masse, ps)
8    
9      ! From writehist.F 1403 2010-07-01 09:02:53Z      ! From writehist.F 1403 2010-07-01 09:02:53Z
10      ! Écriture du fichier histoire au format IOIPSL      ! Écriture du fichier histoire au format IOIPSL
# Line 12  contains Line 12  contains
12      ! L. Fairhead, LMD, 03/99      ! L. Fairhead, LMD, 03/99
13    
14      use dimens_m, only: nqmx, llm, jjm      use dimens_m, only: nqmx, llm, jjm
     USE iniadvtrac_m, ONLY: ttext  
15      use com_io_dyn, only: histid, histvid, histuid      use com_io_dyn, only: histid, histvid, histuid
16      use paramet_m, only: ip1jm, ip1jmp1, iip1, jjp1      use paramet_m, only: ip1jm, ip1jmp1, iip1, jjp1
17      use temps, only: itau_dyn      use temps, only: itau_dyn
# Line 26  contains Line 25  contains
25      ! ucov: vents u covariants      ! ucov: vents u covariants
26      ! teta: temperature potentielle      ! teta: temperature potentielle
27      ! phi : geopotentiel instantane      ! phi : geopotentiel instantane
     ! q : traceurs  
28      ! masse: masse      ! masse: masse
29      ! ps :pression au sol      ! ps :pression au sol
30    
# Line 35  contains Line 33  contains
33      REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm)      REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm)
34      REAL teta(ip1jmp1, llm), phi(ip1jmp1, llm)      REAL teta(ip1jmp1, llm), phi(ip1jmp1, llm)
35      REAL, intent(in):: ps(ip1jmp1), masse(ip1jmp1, llm)      REAL, intent(in):: ps(ip1jmp1), masse(ip1jmp1, llm)
     REAL q(ip1jmp1, llm, nqmx)  
36      integer time      integer time
37    
38      ! This routine needs IOIPSL to work      ! This routine needs IOIPSL to work
# Line 76  contains Line 73  contains
73    
74      call histwrite(histid, 'phi', itau_w, phi)      call histwrite(histid, 'phi', itau_w, phi)
75    
     ! Traceurs  
   
     ! DO iq=1, nqmx  
     ! call histwrite(histid, ttext(iq), itau_w, q(:, :, iq),  
     ! . iip1*jjp1*llm, ndexu)  
     ! enddo  
     !C  
76      ! Masse      ! Masse
77    
78      call histwrite(histid, 'masse', itau_w, masse)      call histwrite(histid, 'masse', itau_w, masse)
Legend:
Removed from v.134  
changed lines
  Added in v.138
  ViewVC Help
Powered by ViewVC 1.1.21