My Project
 All Classes Files Functions Variables Macros
thermcell_out3d.h
Go to the documentation of this file.
1 ! if (sorties) then
2 
3 ! print*,'16 OK convect8'
4  call wrgradsfi(1,nlay,pt(igout,1:klev),'pt ','pt ')
5  call wrgradsfi(1,nlay,fraca(igout,1:klev),'fraca ','fraca ')
6  call wrgradsfi(1,nlay,zh(igout,1:klev),'zh ','zh ')
7  call wrgradsfi(1,nlay,zha(igout,1:klev),'zha ','zha ')
8  call wrgradsfi(1,nlay,zua(igout,1:klev),'zua ','zua ')
9  call wrgradsfi(1,nlay,zva(igout,1:klev),'zva ','zva ')
10  call wrgradsfi(1,nlay,zu(igout,1:klev),'zu ','zu ')
11  call wrgradsfi(1,nlay,zv(igout,1:klev),'zv ','zv ')
12  call wrgradsfi(1,nlay,zo(igout,1:klev),'zo ','zo ')
13  call wrgradsfi(1,1,zmax(igout),'zmax ','zmax ')
14 ! call wrgradsfi(1,nlay,zdhadj(igout,1:klev),'zdhadj ','zdhadj ')
15  call wrgradsfi(1,nlay,pduadj(igout,1:klev),'pduadj ','pduadj ')
16  call wrgradsfi(1,nlay,pdvadj(igout,1:klev),'pdvadj ','pdvadj ')
17  call wrgradsfi(1,nlay,pdoadj(igout,1:klev),'pdoadj ','pdoadj ')
18  call wrgradsfi(1,nlay,entr(igout,1:klev),'entr ','entr ')
19  call wrgradsfi(1,nlay,detr(igout,1:klev),'detr ','detr ')
20  call wrgradsfi(1,nlay,fm(igout,1:klev),'fm ','fm ')
21  call wrgradsfi(1,nlay,zw2(igout,1:klev),'zw2 ','zw2 ')
22  call wrgradsfi(1,nlay,zw_est(igout,1:klev),'w_est ','w_est ')
23 !on sort les moments
24  call wrgradsfi(1,nlay,thetath2(igout,1:klev),'zh2 ','zh2 ')
25  call wrgradsfi(1,nlay,wth2(igout,1:klev),'w2 ','w2 ')
26  call wrgradsfi(1,nlay,wth3(igout,1:klev),'w3 ','w3 ')
27  call wrgradsfi(1,nlay,q2(igout,1:klev),'q2 ','q2 ')
28 !
29 !
30  call wrgradsfi(1,nlay,wthl(igout,1:klev),'wthl ','wthl ')
31  call wrgradsfi(1,nlay,wthv(igout,1:klev),'wthv ','wthv ')
32  call wrgradsfi(1,nlay,wq(igout,1:klev),'wq ','wq ')
33 
34  call wrgradsfi(1,nlay,ztva(igout,1:klev),'ztva ','ztva ')
35  call wrgradsfi(1,nlay,ztv(igout,1:klev),'ztv ','ztv ')
36 
37  call wrgradsfi(1,nlay,zo(igout,1:klev),'zo ','zo ')
38  call wrgradsfi(1,nlay,zoa(igout,1:klev),'zoa ','zoa ')
39 
40 !nouveaux diagnostiques
41  call wrgradsfi(1,nlay,zthl(igout,1:klev),'zthl ','zthl ')
42  call wrgradsfi(1,nlay,zta(igout,1:klev),'zta ','zta ')
43  call wrgradsfi(1,nlay,zl(igout,1:klev),'zl ','zl ')
44  call wrgradsfi(1,nlay,zdthladj(igout,1:klev),'zdthladj ', &
45  & 'zdthladj ')
46  call wrgradsfi(1,nlay,ztla(igout,1:klev),'ztla ','ztla ')
47  call wrgradsfi(1,nlay,zqta(igout,1:klev),'zqta ','zqta ')
48  call wrgradsfi(1,nlay,zqla(igout,1:klev),'zqla ','zqla ')
49  call wrgradsfi(1,nlay,deltaz(igout,1:klev),'deltaz ','deltaz ')
50 !nouveaux diagnostiques
51  call wrgradsfi(1,nlay,entr_star (igout,1:klev),'entr_star ','entr_star ')
52  call wrgradsfi(1,nlay,detr_star (igout,1:klev),'detr_star ','detr_star ')
53  call wrgradsfi(1,nlay,f_star (igout,1:klev),'f_star ','f_star ')
54  call wrgradsfi(1,nlay,zqsat (igout,1:klev),'zqsat ','zqsat ')
55  call wrgradsfi(1,nlay,zqsatth (igout,1:klev),'qsath ','qsath ')
56  call wrgradsfi(1,nlay,alim_star (igout,1:klev),'alim_star ','alim_star ')
57 ! call wrgradsfi(1,nlay,alim (igout,1:klev),'alim ','alim ')
58  call wrgradsfi(1,1,f(igout),'f ','f ')
59  call wrgradsfi(1,1,alim_star_tot(igout),'a_s_t ','a_s_t ')
60  call wrgradsfi(1,1,zmax(igout),'zmax ','zmax ')
61  call wrgradsfi(1,1,zmax_sec(igout),'z_sec ','z_sec ')
62  call wrgradsfi(1,1,zmix(igout),'zmix ','zmix ')
63 ! call wrgradsfi(1,1,nivcon(igout),'nivcon ','nivcon ')
64  call wrgradsfi(1,1,zcon(igout),'zcon ','zcon ')
65  call wrgradsfi(1,1,zcon2(igout),'zcon2 ','zcon2 ')
66  zsortie1d(:)=lmax(:)
67  call wrgradsfi(1,1,zsortie1d(igout),'lmax ','lmax ')
68  call wrgradsfi(1,1,wmax(igout),'wmax ','wmax ')
69  call wrgradsfi(1,1,wmax_sec(igout),'w_sec ','w_sec ')
70 ! zsortie1d(:)=lmix(:)
71 ! call wrgradsfi(1,1,zsortie1d(igout),'lmix ','lmix ')
72 ! zsortie1d(:)=lentr(:)
73 ! call wrgradsfi(1,1,zsortie1d(igout),'lentr ','lentr ')
74 
75  print*,'Fin des wrgradsfi'