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

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

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

revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC revision 62 by guez, Thu Jul 26 14:37:37 2012 UTC
# Line 7  contains Line 7  contains
7    subroutine writedynav(vcov, ucov, teta, ppk, phi, q, masse, ps, phis, time)    subroutine writedynav(vcov, ucov, teta, ppk, phi, q, masse, ps, phis, time)
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    
     ! Entree:  
     ! 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  
   
15      use covnat_m, only: covnat      use covnat_m, only: covnat
16      USE histwrite_m, ONLY: histwrite      USE histwrite_m, ONLY: histwrite
17      USE histsync_m, ONLY: histsync      USE histsync_m, ONLY: histsync
# Line 31  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      REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm)      REAL, intent(in):: vcov(ip1jm, llm), ucov(ip1jmp1, llm) ! vents covariants
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, intent(in):: q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nqmx)      REAL, intent(in):: q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nqmx) traceurs
33      integer, intent(in):: time ! temps de l'ecriture      integer, intent(in):: time ! temps de l'ecriture
34    
35      ! Variables locales      ! Variables locales
Legend:
Removed from v.61  
changed lines
  Added in v.62
  ViewVC Help
Powered by ViewVC 1.1.21