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