9 |
frac_impa, frac_nucl, pphis, paire, dtime, itap) |
frac_impa, frac_nucl, pphis, paire, dtime, itap) |
10 |
|
|
11 |
! From phylmd/phystokenc.F, version 1.2 2004/06/22 11:45:35 |
! From phylmd/phystokenc.F, version 1.2 2004/06/22 11:45:35 |
12 |
! Author: Frédéric Hourdin |
! Author: Fr\'ed\'eric Hourdin |
13 |
! Objet : écriture des variables pour transport offline |
! Objet : \'ecriture des variables pour transport offline |
14 |
|
|
15 |
|
use gr_fi_ecrit_m, only: gr_fi_ecrit |
16 |
USE histwrite_m, ONLY: histwrite |
USE histwrite_m, ONLY: histwrite |
17 |
USE histsync_m, ONLY: histsync |
USE histsync_m, ONLY: histsync |
18 |
USE dimens_m, ONLY: iim, jjm, nqmx |
USE dimens_m, ONLY: iim, jjm |
19 |
USE indicesol, ONLY: nbsrf |
USE indicesol, ONLY: nbsrf |
20 |
|
use initphysto_m, only: initphysto |
21 |
USE dimphy, ONLY: klev, klon |
USE dimphy, ONLY: klev, klon |
22 |
USE tracstoke, ONLY: istphy |
USE tracstoke, ONLY: istphy |
23 |
|
|
111 |
|
|
112 |
IF (iadvtr==0) THEN |
IF (iadvtr==0) THEN |
113 |
CALL initphysto('phystoke', rlon, rlat, dtime, dtime*istphy, & |
CALL initphysto('phystoke', rlon, rlat, dtime, dtime*istphy, & |
114 |
dtime*istphy, nqmx, physid) |
dtime*istphy, physid) |
115 |
END IF |
END IF |
116 |
|
|
117 |
i = itap |
i = itap |