source: LMDZ5/trunk/libf/phylmd/ini_bilKP_ins.h @ 4122

Last change on this file since 4122 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 10.7 KB
RevLine 
[644]1c
[1403]2c $Id: ini_bilKP_ins.h 1907 2013-11-26 13:10:46Z dcugnet $
[644]3c
4      IF (ok_journe) THEN
5c
6         zsto = dtime
7         zout = dtime
8         typeval=tinst
9c
10         idayref = day_ref
11         CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
12c
[766]13cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
14cym         DO i = 1, iim
15cym            zx_lon(i,1) = rlon(i+1)
16cym            zx_lon(i,jjmp1) = rlon(i+1)
17cym         ENDDO
[644]18         DO ll=1,klev
[1403]19            znivsig(ll)=REAL(ll)
[644]20         ENDDO
[766]21cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
22cym         write(*,*)'zx_lon = ',zx_lon(:,1)
23cym         write(*,*)'zx_lat = ',zx_lat(1,:)
[644]24c
25cIM 280405 BEG
26c
27cIM cf. AM 081204 BEG region
28          imin_ins=1
29          imax_ins=iim
30          jmin_ins=1
31          jmax_ins=jjmp1
[766]32cym          do i=1,iim-1
33cym             if(zx_lon(i,1).lt.lonmin_ins) imin_ins=i
34cym             if(zx_lon(i,1).le.lonmax_ins) imax_ins=i+1
35cym          enddo
36cym          do j=1,jjmp1
37cym             if(zx_lat(1,j).ge.latmin_ins) jmax_ins=j
38cym             if(zx_lat(1,j).gt.latmax_ins) jmin_ins=j
39cym          enddo
[644]40c
41          print*,'On stoke le fichier bilKP instantanne sur ',
42     s   imin_ins,imax_ins,jmin_ins,jmax_ins
43          print*,'On stoke le fichier bilKP instantanne sur ',
44     s   zx_lon(imin_ins,1),zx_lon(imax_ins,1),
45     s   zx_lat(1,jmin_ins),zx_lat(1,jmax_ins)
46cIM cf. AM 081204 END region
47c
48cIM 280405 END
49c
[766]50cym         IF(1.EQ.0) THEN
51cym         CALL histbeg("histbilKP_ins", iim,zx_lon(:,1), jjmp1,
52cym     .                zx_lat(1,:),
53cym     .                1,iim,1,jjmp1, itau_phy, zjulian, dtime,
54cym     .                nhori, nid_bilKPins)
[644]55         ENDIF
56c
57cIM 280405 BEG
58c
59cIM cf. AM 081204 BEG region
[766]60cym         CALL histbeg("histbilKP_ins", iim,zx_lon(:,1), 
61cym     .                 jjmp1,zx_lat(1,:),
62cym     .                 imin_ins,imax_ins-imin_ins+1,
63cym     .                 jmin_ins,jmax_ins-jmin_ins+1,
64cym     .                 itau_phy, zjulian, dtime,
65cym     .                 nhori, nid_bilKPins)
66         CALL histbeg_phy("histbilKP_ins", itau_phy, zjulian, dtime,
[644]67     .                 nhori, nid_bilKPins)
68cIM 081204 END
69c
70cIM 280405 END
71c
72         write(*,*)'Journee ', itau_phy, zjulian
73         CALL histvert(nid_bilKPins, "presnivs",
74     .                "Vertical levels","mb",
75     .                 klev, presnivs/100., nvert)
76c
77c Champs 3D:
78c
79         CALL histdef(nid_bilKPins,"ue",
80     .   "Zonal energy transport","-",
[766]81     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 
[644]82     .                typeval, zsto,zout)
83c
84         CALL histdef(nid_bilKPins,"ve",
85     .   "Merid energy transport","-",
[766]86     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 
[644]87     .                typeval, zsto,zout)
88c
89         CALL histdef(nid_bilKPins,"uq",
90     .   "Zonal humidity transport","-",
[766]91     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 
[644]92     .                typeval, zsto,zout)
93c
94         CALL histdef(nid_bilKPins,"vq",
95     .   "Merid humidity transport","-",
[766]96     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 
[644]97     .                typeval, zsto,zout)
98c
99c Champs 3D:
100c
101         CALL histdef(nid_bilKPins, "temp",
102     .   "Air temperature", "K",
[766]103     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]104     .                typeval, zsto,zout)
105c
106         CALL histdef(nid_bilKPins,"ovap",
107     .   "Specific humidity","Kg/Kg",
[766]108     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]109     .                typeval, zsto,zout)
110c
111         CALL histdef(nid_bilKPins,"geop",
112     .   "Geopotential height", "m",
[766]113     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]114     .                typeval, zsto,zout)
115c
116         CALL histdef(nid_bilKPins,"vitu", 
117     .   "Zonal wind", "m/s",
[766]118     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]119     .                typeval, zsto,zout)
120c
121         CALL histdef(nid_bilKPins,"vitv", 
122     .   "Meridional wind", "m/s",
[766]123     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]124     .                typeval, zsto,zout)
125c
126         CALL histdef(nid_bilKPins, "vitw",
127     .   "Vertical wind", "m/s",
[766]128     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]129     .                typeval, zsto,zout)
130c
131         CALL histdef(nid_bilKPins, "pres",
132     .   "Inter-Layer Air pressure",
133     .                "Pa",
[766]134     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]135     .                typeval, zsto,zout)
136c
137         CALL histdef(nid_bilKPins, "play",
138     .   "Mean-Layer Air pressure",
139     .                "Pa",
[766]140     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]141     .                typeval, zsto,zout)
142c
143         CALL histdef(nid_bilKPins, "oliq",
144     .   "Liquid water content", 
145     .                "kg/kg",
[766]146     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]147     .                typeval, zsto,zout)
148c
149         CALL histdef(nid_bilKPins, "dtdyn",
150     .   "Dynamics dT", "K/s",
[766]151     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]152     .                typeval, zsto,zout)
153c
154         CALL histdef(nid_bilKPins, "dqdyn",
155     .   "Dynamics dQ", "Kg/Kg/s",
[766]156     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]157     .                typeval, zsto,zout)
158c
159         CALL histdef(nid_bilKPins, "dtcon",
160     .   "Convection dT", "K/s",
[766]161     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]162     .                typeval, zsto,zout)
163c
164         CALL histdef(nid_bilKPins, "ducon",
165     .   "Convection du", "m/s2",
[766]166     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]167     .                typeval, zsto,zout)
168c
169         CALL histdef(nid_bilKPins, "dvcon",
170     .   "Convection dv", "m/s2",
[766]171     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]172     .                typeval, zsto,zout)
173c
174         CALL histdef(nid_bilKPins,"dqcon",
175     .   "Convection dQ","Kg/Kg/s",
[766]176     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]177     .                typeval, zsto,zout)
178c
179         CALL histdef(nid_bilKPins, "dtlsc",
180     .   "Condensation dT", "K/s",
[766]181     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]182     .                typeval, zsto,zout)
183c
184         CALL histdef(nid_bilKPins,"dqlsc",
185     .   "Condensation dQ","Kg/Kg/s",
[766]186     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]187     .                typeval, zsto,zout)
188c
189         CALL histdef(nid_bilKPins,"dtvdf",
190     .   "Boundary-layer dT","K/s",
[766]191     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]192     .                typeval, zsto,zout)
193c
194         CALL histdef(nid_bilKPins, "dqvdf", 
195     .   "Boundary-layer dQ", 
196     .               "Kg/Kg/s",
[766]197     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]198     .                typeval, zsto,zout)
199c
200         CALL histdef(nid_bilKPins,"dtajs",
201     .   "Ajustement sec dT","K/s",
[766]202     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]203     .                typeval, zsto,zout)
204c
205         CALL histdef(nid_bilKPins,"dqajs",
206     .   "Ajustement sec dQ", 
207     .               "Kg/Kg/s",
[766]208     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]209     .                typeval, zsto,zout)
210c
211         CALL histdef(nid_bilKPins,"dteva",
212     .   "Reevaporation dT","K/s",
[766]213     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]214     .                typeval, zsto,zout)
215c
216         CALL histdef(nid_bilKPins,"dqeva",
217     .   "Reevaporation dQ",
218     .                "Kg/Kg/s",
[766]219     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]220     .                typeval, zsto,zout)
221
222c
223         CALL histdef(nid_bilKPins, "dtswr", 
224     .   "SW radiation dT", "K/s",
[766]225     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]226     .                typeval, zsto,zout)
227c
228         CALL histdef(nid_bilKPins, "dtsw0", 
229     .   "SW radiation dT", "K/s",
[766]230     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]231     .                typeval, zsto,zout)
232c
233         CALL histdef(nid_bilKPins, "dtlwr", 
234     .   "LW radiation dT", "K/s",
[766]235     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]236     .                typeval, zsto,zout)
237c
238         CALL histdef(nid_bilKPins, "dtlw0", 
239     .   "LW radiation dT", "K/s",
[766]240     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]241     .                typeval, zsto,zout)
242c
243         CALL histdef(nid_bilKPins,"duvdf",
244     .   "Boundary-layer dU","m/s2",
[766]245     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]246     .                typeval, zsto,zout)
247c
248         CALL histdef(nid_bilKPins,"dvvdf",
249     .   "Boundary-layer dV","m/s2",
[766]250     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]251     .                typeval, zsto,zout)
252c
253         IF (ok_orodr) THEN
254         IF (ok_orolf) THEN
255         CALL histdef(nid_bilKPins, "duoli", 
256     .   "Orography dU", "m/s2",
[766]257     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]258     .                typeval, zsto,zout)
259c
260         CALL histdef(nid_bilKPins, "dvoli", 
261     .   "Orography dV", "m/s2",
[766]262     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]263     .                typeval, zsto,zout)
264c
265         ENDIF
266         ENDIF
267C
268         CALL histdef(nid_bilKPins, "duphy",
269     .   "Physiq dU","-",
[766]270     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]271     .                typeval, zsto,zout)
272C
273         CALL histdef(nid_bilKPins, "dvphy",
274     .   "Physiq dV","-",
[766]275     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]276     .                typeval, zsto,zout)
277C
278         CALL histdef(nid_bilKPins, "dtphy",
279     .   "Physiq dT","-",
[766]280     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]281     .                typeval, zsto,zout)
282C
283         CALL histdef(nid_bilKPins, "dqphy",
284     .   "Physiq dQ","-",
[766]285     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]286     .                typeval, zsto,zout)
287C
288         CALL histdef(nid_bilKPins, "dqlphy",
289     .   "Physiq dQl","-",
[766]290     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[644]291     .                typeval, zsto,zout)
292cIM 280405 BEG
293c
294c Champs 2D:
295c
296c u850, v850
297c        DO k=1, nlevSTD
298         DO k=1, 12
299c
300         IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k)
301         IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k)
302c
303         IF(bb2.EQ."850") THEN
304c
305          CALL histdef(nid_bilKPins, "u"//bb2,
306     .                 "Zonal wind "//bb2//"mb","m/s",
[766]307     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[644]308     .                typeval, zsto,zout)
309c
310          CALL histdef(nid_bilKPins, "v"//bb2,
311     .                 "Meridional wind "//bb2//"mb","m/s",
[766]312     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[644]313     .                typeval, zsto,zout)
314c
315         ENDIF !(bb2.EQ."850") 
316c
317         ENDDO !k=1, 12
318c
319cIM 280405 END
320c
321         CALL histend(nid_bilKPins)
322c
323         ndex2d = 0
324         ndex3d = 0
325c
326      ENDIF ! fin de test sur ok_journe
Note: See TracBrowser for help on using the repository browser.