Line |
Branch |
Exec |
Source |
1 |
|
|
MODULE tracreprobus_mod |
2 |
|
|
! |
3 |
|
|
! This module prepares and calls the Reprobus main subroutine |
4 |
|
|
! |
5 |
|
|
|
6 |
|
|
CONTAINS |
7 |
|
|
|
8 |
|
✗ |
SUBROUTINE tracreprobus(pdtphys, gmtime, debutphy, julien, & |
9 |
|
|
presnivs, xlat, xlon, pphis, pphi, & |
10 |
|
|
t_seri, pplay, paprs, sh , & |
11 |
|
|
tr_seri) |
12 |
|
|
|
13 |
|
|
USE dimphy |
14 |
|
|
USE infotrac_phy |
15 |
|
|
IMPLICIT NONE |
16 |
|
|
|
17 |
|
|
! Input argument |
18 |
|
|
!--------------- |
19 |
|
|
REAL,INTENT(IN) :: pdtphys ! Pas d'integration pour la physique (seconde) |
20 |
|
|
REAL,INTENT(IN) :: gmtime ! Heure courante |
21 |
|
|
LOGICAL,INTENT(IN) :: debutphy ! le flag de l'initialisation de la physique |
22 |
|
|
INTEGER,INTENT(IN) :: julien ! Jour julien |
23 |
|
|
|
24 |
|
|
REAL,DIMENSION(klev),INTENT(IN) :: presnivs! pressions approximat. des milieux couches (en PA) |
25 |
|
|
REAL,DIMENSION(klon),INTENT(IN) :: xlat ! latitudes pour chaque point |
26 |
|
|
REAL,DIMENSION(klon),INTENT(IN) :: xlon ! longitudes pour chaque point |
27 |
|
|
REAL,DIMENSION(klon),INTENT(IN) :: pphis ! geopotentiel du sol |
28 |
|
|
REAL,DIMENSION(klon,klev),INTENT(IN) :: pphi ! geopotentiel de chaque couche |
29 |
|
|
|
30 |
|
|
REAL,DIMENSION(klon,klev),INTENT(IN) :: t_seri ! Temperature |
31 |
|
|
REAL,DIMENSION(klon,klev),INTENT(IN) :: pplay ! pression pour le mileu de chaque couche (en Pa) |
32 |
|
|
REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs ! pression pour chaque inter-couche (en Pa) |
33 |
|
|
REAL,DIMENSION(klon,klev),INTENT(IN) :: sh ! humidite specifique |
34 |
|
|
|
35 |
|
|
|
36 |
|
|
! Output argument |
37 |
|
|
!---------------- |
38 |
|
|
REAL,DIMENSION(klon,klev,nbtr),INTENT(INOUT) :: tr_seri ! Concentration Traceur [U/KgA] |
39 |
|
|
|
40 |
|
|
|
41 |
|
|
! Local variables |
42 |
|
|
!---------------- |
43 |
|
|
INTEGER :: it, k, niter |
44 |
|
|
|
45 |
|
✗ |
END SUBROUTINE tracreprobus |
46 |
|
|
|
47 |
|
|
END MODULE tracreprobus_mod |
48 |
|
|
|