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

Diff of /trunk/dyn3d/writehist.f

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

revision 144 by guez, Wed Jun 10 16:46:46 2015 UTC revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 11  contains Line 11  contains
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
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 38  contains Line 38  contains
38      ! This routine needs IOIPSL to work      ! This routine needs IOIPSL to work
39      ! Variables locales      ! Variables locales
40    
     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 47  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
Legend:
Removed from v.144  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21