source: LMDZ.3.3/trunk/libf/phylmd/write_histmthNMC.h @ 1798

Last change on this file since 1798 was 485, checked in by lmdzadmin, 21 years ago

Initial import
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 4.9 KB
Line 
1c     IF (ok_mensuelNMC) THEN
2      IF (ok_mensuel) THEN
3c
4      ndex2d = 0
5      ndex3d = 0
6c
7c Champs 2D:
8c
9
10        zsto = dtime
11        zout = dtime * ecrit_mth
12        itau_w = itau_phy + itap
13
14      i = NINT(zout/zsto)
15c
16c  Champs interpolles sur des niveaux de pression du NMC
17c
18      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u1000,zx_tmp_2d)
19      CALL histwrite(nid_nmc,
20     ."u1000",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
21c
22      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v1000,zx_tmp_2d)
23      CALL histwrite(nid_nmc,
24     ."v1000",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
25c
26      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u925,zx_tmp_2d)
27      CALL histwrite(nid_nmc,
28     ."u925",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
29c
30      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v925,zx_tmp_2d)
31      CALL histwrite(nid_nmc,
32     ."v925",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
33c
34      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u850,zx_tmp_2d)
35      CALL histwrite(nid_nmc,
36     ."u850",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
37c
38      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v850,zx_tmp_2d)
39      CALL histwrite(nid_nmc,"v850",itau_w,
40     .zx_tmp_2d,iim*jjmp1,ndex2d)
41c
42      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u700,zx_tmp_2d)
43      CALL histwrite(nid_nmc,"u700",itau_w,
44     .zx_tmp_2d,iim*jjmp1,ndex2d)
45c
46      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v700,zx_tmp_2d)
47      CALL histwrite(nid_nmc,"v700",itau_w,
48     .zx_tmp_2d,iim*jjmp1,ndex2d)
49c
50      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u600,zx_tmp_2d)
51      CALL histwrite(nid_nmc,"u600",itau_w,
52     .zx_tmp_2d,iim*jjmp1,ndex2d)
53c
54      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v600,zx_tmp_2d)
55      CALL histwrite(nid_nmc,"v600",itau_w,
56     .zx_tmp_2d,iim*jjmp1,ndex2d)
57c
58      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u500,zx_tmp_2d)
59      CALL histwrite(nid_nmc,"u500",itau_w,
60     .zx_tmp_2d,iim*jjmp1,ndex2d)
61c
62      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v500,zx_tmp_2d)
63      CALL histwrite(nid_nmc,"v500",itau_w,
64     .zx_tmp_2d,iim*jjmp1,ndex2d)
65c
66      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u400,zx_tmp_2d)
67      CALL histwrite(nid_nmc,"u400",itau_w,
68     .zx_tmp_2d,iim*jjmp1,ndex2d)
69c
70      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v400,zx_tmp_2d)
71      CALL histwrite(nid_nmc,"v400",itau_w,
72     .zx_tmp_2d,iim*jjmp1,ndex2d)
73c
74      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u300,zx_tmp_2d)
75      CALL histwrite(nid_nmc,"u300",itau_w,
76     .zx_tmp_2d,iim*jjmp1,ndex2d)
77c
78      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v300,zx_tmp_2d)
79      CALL histwrite(nid_nmc,"v300",itau_w,
80     .zx_tmp_2d,iim*jjmp1,ndex2d)
81c
82      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u250,zx_tmp_2d)
83      CALL histwrite(nid_nmc,"u250",itau_w,
84     .zx_tmp_2d,iim*jjmp1,ndex2d)
85c
86      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v250,zx_tmp_2d)
87      CALL histwrite(nid_nmc,"v250",itau_w,
88     .zx_tmp_2d,iim*jjmp1,ndex2d)
89c
90      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u200,zx_tmp_2d)
91      CALL histwrite(nid_nmc,"u200",itau_w,
92     .zx_tmp_2d,iim*jjmp1,ndex2d)
93c
94      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v200,zx_tmp_2d)
95      CALL histwrite(nid_nmc,"v200",itau_w,
96     .zx_tmp_2d,iim*jjmp1,ndex2d)
97c
98      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u150,zx_tmp_2d)
99      CALL histwrite(nid_nmc,"u150",itau_w,
100     .zx_tmp_2d,iim*jjmp1,ndex2d)
101c
102      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v150,zx_tmp_2d)
103      CALL histwrite(nid_nmc,"v150",itau_w,
104     .zx_tmp_2d,iim*jjmp1,ndex2d)
105c
106      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u100,zx_tmp_2d)
107      CALL histwrite(nid_nmc,"u100",itau_w,
108     .zx_tmp_2d,iim*jjmp1,ndex2d)
109c
110      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v100,zx_tmp_2d)
111      CALL histwrite(nid_nmc,"v100",itau_w,
112     .zx_tmp_2d,iim*jjmp1,ndex2d)
113c
114      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u70,zx_tmp_2d)
115      CALL histwrite(nid_nmc,"u70",itau_w,
116     .zx_tmp_2d,iim*jjmp1,ndex2d)
117c
118      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v70,zx_tmp_2d)
119      CALL histwrite(nid_nmc,"v70",itau_w,
120     .zx_tmp_2d,iim*jjmp1,ndex2d)
121c
122      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u50,zx_tmp_2d)
123      CALL histwrite(nid_nmc,"u50",itau_w,
124     .zx_tmp_2d,iim*jjmp1,ndex2d)
125c
126      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v50,zx_tmp_2d)
127      CALL histwrite(nid_nmc,"v50",itau_w,
128     .zx_tmp_2d,iim*jjmp1,ndex2d)
129c
130      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u30,zx_tmp_2d)
131      CALL histwrite(nid_nmc,"u30",itau_w,
132     .zx_tmp_2d,iim*jjmp1,ndex2d)
133c
134      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v30,zx_tmp_2d)
135      CALL histwrite(nid_nmc,"v30",itau_w,
136     .zx_tmp_2d,iim*jjmp1,ndex2d)
137c
138      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u20,zx_tmp_2d)
139      CALL histwrite(nid_nmc,"u20",itau_w,
140     .zx_tmp_2d,iim*jjmp1,ndex2d)
141c
142      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v20,zx_tmp_2d)
143      CALL histwrite(nid_nmc,"v20",itau_w,
144     .zx_tmp_2d,iim*jjmp1,ndex2d)
145c
146      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u10,zx_tmp_2d)
147      CALL histwrite(nid_nmc,"u10",itau_w,
148     .zx_tmp_2d,iim*jjmp1,ndex2d)
149c
150      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v10,zx_tmp_2d)
151      CALL histwrite(nid_nmc,"v10",itau_w,
152     .zx_tmp_2d,iim*jjmp1,ndex2d)
153
154      if (ok_sync) then
155        call histsync(nid_nmc)
156      endif
157
158      ENDIF
Note: See TracBrowser for help on using the repository browser.