/[lmdze]/trunk/libf/dyn3d/advect.f
ViewVC logotype

Diff of /trunk/libf/dyn3d/advect.f

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

revision 11 by guez, Wed Feb 27 13:16:39 2008 UTC revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC
# Line 1  Line 1 
1  !  !
2  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/advect.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/advect.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $
3  !  !
4        SUBROUTINE advect(ucov,vcov,teta,w,massebx,masseby,du,dv,dteta)        SUBROUTINE advect(ucov,vcov,teta,w,massebx,masseby,du,dv,dteta,
5         $     conser)
6    
7        use dimens_m        use dimens_m
8        use paramet_m        use paramet_m
9        use comconst        use comconst
10        use comvert        use comvert
       use logic  
11        use comgeom        use comgeom
12        use ener        use ener
13        IMPLICIT NONE        IMPLICIT NONE
# Line 37  c   ---------- Line 37  c   ----------
37        REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm),teta(ip1jmp1,llm)        REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm),teta(ip1jmp1,llm)
38        REAL massebx(ip1jmp1,llm),masseby(ip1jm,llm),w(ip1jmp1,llm)        REAL massebx(ip1jmp1,llm),masseby(ip1jm,llm),w(ip1jmp1,llm)
39        REAL dv(ip1jm,llm),du(ip1jmp1,llm),dteta(ip1jmp1,llm)        REAL dv(ip1jm,llm),du(ip1jmp1,llm),dteta(ip1jmp1,llm)
40          logical, intent(in):: conser
41    
42  c   Local:  c   Local:
43  c   ------  c   ------
Legend:
Removed from v.11  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.21