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