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

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

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

revision 67 by guez, Tue Oct 2 15:50:56 2012 UTC revision 70 by guez, Mon Jun 24 15:39:52 2013 UTC
# 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.70
  ViewVC Help
Powered by ViewVC 1.1.21