52 |
. nqmx, fluxid,fluxvid,fluxdid) |
. nqmx, fluxid,fluxvid,fluxdid) |
53 |
|
|
54 |
ndex(1) = 0 |
ndex(1) = 0 |
55 |
call histwrite(fluxid, 'phis', 1, phis, iip1*jjp1, ndex) |
call histwrite(fluxid, 'phis', 1, phis) |
56 |
call histwrite(fluxid, 'aire', 1, aire, iip1*jjp1, ndex) |
call histwrite(fluxid, 'aire', 1, aire) |
57 |
|
|
58 |
ndex(1) = 0 |
ndex(1) = 0 |
59 |
nscal = 1 |
nscal = 1 |
60 |
tst(1) = time_step |
tst(1) = time_step |
61 |
call histwrite(fluxdid, 'dtvr', 1, tst, nscal, ndex) |
call histwrite(fluxdid, 'dtvr', 1, tst) |
62 |
ist(1)=istdyn |
ist(1)=istdyn |
63 |
call histwrite(fluxdid, 'istdyn', 1, ist, nscal, ndex) |
call histwrite(fluxdid, 'istdyn', 1, ist) |
64 |
istp(1)= istphy |
istp(1)= istphy |
65 |
call histwrite(fluxdid, 'istphy', 1, istp, nscal, ndex) |
call histwrite(fluxdid, 'istphy', 1, istp) |
66 |
|
|
67 |
first = .false. |
first = .false. |
68 |
|
|
130 |
iadvtr=0 |
iadvtr=0 |
131 |
Print*,'ITAU auqel on stoke les fluxmasses',itau |
Print*,'ITAU auqel on stoke les fluxmasses',itau |
132 |
|
|
133 |
call histwrite(fluxid, 'masse', itau, massem, |
call histwrite(fluxid, 'masse', itau, massem) |
|
. iip1*jjp1*llm, ndex) |
|
134 |
|
|
135 |
call histwrite(fluxid, 'pbaru', itau, pbarug, |
call histwrite(fluxid, 'pbaru', itau, pbarug) |
|
. iip1*jjp1*llm, ndex) |
|
136 |
|
|
137 |
call histwrite(fluxvid, 'pbarv', itau, pbarvg, |
call histwrite(fluxvid, 'pbarv', itau, pbarvg) |
|
. iip1*jjm*llm, ndex) |
|
138 |
|
|
139 |
call histwrite(fluxid, 'w' ,itau, wg, |
call histwrite(fluxid, 'w' ,itau, wg) |
|
. iip1*jjp1*llm, ndex) |
|
140 |
|
|
141 |
call histwrite(fluxid, 'teta' ,itau, tetac, |
call histwrite(fluxid, 'teta' ,itau, tetac) |
|
. iip1*jjp1*llm, ndex) |
|
142 |
|
|
143 |
call histwrite(fluxid, 'phi' ,itau, phic, |
call histwrite(fluxid, 'phi' ,itau, phic) |
|
. iip1*jjp1*llm, ndex) |
|
144 |
|
|
145 |
C |
C |
146 |
|
|