Changeset 1526 for LMDZ5/trunk/libf/cosp/ini_histmthCOSP.h
- Timestamp:
- May 26, 2011, 1:41:28 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/cosp/ini_histmthCOSP.h
r1327 r1526 14 14 idayref = day_ref 15 15 CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian) 16 17 16 CALL histbeg_phy("histmthCOSP",itau_phy,zjulian,dtime,nhori,nid_mth_cosp) 18 17 19 18 ! Definition de l'axe vertical 19 print*,'height_mlev=',vgrid%mz 20 if (use_vgrid) then 20 21 CALL histvert(nid_mth_cosp,"height","height","m",Nlevout,vgrid%z,nvert) 22 else 23 CALL histvert(nid_mth_cosp,"presnivs","Vertical levels","Pa",Nlevout,presnivs,nvert,"down") 24 endif 21 25 CALL histvert(nid_mth_cosp,"height_mlev","height_mlev","m",Nlevlmdz,vgrid%mz,nvertm) 22 ! CALL histvert(nid_mth_cosp,"presnivs","Vertical levels","mb",Nlevout,presnivs,nvert)23 26 24 27 CALL histvert(nid_mth_cosp,"sza","solar_zenith_angle","degrees",PARASOL_NREFL,PARASOL_SZA,nvertp) … … 26 29 CALL histvert(nid_mth_cosp,"pressure2","pressure","mb",7,ISCCP_PC,nvertisccp) 27 30 28 CALL histvert(nid_mth_cosp,"column","column","count",Ncolumns,column_ax ,nvertcol)31 CALL histvert(nid_mth_cosp,"column","column","count",Ncolumns,column_ax(1:Ncolumns),nvertcol) 29 32 30 33 ! Sorties LIDAR … … 59 62 iim,jj_nb,nhori, Nlevout,1,Nlevout,nvert, 32, & 60 63 "ave(X)", zout,zstomth) 64 ! CALL histdef(nid_mth_cosp, "zlev_m", & 65 ! "Height at Midel model levels", "m", & 66 ! iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertm, 32, & 67 ! "ave(X)", zout,zstomth) 68 ! CALL histdef(nid_mth_cosp, "zlev_b", & 69 ! "Height at bottom model levels", "m", & 70 ! iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertm, 32, & 71 ! "ave(X)", zout,zstomth) 61 72 endif 62 73 if (cfg%Lcfad_lidarsr532) then
Note: See TracChangeset
for help on using the changeset viewer.