/[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 178 by guez, Fri Mar 11 18:47:26 2016 UTC revision 212 by guez, Thu Jan 12 12:31:31 2017 UTC
# Line 6  contains Line 6  contains
6    
7    subroutine writehist(time, vcov, ucov, teta, phi, 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 , revision 1403, 2010-07-01 09:02:53Z
10      ! Écriture du fichier histoire au format IOIPSL      ! Écriture du fichier histoire
     ! Appels successifs des routines histwrite  
11      ! L. Fairhead, LMD, 03/99      ! L. Fairhead, LMD, 03/99
12    
13        use covnat_m, only: covnat
14      use dimens_m, only: llm      use dimens_m, only: llm
15      use com_io_dyn, only: histid, histvid, histuid      use histsync_m, only: histsync
16        use histwrite_m, only: histwrite
17        use inithist_m, only: histid, histvid, histuid
18      use paramet_m, only: ip1jm, ip1jmp1      use paramet_m, only: ip1jm, ip1jmp1
19      use temps, only: itau_dyn      use temps, only: itau_dyn
     use histwrite_m, only: histwrite  
     use histsync_m, only: histsync  
     use covnat_m, only: covnat  
   
     ! Entree:  
     ! time: temps de l'ecriture  
     ! vcov: vents v covariants  
     ! ucov: vents u covariants  
     ! teta: temperature potentielle  
     ! phi : geopotentiel instantane  
     ! masse: masse  
     ! ps :pression au sol  
   
     ! Arguments  
   
     REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm)  
     REAL teta(ip1jmp1, llm), phi(ip1jmp1, llm)  
     REAL, intent(in):: ps(ip1jmp1), masse(ip1jmp1, llm)  
     integer time  
20    
21      ! This routine needs IOIPSL to work      integer, intent(in):: time ! temps de l'ecriture
22      ! Variables locales      REAL, intent(in):: vcov(ip1jm, llm), ucov(ip1jmp1, llm) ! vent covariant
23        REAL, intent(in):: teta(ip1jmp1, llm) ! temperature potentielle
24        REAL, intent(in):: phi(ip1jmp1, llm) ! geopotentiel instantane
25        REAL, intent(in):: masse(ip1jmp1, llm)
26        REAL, intent(in):: ps(ip1jmp1) ! pression au sol
27    
28        ! Local:
29      logical ok_sync      logical ok_sync
30      integer itau_w      integer itau_w
31      REAL vnat(ip1jm, llm), unat(ip1jmp1, llm)      REAL vnat(ip1jm, llm), unat(ip1jmp1, llm)
Legend:
Removed from v.178  
changed lines
  Added in v.212
  ViewVC Help
Powered by ViewVC 1.1.21