95 |
ENDDO |
ENDDO |
96 |
|
|
97 |
|
|
98 |
CALL advect( ang, vcov, teta, w, massebx, masseby, du, dv,dteta ) |
CALL advect( ang, vcov, teta, w, massebx, masseby, du, dv,dteta, |
99 |
|
$ conser ) |
100 |
|
|
101 |
C WARNING probleme de peridocite de dv sur les PC/linux. Pb d'arrondi |
C WARNING probleme de peridocite de dv sur les PC/linux. Pb d'arrondi |
102 |
C probablement. Observe sur le code compile avec pgf90 3.0-1 |
C probablement. Observe sur le code compile avec pgf90 3.0-1 |
117 |
|
|
118 |
IF( conser ) THEN |
IF( conser ) THEN |
119 |
CALL sortvarc |
CALL sortvarc |
120 |
$ ( itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time,vcov ) |
$ ( itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time) |
121 |
|
|
122 |
ENDIF |
ENDIF |
123 |
|
|