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