Changeset 1928 for LMDZ4/branches/LMDZ4_AR5/libf/cosp/ini_histhfCOSP.h
- Timestamp:
- Jan 16, 2014, 1:43:34 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4_AR5/libf/cosp/ini_histhfCOSP.h
r1528 r1928 21 21 CALL histvert(nid_hf_cosp,"height","height","m",Nlevout,vgrid%z,nvert) 22 22 else 23 CALL histvert(nid_hf_cosp,"presnivs","Vertical levels","mb",Nlevout,presnivs,nvert )23 CALL histvert(nid_hf_cosp,"presnivs","Vertical levels","mb",Nlevout,presnivs,nvert,"down") 24 24 endif 25 25 … … 28 28 CALL histvert(nid_hf_cosp,"sza","solar_zenith_angle","degrees",PARASOL_NREFL,PARASOL_SZA,nvertp) 29 29 30 CALL histvert(nid_hf_cosp,"pressure2","pressure","mb",7,ISCCP_PC,nvertisccp )30 CALL histvert(nid_hf_cosp,"pressure2","pressure","mb",7,ISCCP_PC,nvertisccp,"down") 31 31 32 32 CALL histvert(nid_hf_cosp,"column","column","count",Ncolumns,column_ax(1:Ncolumns),nvertcol) … … 77 77 iim,jj_nb,nhori, PARASOL_NREFL,1, PARASOL_NREFL, nvertp,32, & 78 78 "ave(X)", zout,zstohf) 79 CALL histdef(nid_hf_cosp, "parasol_crefl", & 80 "PARASOL-like mono-directional reflectance","1", & 81 iim,jj_nb,nhori, PARASOL_NREFL,1, PARASOL_NREFL, nvertp,32, & 82 "ave(X)", zout,zstohf) 83 CALL histdef(nid_hf_cosp, "Ncrefl", & 84 "1 ou 0 si cldt > o <= 0 ","1", & 85 iim,jj_nb,nhori, PARASOL_NREFL,1, PARASOL_NREFL, nvertp,32, & 86 "ave(X)", zout,zstohf) 79 87 endif 80 88 if (cfg%Latb532) then … … 134 142 ! Sorties ISCCP 135 143 if (cfg%Lisccp_sim) then 144 145 CALL histdef(nid_hf_cosp, "sunlit", & 146 "0 si nuit 1 si jour", "1", & 147 iim, jj_nb,nhori,1,1,1,-99,32, & 148 "ave(X)", zout,zstomth) 136 149 if (cfg%Lclisccp2) then 137 150 do ii=1,7
Note: See TracChangeset
for help on using the changeset viewer.