source: LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/write_bilKP_ave.h @ 728

Last change on this file since 728 was 644, checked in by Laurent Fairhead, 20 years ago

Synchronisation avec tous les diagnostiques de Ionela IM
Inclusion du slab ocean IM
LF
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 7.8 KB
Line 
1c
2c $Header$
3c
4      IF (ok_journe) THEN
5c
6      ndex2d = 0
7      ndex3d = 0
8c
9c Champs 2D:
10c
11      itau_w = itau_phy + itap
12c
13      CALL gr_fi_ecrit(klev, klon,iim,jjmp1, ue_lay,zx_tmp_3d)
14      CALL histwrite(nid_bilKPave,"ue",itau_w,zx_tmp_3d,
15     .               iim*jjmp1*klev,ndex3d)
16c
17      CALL gr_fi_ecrit(klev, klon,iim,jjmp1, ve_lay,zx_tmp_3d)
18      CALL histwrite(nid_bilKPave,"ve",itau_w,zx_tmp_3d,
19     .               iim*jjmp1*klev,ndex3d)
20c
21      CALL gr_fi_ecrit(klev, klon,iim,jjmp1, uq_lay,zx_tmp_3d)
22      CALL histwrite(nid_bilKPave,"uq",itau_w,zx_tmp_3d,
23     .               iim*jjmp1*klev,ndex3d)
24c
25      CALL gr_fi_ecrit(klev, klon,iim,jjmp1, vq_lay,zx_tmp_3d)
26      CALL histwrite(nid_bilKPave,"vq",itau_w,zx_tmp_3d,
27     .               iim*jjmp1*klev,ndex3d)
28c
29c Champs 3D:
30C
31      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
32      CALL histwrite(nid_bilKPave,"temp",itau_w,zx_tmp_3d,
33     .                                   iim*jjmp1*klev,ndex3d)
34c
35      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d)
36      CALL histwrite(nid_bilKPave,"ovap",itau_w,zx_tmp_3d,
37     .                                   iim*jjmp1*klev,ndex3d)
38c
39      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
40      CALL histwrite(nid_bilKPave,"geop",itau_w,zx_tmp_3d,
41     .                                   iim*jjmp1*klev,ndex3d)
42c
43      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
44      CALL histwrite(nid_bilKPave,"vitu",itau_w,zx_tmp_3d,
45     .                                   iim*jjmp1*klev,ndex3d)
46c
47      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
48      CALL histwrite(nid_bilKPave,"vitv",itau_w,zx_tmp_3d,
49     .                                   iim*jjmp1*klev,ndex3d)
50c
51      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, omega, zx_tmp_3d)
52      CALL histwrite(nid_bilKPave,"vitw",itau_w,zx_tmp_3d,
53     .                                   iim*jjmp1*klev,ndex3d)
54c
55      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
56      CALL histwrite(nid_bilKPave,"pres",itau_w,zx_tmp_3d,
57     .                                   iim*jjmp1*klev,ndex3d)
58c
59      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, paprs, zx_tmp_3d)
60      CALL histwrite(nid_bilKPave,"play",itau_w,zx_tmp_3d,
61     .                                   iim*jjmp1*klev,ndex3d)
62c
63      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldliq, zx_tmp_3d)
64      CALL histwrite(nid_bilKPave,"oliq",itau_w,zx_tmp_3d,
65     .                                   iim*jjmp1*klev,ndex3d)
66c
67      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_dyn, zx_tmp_3d)
68      CALL histwrite(nid_bilKPave,"dtdyn",itau_w,zx_tmp_3d,
69     .                                   iim*jjmp1*klev,ndex3d)
70c
71      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_dyn, zx_tmp_3d)
72      CALL histwrite(nid_bilKPave,"dqdyn",itau_w,zx_tmp_3d,
73     .                                   iim*jjmp1*klev,ndex3d)
74c
75      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_con, zx_tmp_3d)
76      CALL histwrite(nid_bilKPave,"dtcon",itau_w,zx_tmp_3d,
77     .                                   iim*jjmp1*klev,ndex3d)
78c
79      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_con, zx_tmp_3d)
80      CALL histwrite(nid_bilKPave,"ducon",itau_w,zx_tmp_3d,
81     .                                   iim*jjmp1*klev,ndex3d)
82c
83      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_con, zx_tmp_3d)
84      CALL histwrite(nid_bilKPave,"dvcon",itau_w,zx_tmp_3d,
85     .                                   iim*jjmp1*klev,ndex3d)
86c
87      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_con, zx_tmp_3d)
88      CALL histwrite(nid_bilKPave,"dqcon",itau_w,zx_tmp_3d,
89     .                                   iim*jjmp1*klev,ndex3d)
90c
91      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_lsc, zx_tmp_3d)
92      CALL histwrite(nid_bilKPave,"dtlsc",itau_w,zx_tmp_3d,
93     .                                   iim*jjmp1*klev,ndex3d)
94c
95      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_lsc, zx_tmp_3d)
96      CALL histwrite(nid_bilKPave,"dqlsc",itau_w,zx_tmp_3d,
97     .                                   iim*jjmp1*klev,ndex3d)
98c
99      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_vdf, zx_tmp_3d)
100      CALL histwrite(nid_bilKPave,"dtvdf",itau_w,zx_tmp_3d,
101     .                                   iim*jjmp1*klev,ndex3d)
102c
103      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_vdf, zx_tmp_3d)
104      CALL histwrite(nid_bilKPave,"dqvdf",itau_w,zx_tmp_3d,
105     .                                   iim*jjmp1*klev,ndex3d)
106c
107      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_ajs, zx_tmp_3d)
108      CALL histwrite(nid_bilKPave,"dtajs",itau_w,zx_tmp_3d,
109     .                                   iim*jjmp1*klev,ndex3d)
110c
111      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_ajs, zx_tmp_3d)
112      CALL histwrite(nid_bilKPave,"dqajs",itau_w,zx_tmp_3d,
113     .                                   iim*jjmp1*klev,ndex3d)
114c
115      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_eva, zx_tmp_3d)
116      CALL histwrite(nid_bilKPave,"dteva",itau_w,zx_tmp_3d,
117     .                                   iim*jjmp1*klev,ndex3d)
118c
119      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_eva, zx_tmp_3d)
120      CALL histwrite(nid_bilKPave,"dqeva",itau_w,zx_tmp_3d,
121     .                                   iim*jjmp1*klev,ndex3d)
122c
123      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, heat, zx_tmp_3d)
124      CALL histwrite(nid_bilKPave,"dtswr",itau_w,zx_tmp_3d,
125     .                                   iim*jjmp1*klev,ndex3d)
126c
127      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, heat0, zx_tmp_3d)
128      CALL histwrite(nid_bilKPave,"dtsw0",itau_w,zx_tmp_3d,
129     .                                   iim*jjmp1*klev,ndex3d)
130c
131      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cool, zx_tmp_3d)
132      CALL histwrite(nid_bilKPave,"dtlwr",itau_w,zx_tmp_3d,
133     .                                   iim*jjmp1*klev,ndex3d)
134c
135      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cool0, zx_tmp_3d)
136      CALL histwrite(nid_bilKPave,"dtlw0",itau_w,zx_tmp_3d,
137     .                                   iim*jjmp1*klev,ndex3d)
138c
139      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_vdf, zx_tmp_3d)
140      CALL histwrite(nid_bilKPave,"duvdf",itau_w,zx_tmp_3d,
141     .                                   iim*jjmp1*klev,ndex3d)
142c
143      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_vdf, zx_tmp_3d)
144      CALL histwrite(nid_bilKPave,"dvvdf",itau_w,zx_tmp_3d,
145     .                                   iim*jjmp1*klev,ndex3d)
146c
147      IF (ok_orodr) THEN
148      IF (ok_orolf) THEN
149c
150      DO k = 1, klev
151      DO i = 1, klon
152        d_u_oli(i,k) = d_u_oro(i,k) + d_u_lif(i,k)
153        d_v_oli(i,k) = d_v_oro(i,k) + d_v_lif(i,k)
154      ENDDO
155      ENDDO
156c
157      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_oli, zx_tmp_3d)
158      CALL histwrite(nid_bilKPave,"duoli",itau_w,zx_tmp_3d,
159     .                                   iim*jjmp1*klev,ndex3d)
160c
161      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_oli, zx_tmp_3d)
162      CALL histwrite(nid_bilKPave,"dvoli",itau_w,zx_tmp_3d,
163     .                                   iim*jjmp1*klev,ndex3d)
164c
165      ENDIF
166      ENDIF
167C
168      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u, zx_tmp_3d)
169      CALL histwrite(nid_bilKPave,"duphy",itau_w,zx_tmp_3d,
170     .                                   iim*jjmp1*klev,ndex3d)
171c
172      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v, zx_tmp_3d)
173      CALL histwrite(nid_bilKPave,"dvphy",itau_w,zx_tmp_3d,
174     .                                   iim*jjmp1*klev,ndex3d)
175c
176      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t, zx_tmp_3d)
177      CALL histwrite(nid_bilKPave,"dtphy",itau_w,zx_tmp_3d,
178     .                                   iim*jjmp1*klev,ndex3d)
179c
180      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,1), 
181     .zx_tmp_3d)
182      CALL histwrite(nid_bilKPave,"dqphy",itau_w,zx_tmp_3d,
183     .                                   iim*jjmp1*klev,ndex3d)
184c
185      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,2), 
186     .zx_tmp_3d)
187      CALL histwrite(nid_bilKPave,"dqlphy",itau_w,zx_tmp_3d,
188     .                                   iim*jjmp1*klev,ndex3d)
189c
190C
191      if (ok_sync) then
192        call histsync(nid_bilKPave)
193      endif
194       ENDIF
195
Note: See TracBrowser for help on using the repository browser.