8 |
! D. Le Croller (07/2001) |
! D. Le Croller (07/2001) |
9 |
! M.A Filiberti (04/2002) |
! M.A Filiberti (04/2002) |
10 |
|
|
11 |
USE dimens_m |
USE dimens_m, ONLY : iim, jjm, llm, nqmx |
12 |
USE paramet_m |
USE paramet_m, ONLY : iip1, iip2, ijmllm, ijp1llm, ip1jm, ip1jmp1, jjp1, & |
13 |
USE comconst |
llmp1 |
14 |
USE comvert |
USE comconst, ONLY : dtvr |
15 |
USE conf_gcm_m |
USE conf_gcm_m, ONLY : iapp_tracvl |
16 |
USE logic |
USE iniadvtrac_m, ONLY : iadv |
17 |
USE comgeom |
|
|
USE temps |
|
|
USE ener |
|
|
USE iniadvtrac_m |
|
|
USE comdissip |
|
18 |
IMPLICIT NONE |
IMPLICIT NONE |
19 |
|
|
20 |
|
|
287 |
! on reinitialise a zero les flux de masse cumules |
! on reinitialise a zero les flux de masse cumules |
288 |
!--------------------------------------------------- |
!--------------------------------------------------- |
289 |
iadvtr = 0 |
iadvtr = 0 |
|
|
|
|
|
|
290 |
END IF |
END IF |
291 |
! if iadvtr.EQ.iapp_tracvl |
|
|
RETURN |
|
292 |
END SUBROUTINE advtrac |
END SUBROUTINE advtrac |