source: LMDZ5/trunk/libf/phylmd/thermcell_out3d.h @ 1907

Last change on this file since 1907 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:keywords set to Author Date Id Revision
File size: 4.5 KB
Line 
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'
Note: See TracBrowser for help on using the repository browser.