| 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 | call wrgradsfi(1,nlay,ztva(igout,1:klev),'ztva ','ztva ') |
|---|
| 30 | call wrgradsfi(1,nlay,ztv(igout,1:klev),'ztv ','ztv ') |
|---|
| 31 | |
|---|
| 32 | call wrgradsfi(1,nlay,zo(igout,1:klev),'zo ','zo ') |
|---|
| 33 | call wrgradsfi(1,nlay,zoa(igout,1:klev),'zoa ','zoa ') |
|---|
| 34 | |
|---|
| 35 | !nouveaux diagnostiques |
|---|
| 36 | call wrgradsfi(1,nlay,zthl(igout,1:klev),'zthl ','zthl ') |
|---|
| 37 | call wrgradsfi(1,nlay,zta(igout,1:klev),'zta ','zta ') |
|---|
| 38 | call wrgradsfi(1,nlay,zl(igout,1:klev),'zl ','zl ') |
|---|
| 39 | call wrgradsfi(1,nlay,zdthladj(igout,1:klev),'zdthladj ', & |
|---|
| 40 | & 'zdthladj ') |
|---|
| 41 | call wrgradsfi(1,nlay,ztla(igout,1:klev),'ztla ','ztla ') |
|---|
| 42 | call wrgradsfi(1,nlay,zqta(igout,1:klev),'zqta ','zqta ') |
|---|
| 43 | call wrgradsfi(1,nlay,zqla(igout,1:klev),'zqla ','zqla ') |
|---|
| 44 | call wrgradsfi(1,nlay,deltaz(igout,1:klev),'deltaz ','deltaz ') |
|---|
| 45 | !nouveaux diagnostiques |
|---|
| 46 | call wrgradsfi(1,nlay,entr_star (igout,1:klev),'entr_star ','entr_star ') |
|---|
| 47 | call wrgradsfi(1,nlay,detr_star (igout,1:klev),'detr_star ','detr_star ') |
|---|
| 48 | call wrgradsfi(1,nlay,f_star (igout,1:klev),'f_star ','f_star ') |
|---|
| 49 | call wrgradsfi(1,nlay,zqsat (igout,1:klev),'zqsat ','zqsat ') |
|---|
| 50 | call wrgradsfi(1,nlay,zqsatth (igout,1:klev),'qsath ','qsath ') |
|---|
| 51 | call wrgradsfi(1,nlay,alim_star (igout,1:klev),'alim_star ','alim_star ') |
|---|
| 52 | ! call wrgradsfi(1,nlay,alim (igout,1:klev),'alim ','alim ') |
|---|
| 53 | call wrgradsfi(1,1,f(igout),'f ','f ') |
|---|
| 54 | call wrgradsfi(1,1,alim_star_tot(igout),'a_s_t ','a_s_t ') |
|---|
| 55 | call wrgradsfi(1,1,alim_star2(igout),'a_2 ','a_2 ') |
|---|
| 56 | call wrgradsfi(1,1,zmax(igout),'zmax ','zmax ') |
|---|
| 57 | call wrgradsfi(1,1,zmax_sec(igout),'z_sec ','z_sec ') |
|---|
| 58 | call wrgradsfi(1,1,zmix(igout),'zmix ','zmix ') |
|---|
| 59 | ! call wrgradsfi(1,1,nivcon(igout),'nivcon ','nivcon ') |
|---|
| 60 | call wrgradsfi(1,1,zcon(igout),'zcon ','zcon ') |
|---|
| 61 | call wrgradsfi(1,1,zcon2(igout),'zcon2 ','zcon2 ') |
|---|
| 62 | zsortie1d(:)=lmax(:) |
|---|
| 63 | call wrgradsfi(1,1,zsortie1d(igout),'lmax ','lmax ') |
|---|
| 64 | call wrgradsfi(1,1,wmax(igout),'wmax ','wmax ') |
|---|
| 65 | call wrgradsfi(1,1,wmax_sec(igout),'w_sec ','w_sec ') |
|---|
| 66 | ! zsortie1d(:)=lmix(:) |
|---|
| 67 | ! call wrgradsfi(1,1,zsortie1d(igout),'lmix ','lmix ') |
|---|
| 68 | ! zsortie1d(:)=lentr(:) |
|---|
| 69 | ! call wrgradsfi(1,1,zsortie1d(igout),'lentr ','lentr ') |
|---|
| 70 | |
|---|
| 71 | print*,'Fin des wrgradsfi' |
|---|
