Last change
on this file since 1928 was
735,
checked in by Laurent Fairhead, 18 years ago
|
Modifications version parallele
YM/LF
|
-
Property svn:eol-style set to
native
-
Property svn:keywords set to
Author Date Id Revision
|
File size:
712 bytes
|
Line | |
---|
1 | |
---|
2 | c |
---|
3 | c $Header$ |
---|
4 | c |
---|
5 | c |
---|
6 | ndex2d = 0 |
---|
7 | ndex3d = 0 |
---|
8 | c |
---|
9 | itau_w = itau_phy + itap |
---|
10 | c |
---|
11 | c Champs 3D: |
---|
12 | c |
---|
13 | cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d) |
---|
14 | CALL histwrite_phy(nid_hf3d,"temp",itau_w,t_seri) |
---|
15 | c |
---|
16 | cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d) |
---|
17 | CALL histwrite_phy(nid_hf3d,"ovap",itau_w,qx(:,:,ivap)) |
---|
18 | c |
---|
19 | cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d) |
---|
20 | CALL histwrite_phy(nid_hf3d,"vitu",itau_w,u_seri) |
---|
21 | c |
---|
22 | cym CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d) |
---|
23 | CALL histwrite_phy(nid_hf3d,"vitv",itau_w,v_seri) |
---|
24 | if (ok_sync) then |
---|
25 | c$OMP MASTER |
---|
26 | call histsync(nid_hf3d) |
---|
27 | c$OMP END MASTER |
---|
28 | endif |
---|
Note: See
TracBrowser
for help on using the repository browser.