Changeset 1928 for LMDZ4/branches/LMDZ4_AR5/libf/cosp/ini_histmthCOSP.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_histmthCOSP.h
r1528 r1928 27 27 CALL histvert(nid_mth_cosp,"sza","solar_zenith_angle","degrees",PARASOL_NREFL,PARASOL_SZA,nvertp) 28 28 29 CALL histvert(nid_mth_cosp,"pressure2","pressure","mb",7,ISCCP_PC,nvertisccp )29 CALL histvert(nid_mth_cosp,"pressure2","pressure","mb",7,ISCCP_PC,nvertisccp,"down") 30 30 31 31 CALL histvert(nid_mth_cosp,"column","column","count",Ncolumns,column_ax(1:Ncolumns),nvertcol) … … 84 84 iim,jj_nb,nhori, PARASOL_NREFL,1, PARASOL_NREFL, nvertp,32, & 85 85 "ave(X)", zout,zstomth) 86 CALL histdef(nid_mth_cosp, "parasol_crefl", & 87 "PARASOL-like mono-directional reflectance","1", & 88 iim,jj_nb,nhori, PARASOL_NREFL,1, PARASOL_NREFL, nvertp,32, & 89 "ave(X)", zout,zstomth) 90 CALL histdef(nid_mth_cosp, "Ncrefl", & 91 "0 ou 1 si reflectance <= ou > 0","1", & 92 iim,jj_nb,nhori, PARASOL_NREFL,1, PARASOL_NREFL, nvertp,32, & 93 "ave(X)", zout,zstomth) 86 94 endif 87 95 if (cfg%Latb532) then … … 141 149 ! Sorties ISCCP 142 150 if (cfg%Lisccp_sim) then 151 152 CALL histdef(nid_mth_cosp, "sunlit", & 153 "1 si jour 0 si nuit", "1", & 154 iim, jj_nb,nhori,1,1,1,-99,32, & 155 "ave(X)", zout,zstomth) 143 156 if (cfg%Lclisccp2) then 144 157 do ii=1,7
Note: See TracChangeset
for help on using the changeset viewer.