Changeset 1029
- Timestamp:
- Oct 24, 2008, 5:15:57 PM (16 years ago)
- File:
-
- 1 edited
-
LMDZ4/trunk/libf/phylmd/thermcell_out3d.h (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/thermcell_out3d.h
r878 r1029 1 1 ! if (sorties) then 2 print*,'Debut des wrgradsfi'3 2 4 3 ! 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 ')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 ') 24 23 !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 ')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 ') 29 28 ! 30 call wrgradsfi(1,nlay,ztva ,'ztva ','ztva ')31 call wrgradsfi(1,nlay,ztv ,'ztv ','ztv ')29 call wrgradsfi(1,nlay,ztva(igout,1:klev),'ztva ','ztva ') 30 call wrgradsfi(1,nlay,ztv(igout,1:klev),'ztv ','ztv ') 32 31 33 call wrgradsfi(1,nlay,zo ,'zo ','zo ')34 call wrgradsfi(1,nlay,zoa ,'zoa ','zoa ')32 call wrgradsfi(1,nlay,zo(igout,1:klev),'zo ','zo ') 33 call wrgradsfi(1,nlay,zoa(igout,1:klev),'zoa ','zoa ') 35 34 36 35 !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 ', &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 ', & 41 40 & '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 ')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 ') 46 45 !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 ')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 ') 63 62 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 ')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 ') 71 70 72 71 print*,'Fin des wrgradsfi'
Note: See TracChangeset
for help on using the changeset viewer.
