/[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

trunk/bibio/writehist.f revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC trunk/Sources/dyn3d/writehist.f revision 178 by guez, Fri Mar 11 18:47:26 2016 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
11      ! Appels successifs des routines histwrite      ! Appels successifs des routines histwrite
12      ! L. Fairhead, LMD, 03/99      ! L. Fairhead, LMD, 03/99
13    
14      use dimens_m, only: nqmx, llm, jjm      use dimens_m, only: llm
     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
17      use temps, only: itau_dyn      use temps, only: itau_dyn
18      use histwrite_m, only: histwrite      use histwrite_m, only: histwrite
19      use histsync_m, only: histsync      use histsync_m, only: histsync
# 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 34  contains Line 32  contains
32    
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 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
39      ! Variables locales      ! Variables locales
40    
     integer iq, ii, ll  
     integer ndexu(ip1jmp1*llm), ndexv(ip1jm*llm), ndex2d(ip1jmp1)  
41      logical ok_sync      logical ok_sync
42      integer itau_w      integer itau_w
43      REAL vnat(ip1jm, llm), unat(ip1jmp1, llm)      REAL vnat(ip1jm, llm), unat(ip1jmp1, llm)
# Line 51  contains Line 46  contains
46    
47      ! Initialisations      ! Initialisations
48    
     ndexu = 0  
     ndexv = 0  
     ndex2d = 0  
49      ok_sync =.TRUE.      ok_sync =.TRUE.
50      itau_w = itau_dyn + time      itau_w = itau_dyn + time
51      ! Passage aux composantes naturelles du vent      ! Passage aux composantes naturelles du vent
# Line 77  contains Line 69  contains
69    
70      call histwrite(histid, 'phi', itau_w, phi)      call histwrite(histid, 'phi', itau_w, phi)
71    
     ! Traceurs  
   
     ! DO iq=1, nqmx  
     ! call histwrite(histid, ttext(iq), itau_w, q(:, :, iq),  
     ! . iip1*jjp1*llm, ndexu)  
     ! enddo  
     !C  
72      ! Masse      ! Masse
73    
74      call histwrite(histid, 'masse', itau_w, masse)      call histwrite(histid, 'masse', itau_w, masse)
Legend:
Removed from v.82  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21