/[lmdze]/trunk/libf/bibio/writedynav.f90
ViewVC logotype

Diff of /trunk/libf/bibio/writedynav.f90

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

revision 15 by guez, Fri Aug 1 15:24:12 2008 UTC revision 44 by guez, Wed Apr 13 12:29:18 2011 UTC
# Line 4  Line 4 
4        subroutine writedynav( histid, nq, time, vcov,        subroutine writedynav( histid, nq, time, vcov,
5       ,                          ucov,teta,ppk,phi,q,masse,ps,phis)       ,                          ucov,teta,ppk,phi,q,masse,ps,phis)
6    
       USE ioipsl  
7  C  C
8  C   Ecriture du fichier histoire au format IOIPSL  C   Ecriture du fichier histoire au format IOIPSL
9  C  C
# Line 31  C Line 30  C
30  C =====================================================================  C =====================================================================
31  C  C
32  C   Declarations  C   Declarations
33          USE histwrite_m
34          use histcom
35        use dimens_m        use dimens_m
36        use paramet_m        use paramet_m
37        use comconst        use comconst
# Line 40  C   Declarations Line 41  C   Declarations
41        use serre        use serre
42        use temps        use temps
43        use ener        use ener
44        use advtrac_m        use iniadvtrac_m
45        implicit none        implicit none
46    
47    
# Line 50  C Line 51  C
51    
52        INTEGER histid, nq        INTEGER histid, nq
53        REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm)        REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm)
54        REAL teta(ip1jmp1*llm),phi(ip1jmp1,llm),ppk(ip1jmp1*llm)                          REAL, intent(in):: teta(ip1jmp1*llm)
55          real phi(ip1jmp1,llm),ppk(ip1jmp1*llm)                  
56        REAL ps(ip1jmp1),masse(ip1jmp1,llm)                          REAL ps(ip1jmp1),masse(ip1jmp1,llm)                  
57        REAL phis(ip1jmp1)                          REAL phis(ip1jmp1)                  
58        REAL q(ip1jmp1,llm,nq)        REAL q(ip1jmp1,llm,nq)
Legend:
Removed from v.15  
changed lines
  Added in v.44
  ViewVC Help
Powered by ViewVC 1.1.21