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

trunk/libf/bibio/writedynav.f90 revision 67 by guez, Tue Oct 2 15:50:56 2012 UTC trunk/Sources/dyn3d/writedynav.f revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 20  contains Line 20  contains
20      USE iniadvtrac_m, ONLY: ttext      USE iniadvtrac_m, ONLY: ttext
21      use initdynav_m, only: histaveid      use initdynav_m, only: histaveid
22      use nr_util, only: assert      use nr_util, only: assert
23      USE paramet_m, ONLY: iip1, ip1jm, ip1jmp1, jjp1      USE paramet_m, ONLY: ip1jm, ip1jmp1
24      USE temps, ONLY: itau_dyn      USE temps, ONLY: itau_dyn
25    
26      ! Vents covariants :      ! Vents covariants :
# Line 30  contains Line 30  contains
30      REAL, intent(in):: teta(:, :, :) ! (iim + 1, jjm + 1, llm)      REAL, intent(in):: teta(:, :, :) ! (iim + 1, jjm + 1, llm)
31      ! temperature potentielle      ! temperature potentielle
32    
33        real, intent(in):: pk(:, :, :) ! (iim + 1, jjm + 1, llm)
34    
35      real, intent(in):: phi(:, :, :) ! (iim + 1, jjm + 1, llm)      real, intent(in):: phi(:, :, :) ! (iim + 1, jjm + 1, llm)
36      ! geopotentiel instantane      ! geopotentiel instantane
37    
38      real, intent(in):: pk(:, :, :) ! (iim + 1, jjm + 1, llm)      REAL, intent(in):: q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nqmx) traceurs
     REAL, intent(in):: ps(:, :) ! (iim + 1, jjm + 1) pression au sol  
39      real, intent(in):: masse(:, :, :) ! (iim + 1, jjm + 1, llm)      real, intent(in):: masse(:, :, :) ! (iim + 1, jjm + 1, llm)
40        REAL, intent(in):: ps(:, :) ! (iim + 1, jjm + 1) pression au sol
41      REAL, intent(in):: phis(:, :) ! (iim + 1, jjm + 1) geopotentiel au sol      REAL, intent(in):: phis(:, :) ! (iim + 1, jjm + 1) geopotentiel au sol
     REAL, intent(in):: q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nqmx) traceurs  
42      integer, intent(in):: time ! temps de l'ecriture      integer, intent(in):: time ! temps de l'ecriture
43    
44      ! Variables locales      ! Variables locales
Legend:
Removed from v.67  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21