utilities_mod¶
Dependency Diagrams:
Direct Dependency Diagram¶
Reverse Dependency Diagram¶
Description
MODULE utilities_mod (prefix=’utl’ category=’8. Low-level utilities and constants’)
- Purpose
A place to collect numerous simple utility routines.
Quick access
- Variables
utl_findloc,utl_findlocs,utl_reallocate,utl_resize,utl_str- Routines
utl_abort(),utl_allreduce(),utl_checkallocationstatus(),utl_combinestring(),utl_copyfile(),utl_eigendecomp(),utl_findloc_char(),utl_findloc_int(),utl_findlocs_char(),utl_float2str(),utl_fstecr(),utl_fstlir(),utl_fstlir_r4(),utl_get_id(),utl_get_stringid(),utl_getfldprm(),utl_heapsort2d(),utl_int2str(),utl_isnamelistpresent(),utl_matinverse(),utl_matsqrt(),utl_medianindex(),utl_open_asciifile(),utl_open_file(),utl_parsecolumns(),utl_pseudo_inverse(),utl_randomorderint(),utl_readfstfield(),utl_reallocate_char_1d(),utl_reallocate_char_2d(),utl_reallocate_char_3d(),utl_reallocate_int_1d(),utl_reallocate_int_2d(),utl_reallocate_int_3d(),utl_reallocate_log_1d(),utl_reallocate_log_2d(),utl_reallocate_log_3d(),utl_reallocate_r4_1d(),utl_reallocate_r4_2d(),utl_reallocate_r4_3d(),utl_reallocate_r4_4d(),utl_reallocate_r4_5d(),utl_reallocate_r8_1d(),utl_reallocate_r8_2d(),utl_reallocate_r8_3d(),utl_reallocate_r8_4d(),utl_reallocate_r8_5d(),utl_removeemptystrings(),utl_resize_1d_int(),utl_resize_1d_real(),utl_resize_1d_str(),utl_resize_2d_real(),utl_resize_3d_real(),utl_splitstring(),utl_stnid_equal(),utl_stopandwait4debug(),utl_stringarraytointegerarray(),utl_tmg_start(),utl_tmg_stop(),utl_varnamepresentinfile(),utl_writestatus()Needed modules
clibinterfaces_mod: MODULE clibInterfaces_mod (prefix=’’ category=’9. Global interfaces’)
randomnumber_mod: MODULE randomNumber_mod (prefix=’rng’ category=’8. Low-level utilities and constants’)Variables
- utilities_mod/utl_findloc [public]¶
- utilities_mod/utl_findlocs [public]¶
- utilities_mod/utl_reallocate [public]¶
- utilities_mod/utl_resize [public]¶
- utilities_mod/utl_str [public]¶
Subroutines and functions
- function utilities_mod/utl_fstlir(fld8, iun, ni, nj, nk, datev, etiket, ip1, ip2, ip3, typvar, nomvar)¶
- Arguments
fld8 (*) [real ,inout]
iun [integer ,in]
ni [integer ,in]
nj [integer ,in]
nk [integer ,in]
datev [integer ,in]
etiket [character ,in]
ip1 [integer ,in]
ip2 [integer ,in]
ip3 [integer ,in]
typvar [character ,in]
nomvar [character ,in]
- Return
vfstlir [integer ]
- Called from
bcsc_readcorns2(),bcsc_convol(),bcsc_rdstddev(),bcsc_rdspstd(),bcsc_rdspstd_newfmt(),bcsc_rdstd(),bcsc_rdstd3d(),readcorns(),readcorns_sqrt(),bhi_sutg(),bhi_readcorns2(),bhi_rdspstd(),bhi_rdstd(),bhi_rdspstd_newfmt(),bhi_rdspptot(),hco_setupfromfile(),lbhi_readbsqrt(),lbhi_readgridpointstddev(),ose_compute_hbht_static(),emis_read_climatology(),interp_sfc()
- function utilities_mod/utl_fstlir_r4(fld_r4, iun, ni, nj, nk, datev, etiket, ip1, ip2, ip3, typvar, nomvar)¶
- Arguments
fld_r4 (*) [real ,inout]
iun [integer ,in]
ni [integer ,in]
nj [integer ,in]
nk [integer ,in]
datev [integer ,in]
etiket [character ,in]
ip1 [integer ,in]
ip2 [integer ,in]
ip3 [integer ,in]
typvar [character ,in]
nomvar [character ,in]
- Return
vfstlir [integer ]
- Called from
- function utilities_mod/utl_fstecr(fld8, npak, iun, dateo, deet, npas, ni, nj, nk, ip1, ip2, ip3, typvar, nomvar, etiket, grtyp, ig1, ig2, ig3, ig4, datyp, rewrit)¶
- Arguments
fld8 (ni,nj,nk) [real ,in]
npak [integer ,in]
iun [integer ,in]
dateo [integer ,in]
deet [integer ,in]
npas [integer ,in]
ni [integer ,in,]
nj [integer ,in,]
nk [integer ,in,]
ip1 [integer ,in]
ip2 [integer ,in]
ip3 [integer ,in]
typvar [character ,in]
nomvar [character ,in]
etiket [character ,in]
grtyp [character ,in]
ig1 [integer ,in]
ig2 [integer ,in]
ig3 [integer ,in]
ig4 [integer ,in]
datyp [integer ,in]
rewrit [logical ,in]
- Return
vfstecr [integer ]
- Called from
bcsc_scalestd(),bcsc_convol(),bcsc_corvertsetup(),writecorns(),bhi_sucorns2(),writecorns_sqrt(),bhi_sutg(),writespstats(),writestats(),writestddev(),writestddevbal(),write3d(),writetictactoc(),lgt_createlamtemplategrids()
- subroutine utilities_mod/utl_matsqrt(matrix, rank_bn, exponentsign[, printinformation_opt])¶
- Purpose
Calculate square root of an error covariance matrix
- Arguments
matrix (rank_bn,rank_bn) [real ,inout]
rank_bn [integer ,in,]
exponentsign [real ,in]
- Options
printinformation_opt [logical ,in,] :: switch to print be more verbose
- Called from
bmat1d_setupbhi(),bmat1d_setupbens(),bcs_setup(),calcbsqrt(),setuplocalizationmatrices(),rmat_rsqrtinverseoneobs()- Call to
- subroutine utilities_mod/utl_matinverse(matrix, rank_bn[, inversesqrt_opt[, printinformation_opt]])¶
- Purpose
Calculate the inverse of a covariance matrix and, optionally, also the inverse square-root.
- Arguments
matrix (*,*) [real ,inout] :: on entry, the original matrix; on exit, the inverse
rank_bn [integer ,in]
- Options
inversesqrt_opt (*,*) [real ,inout,] :: if present, the inverse sqrt matrix on exit
printinformation_opt [logical ,in,] :: switch to print be more verbose
- Called from
- Call to
- subroutine utilities_mod/utl_eigendecomp(matrix, eigenvalues, eigenvectors, tolerance, numreturned[, printinformation_opt])¶
- Purpose
Calculate eigenValues/Vectors and return only those with eigenValues whose magnitude is greater than the specified tolerance.
- Arguments
matrix (*,*) [real ,inout] :: on entry, the original matrix; on exit, the inverse
eigenvalues (*) [real ,out] :: computed eigenValues
eigenvectors (*,*) [real ,out] :: computed eigenVectors
tolerance [real ,in] :: threshold for eigenValue magnitude to be returned
numreturned [integer ,out] :: number of eigenValues/Vectors returned
- Options
printinformation_opt [logical ,in,] :: switch to print be more verbose
- Called from
enkf_letkfanalyses(),getmodulationfactor(),vms_computemodes()
- subroutine utilities_mod/utl_pseudo_inverse(inputmatrix, pseudoinverse[, threshold_opt])¶
- Purpose
to calculate the More-Penrose pseudo inverse of the matrix inputMatrix
- Arguments
inputmatrix (*,*) [real ,in] :: Input Matrix
pseudoinverse (*,*) [real ,out] :: its Moore Penrose Pseudo-Inverse
- Options
threshold_opt [real ,in,]
- Called from
- Call to
- subroutine utilities_mod/utl_writestatus(cmsg)¶
- Arguments
cmsg [character ,in]
- Called from
- subroutine utilities_mod/utl_getfldprm(kip1s, kip2, kip3, knlev, cdetiket, cdtypvar, kgid, cdvar, kstampv, knmaxlev, kinmpg, kip1style, kip1kind, ktrials, koutmpg)¶
- Purpose
Get 3D grid parameters for a specific trial field and check for consitancies between grid parameters of the levels.
- Arguments
kip1s (knmaxlev) [integer ,out]
kip2 [integer ,out]
kip3 [integer ,out]
knlev [integer ,out]
cdetiket [character ,out]
cdtypvar [character ,out]
kgid [integer ,out]
cdvar [character ,out]
kstampv [integer ,out]
knmaxlev [integer ,in]
kinmpg (ktrials) [integer ,in]
kip1style [integer ,out]
kip1kind [integer ,out]
ktrials [integer ,in,]
koutmpg [integer ,out]
- Called from
- Call to
- subroutine utilities_mod/utl_abort(message)¶
- Arguments
message [character ,in]
- Called from
adv_setup(),processsteeringflow(),calctrajectory(),calcweights(),adv_ensemble_tl(),adv_ensemble_ad(),adv_statevector_tl(),adv_statevector_ad(),aer_analysiserror(),findobs(),aer_computeanlerrorstd(),bcsc_setupch(),bcsc_rdstats(),bcsc_readcorns2(),bcsc_rdstddev(),bcsc_rdspstd(),bcsc_rdspstd_newfmt(),bcsc_rdstd(),bcsc_rdstd3d(),bcsc_sucorns2(),bcsc_corvertsetup(),readcorns(),bcsc_getcovarch(),bcsc_getbgstddev(),bcsc_addbgstddev(),bcsc_retrievebgstddev(),bmat1d_bsetup(),bmat1d_setupbhi(),bmat1d_setupbens(),bmat1d_bsqrthi(),bmat1d_bsqrthiad(),bmat1d_bsqrtens(),bmat1d_bsqrtensad(),bmat1d_sqrtb(),bmat1d_sqrtbt(),bchm_reducetompilocal(),bchm_reducetompilocal_r4(),bdiff_setup(),bdiff_rdstats(),ben_setup(),ben_setuponeinstance(),setupensemble(),ben_getperturbation(),ben_getensmean(),addensmember(),addensmemberad(),ensemblediagnostic(),bhi_setup(),bhi_sucorns2(),readcorns_sqrt(),bhi_calccorr(),bhi_sutg(),bhi_readcorns2(),bhi_rdspstd(),bhi_rdstd(),bhi_rdspstd_newfmt(),bhi_truncatecv(),bhi_reducetompilocal(),bhi_reducetompilocal_r4(),bmat_setup(),bmat_reducetompilocal_r4(),bgck_data(),csrbg_init(),csrbg_readobsfromobsspace(),mwbg_init(),amsuabtest1topographycheck(),mwbg_readgeophysicfieldsandinterpolate(),atmsmwhs2landicemask(),mwbg_bgcheckmw(),ocebg_bgchecksst(),ocebg_bgcheckseaice(),ssbg_init(),ssbg_readgeophysicfieldsandinterpolate(),land_ice_mask_ssmis(),wentz_sfctype_ssmis(),ssbg_satqcssmis(),ssbg_updateobsspaceaftersatqc(),ssbg_inovqcssmis(),ssbg_updateobsspaceafterinovqc(),ssbg_bgcheckssmis(),bcc_readconfig(),bcc_getuacorrection(),bcc_stationindex(),bcc_sondeindex(),bcc_getsondetype(),bcc_readaibiases(),bcc_applyaibcor(),bcc_readgpbiases(),bcc_readuabcorstype(),bcc_readuabcorstn(),bcc_applyuabcor(),bcs_readconfig(),bcs_setup(),bcs_computepredictorbiases(),bcs_dumpbiastosqliteafterthinning(),bcs_computeresidualsstatistics(),bcs_removeoutliers(),bcs_filterobs(),bcs_do_regression(),bcs_outputcvomppred(),read_bcif(),read_coeff(),brpf_obssub_read(),brpf_obssub_update(),brpr_updateburp(),brpacma_nml(),brpr_readburp(),write_body(),writeinfo(),brpr_addcloudparametersandemissivity(),brpr_addelementstoburp(),isgroupeddata(),getelementidsread(),calczandp_gsv_tl(),calczandp_gsv_ad(),czp_calcreturnheight_gsv_nl(),calcheight_gsv_nl_vcode2100x_r4(),calcheight_gsv_nl_vcode5xxx(),calcheight_gsv_tl(),calcheight_gsv_ad(),czp_calcreturnpressure_gsv_nl(),calcpressure_gsv_nl_vcode2100x(),calcpressure_gsv_tl(),calcpressure_gsv_ad(),calczandp_col_tl(),calczandp_col_ad(),czp_calcreturnheight_col_nl(),calcheight_col_tl(),calcheight_col_ad(),czp_calcreturnpressure_col_nl(),calcpressure_col_nl_vcode5xxx(),calcpressure_col_tl(),calcpressure_col_ad(),fetch3dlevels_r8(),fetch3dlevels_r4(),fetch1dlevels_r8(),fetch1ddpdps_r8(),czp_ensurecompatibletops(),calcheightcoeff_gsv(),calcheightcoeff_col(),gpscompressibility_tt(),gpscompressibility_hu(),gpscompressibility_p0_1(),gpscompressibility_p0_2(),csg_setup(),csg_computebhi(),csg_toolbox(),writestats(),spectralfilter(),spectralfilter2(),csl_setup(),csl_toolbox(),normalizepowerspectrum(),codtyp_initialize(),col_setup(),col_allocate(),col_getlevindexfromvarlevindex(),col_getvarnamefromk(),col_getpressure(),col_getheight(),col_getallcolumns(),col_getcolumn(),col_getelem(),cvt_transform(),cvm_setupsubvector(),cvm_getsubvector(),cvm_getsubvector_r4(),cvm_getsubvector_mpiglobal(),cvm_getsubvector_mpiglobal_r4(),readnamelist(),diff_setup(),enkf_letkfanalyses(),enkf_computevertlocation(),enkf_letkfsetupmpidistribution(),enkf_getmodulatedstate(),getmodulationfactor(),epp_postprocess(),epp_hybridrecentering(),epp_printrmsstats(),eob_init(),eob_zero(),eob_settypevertcoord(),eob_allgather(),eob_writetofiles(),eob_readfromfiles(),eob_getlocalbodyindices(),eob_setvertlocation(),eob_setya(),eob_calcrandpert(),getmemberindexinfullensset(),ens_allocate(),ens_copy(),ens_copy4dto3d(),ens_add(),ens_zero(),ens_copytostatework(),ens_copyfromstatework(),ens_copytoensmean(),ens_copymember(),ens_insertmember(),ens_varnameslist(),ens_getoffsetfromvarname(),ens_computemean(),ens_computestddev(),ens_removeglobalmean(),ens_recenter(),ens_readensemble(),ens_writeensemble(),ens_applymasklam(),fln_ensfilename(),fso_setup(),multenergynorm(),gpos_xyfll_unstructgrid(),gst_setup(),gst_spgd(),gst_gdsp(),gst_spgda(),fft3dvar(),fft3dvar_kij(),gps_setupro(),gps_setupgb(),gbi_setup(),gio_readfromfile(),gio_readfile(),gio_readtrials(),gio_writetofile(),writetictactoc(),readnml(),gsv_getoffsetfromvarname(),gsv_getvarnamefromk(),gsv_getlevfromk(),gsv_getmpiidfromk(),gsv_varnameslist(),gsv_setup(),gsv_allocate(),gsv_checkmpidistribution(),complementaryuvname(),gsv_modifyvarname(),gsv_zero(),gsv_add(),gsv_schurproduct(),gsv_copy(),gsv_copy4dto3d(),gsv_copyheightsfc(),gsv_hpad(),gsv_power(),gsv_scale(),gsv_scalevertical(),gsv_3dto4d(),gsv_3dto4dadj(),gsv_deallocate(),gsv_getfieldwrapper_r4(),gsv_getfieldwrapper_r8(),gsv_getfield_r48(),gsv_getfield3d_r8(),gsv_getfield3d_r4(),gsv_getfielduv_r48(),gsv_getheightsfc(),gsv_getdatestamp(),gsv_transposevarslevstotiles(),gsv_transposetilestovarslevs(),gsv_transposetilestovarslevsad(),gsv_horizsubsample(),gsv_transposesteptovarslevs(),gsv_transposesteptotiles(),gsv_transposetilestostep(),gsv_transposetilestompiglobal(),gsv_dotproduct(),gsv_smoothhorizontal(),gvt_setupreffromtrialfiles(),gvt_transform_gsv(),gvt_transform_ens(),gvt_getstatevectortrial(),gvt_setupreffromstatevector(),lqtohu_tlm(),hutolq_tlm(),lprtopr_gsv(),lprtopr_ens(),lvistovis(),uvtovortdiv_gsv(),vortdivtopsichi_gsv(),uvtovortdiv_ens(),expch_tlm(),gvt_oceanicecontinuous(),gvt_sstspread(),hco_setupfromfile(),hco_mpibcast(),qlim_saturationlimit_ens(),qlim_rttovlimit_gsv(),qlim_rttovlimit_ens(),qlim_setmin_ens(),qlim_getminvaluecloud(),qlim_getmaxvaluecloud(),inc_computehighresanalysis(),inc_interpolateandadd(),inn_setupcolumnsontrllev(),setobsmpistrategy(),int_readnml(),int_interp_gsv(),int_hinterp_gsv(),int_vinterp_gsv(),vinterp_gsv_r8(),vinterp_gsv_r4(),int_tinterp_gsv(),int_vinterp_col(),int_setezopt(),int_hinterpscalar_gsv(),int_sintcloudtogrid_gsv(),int_hinterpuv_gsv(),int_ezgdef(),pq_max(),pq_maxpri(),pq_extract_max(),pq_delete(),kdtree2_create(),validate_query_storage(),lgt_setupfromhco(),lgt_psichitouv(),lgt_psichitouvadj(),lgt_mach(),lgt_mach_r4(),lgt_uvtovortdiv(),lgt_createlamtemplategrids(),lbhi_setup(),lbhi_getcontrolvariableinfo(),lbhi_readbsqrt(),lbhi_readgridpointstddev(),lbhi_cv2gd(),lbhi_cv2gdadj(),statevectorinterface(),lbhi_reducetompilocal(),lbhi_reducetompilocal_r4(),lbhi_expandtompiglobal(),lbhi_expandtompiglobal_r4(),lst_setup(),lst_vartransform_ijk(),lst_vartransform_kij(),lst_transform1d(),lst_transform1d_kij(),lst_reshapetrunc(),lst_reshapetrunc_kij(),lst_laplacian(),lfn_setup(),lfn_response(),lfn_gradient(),lsp_setup(),setuplocalizationmatrices(),setupglobalspectralhloc(),setuplamspectralhloc(),globalspectralhloc(),lamspectralhloc(),globalspectralhlocad(),lamspectralhlocad(),lsp_reducetompilocal(),lsp_reducetompilocal_r4(),lsp_expandtompiglobal(),lsp_expandtompiglobal_r4(),lsp_check(),loc_setup(),loc_lsqrt(),loc_lsqrtad(),loc_finalize(),loc_reducetompilocal(),loc_reducetompilocal_r4(),loc_expandtompiglobal(),loc_expandtompiglobal_r4(),calchorizlocalizationradii(),findbinindex(),calcvertlocalizationradii(),msg_readnml(),mmpi_getptopo(),min_setup(),min_minimize(),quasinewtonminimization(),hessianio(),irbg_init(),bgck_get_qcid(),irbg_doqualitycontrol(),tovs_rttov_avhrr_for_iasi(),diaf_writesqldiagfile(),diaf_getobsfilename(),oer_setobserrors(),oer_readobserrorstovs(),oer_readobserrorsconv(),oer_readobserrorsice(),oer_readobserrorssst(),oer_readobserrorshydro(),oer_fillobserrors(),chanisallsky(),oer_seterrgpsro(),oer_seterrgpsgb(),chm_read_obs_err_stddev_file(),chm_obs_err_stddev_index(),chm_get_obs_err_stddev(),oer_getsstdataparam_char(),oer_getsstdataparam_int(),oer_getsstdataparam_r8(),obsf_setup(),obsf_filessplit(),obsf_readfiles(),obsf_writefiles(),obsf_cleanobsfiles(),obsf_determinefiletype(),obsf_determinesplitfiletype(),obsf_obssub_read(),obsf_obssub_update(),obsf_addcloudparametersandemissivity(),obsf_copyobsdirectory(),filt_setup(),filt_suprep(),filt_topoaisw(),filt_radvel(),filt_iceconcentration(),oopc_setupch(),oopc_readnamchem(),oopc_readlevels(),oopc_getlevels(),oopc_readavgkernauxfile(),oopc_getavgkern(),oop_vobslyrs(),oop_zzz_nl(),oop_sfc_nl(),oop_gpsro_nl(),oop_gpsgb_nl(),oop_tovs_nl(),oop_htl(),oop_calcgpsgbjacobian(),osd_calcinflation(),osd_setup(),osd_obsspace_diagn_print(),ose_computestddev(),ose_compute_hbht_static(),setfgefam(),setfgefamz(),ose_readompstddev_auxfilech(),obsdata_set_index(),oss_obsdata_add_data1d(),oss_comboidlist(),oti_timebinning(),oti_setup(),oti_setupmpiglobal(),oti_timeinterpweightallzero(),oti_flagobsoutsidewindow(),obsu_updatesourcevariablesflag(),ovt_bufrcodeskipped(),ovt_getdestinationbufrcode(),ovt_getsourcebufrcode(),ovt_iswindobs(),ovt_istransformedvariable(),ovt_transformobsvalues(),ovt_transformresiduals(),ovt_windspeeddirectiontouv(),ovt_vistologvis(),ovt_vistologvis_residual(),ovt_preciptologprecip(),ovt_preciptologprecip_residual(),odbf_setup(),odbf_getdatestamp(),odbf_readmidasbodytable(),odbf_getprimarykeys(),odbf_setsurfacetype(),odbf_copytoobsspaceheadchar(),odbf_copytoobsspacehead(),odbf_copytoobsspacebody(),odbf_sqlnamefromobsspacename(),odbf_midastabcolfromobsspacename(),odbf_varnofromsqlname(),odbf_insertinmidasheadertable(),odbf_insertinmidasbodytable(),odbf_createmidasheadertable(),odbf_createmidasbodytable(),obdf_clean(),mergetableinmidastables(),ocm_readmaskfromfile(),ocm_farfromland(),ozo_read_climatology(),phf_tetens_coefs_switch(),phf_convert_z_to_pressure(),phf_get_tropopause(),phf_get_pbl(),ppo_vertinterpwgts(),ppo_sublayerinterpwgts(),rmat_init(),rmat_readcmatrix(),rmat_readcmatrixbyfilename(),rmat_rsqrtinverseoneobs(),ram_fullworkingpath(),heightbilinearinterp(),sqlr_readsqlite_avhrr(),sqlr_readsqlite(),sqlr_addcolumn(),sqlr_updatesqlite(),sqlr_insertsqlite(),sqlr_getcolumnvaluesdate(),sqlu_sqlcolumnexists(),sqlu_sqltableexists(),sqlu_getsqlcolumnnames(),sqlu_getcolumnvaluesnum(),sqlu_getcolumnvalueschar(),sqlu_getcolumnvaluesdatestr(),sqlu_handleerror(),sstb_getgriddedobs(),sstb_getgriddedbias(),sstb_applysatellitesstbiascorrection(),sstb_getbiasfrompreviousstate(),pressureprofilemonotonicitycheck(),s2c_setupinterpinfo(),s2c_tl(),s2c_ad(),s2c_nl(),s2c_bgcheck_bilin(),s2c_setuphorizinterp(),s2c_getfootprintradius(),s2c_setupbilinearinterp(),s2c_setupfootprintinterp(),s2c_setuplakeinterp(),s2c_setupnearestneighbor(),checkcolumnstatevectormatch(),s2c_getweightsandgridpointindexes(),s2c_deallocinterpinfo(),thn_thinsurface(),thn_thinraobs(),thn_thinaircraft(),thn_thinsatwinds(),thn_thingpsro(),thn_thingbgps(),thn_thinaladin(),thn_thincsr(),thn_thinscat(),thn_thintovs(),thn_thinhyper(),thn_surfaceintime(),thn_radiosonde(),raobs_check_duplicated_stations(),tim_readnml(),tim_getdatestampfromenvvar(),tim_getdatestampfromfile(),tim_setdatestamp(),tim_getdatestamp(),tim_getstamplist(),tim_getstepobsindex(),tim_getvaliddatetimefromlist(),tvslin_rttov_tl(),tvslin_rttov_ad(),tvs_setupalloc(),tvs_getprofile(),tvs_setup(),sensors(),tvs_getallidburptovs(),tvs_isidburptovs(),tvs_isidburphyperspectral(),tvs_isinstrumhyperspectral(),tvs_isnamehyperspectral(),tvs_isinstrumgeostationary(),tvs_mapinstrum(),tvs_isnamegeostationary(),tvs_mapsat(),tvs_getotheremissivities(),tvs_fillprofiles(),tvs_rttov(),tvs_getmwemissivityfromatlas(),emis_read_climatology(),tvs_getcommonchannelset(),tvs_rttov_read_coefs(),extracti41darray(),extractr81darray(),extractr82darray(),extractr83darray(),extractcmplx81darray(),broadcastr82darray(),broadcastr81darray(),broadcasti41darray(),tvs_printdetailledomfstatistics(),updatecloudintovsprofile(),updatecloudintovscloudprofile(),utl_matsqrt(),utl_pseudo_inverse(),utl_getfldprm(),utl_open_asciifile(),utl_get_stringid(),utl_get_id(),utl_readfstfield(),utl_checkallocationstatus(),utl_varnamepresentinfile(),utl_isnamelistpresent(),utl_copyfile(),vnl_varlistindex3d(),vnl_varlistindex2d(),vnl_varlistindexother(),vnl_varlistindex(),vnl_varnamefromvarnum(),vnl_varnumfromvarname(),vnl_varlevelfromvarname(),vnl_varnamesfromexistlist(),vnl_varmassfromvarnum(),vnl_varmassfromvarname(),vco_setupfromfile(),vco_setupatmfromfile(),vco_setupoceanfromfile(),vco_getnumlev(),vco_mpibcast(),vms_computemodes(),vms_transform(),vms_writemodes(),uvr_setup(),uvr_rotatewind_nl(),uvr_rotatewind_tl(),uvr_rotatewind_ad(),uvr_rotatelatlon(),midas_adjointtest,midas_analysiserroroi,midas_calcstats,midas_diagbmatrix,midas_diaghbht,midas_enspostprocess,midas_ensembleh,midas_extractbmatrixfor1dvar,midas_gencoeff,midas_letkf,midas_ominusf,midas_obsimpact,midas_obsselection,midas_prepcma,midas_pseudosstobs,midas_randompert,midas_sstbias,midas_ssttrial,midas_thinning,midas_var,midas_var1d
- subroutine utilities_mod/utl_stopandwait4debug(message)¶
- Purpose
Stop the execution for the process reaching a call to the subroutine, then wait until all MPI processes reached such a call to utl_stopAndWait4Debug. Intended for debugging puposes only since it can cause unwanted MPI deadlocks - processes waiting infinitely because not all MPI processes will ever reach a call to utl_stopAndWait4Debug.
- Arguments
message [character ,in]
- subroutine utilities_mod/utl_open_asciifile(filename, unit)¶
- Purpose
Opens an ascii file for output
- Arguments
filename [character ,in]
unit [integer ,out]
- Called from
bcs_writecoeff(),bcs_outputcvomppred(),osd_obsspace_diagn_print()- Call to
- function utilities_mod/utl_open_file(unit, filename, mode)¶
- Purpose
This is a temporary subroutine to open a file with fnom that is needed due to a bug in fnom that does not allow an ascii file to be opened in ‘APPEND’ mode.
- Arguments
unit [integer ,inout]
filename [character ,in]
mode [character ,in]
- Return
ier [integer ]
- Called from
- function utilities_mod/utl_stnid_equal(id1, id2)¶
- Purpose
Compares STNID values allowing for * as wildcards and trailing blanks
- Arguments
- Arguments
id1 [character ,in] :: reference stnid
id2 [character ,in] :: stnid being verified
- Return
same [logical ] :: logical indicating if id1 and id2 match
- Called from
brpf_obssub_read(),chm_obs_err_stddev_index(),oopc_getlevels(),oopc_findavgkern(),oopc_diagnonly(),oopc_checktype(),oopc_gettype(),osd_obsdiagnostics(),ose_calcompstddevch(),ose_fillompstddevch(),oss_comboidlist(),utl_get_stringid()
- function utilities_mod/utl_int2str(i)¶
- Purpose
Function for integer to string conversion. Helpful when calling subroutine utl_abort.
- Arguments
i [integer ,in]
- Return
utl_int2str [character ]
- function utilities_mod/utl_float2str(x)¶
- Purpose
Function for integer to string conversion. Helpful when calling subroutine utl_abort.
- Arguments
x [real ,in]
- Return
utl_float2str [character ]
- subroutine utilities_mod/utl_resize_1d_real(arr, dim1)¶
- Purpose
Resize 1D array
- Arguments
arr (*) [real ,inout,pointer]
dim1 [integer ,in]
- subroutine utilities_mod/utl_resize_1d_int(arr, dim1)¶
- Purpose
Resize 1D array
- Arguments
arr (*) [integer ,inout,pointer]
dim1 [integer ,in]
- subroutine utilities_mod/utl_resize_1d_str(arr, dim1)¶
- Purpose
Resize 1D array
- Arguments
arr (*) [character ,inout,pointer]
dim1 [integer ,in]
- subroutine utilities_mod/utl_resize_2d_real(arr, dim1, dim2)¶
- Purpose
Resize 2D array
- Arguments
arr (*,*) [real ,inout,pointer]
dim1 [integer ,in]
dim2 [integer ,in]
- subroutine utilities_mod/utl_resize_3d_real(arr, dim1, dim2, dim3)¶
- Purpose
Resize 3D array
- Arguments
arr (*,*,*) [real ,inout,pointer]
dim1 [integer ,in]
dim2 [integer ,in]
dim3 [integer ,in]
- subroutine utilities_mod/utl_get_stringid(cstringin, nobslev, clist, nlistsize, nmax, elemid)¶
- Purpose
Get element ID from a list of accumulating character strings (e.g. stnids). Called by filt_topoChm in filterobs_mod.ftn90
- Arguments
cstringin [character ,in]
nobslev [integer ,in]
clist (nmax) [character ,inout]
nlistsize [integer ,inout]
nmax [integer ,in,]
elemid [integer ,out]
- Called from
- Call to
- subroutine utilities_mod/utl_get_id(id, idlist, nlistsize, nmax, elemid)¶
- Purpose
Get element ID from list of accumulating integer IDs.
- Arguments
id [integer ,in]
idlist (nmax) [integer ,inout]
nlistsize [integer ,inout]
nmax [integer ,in,]
elemid [integer ,out]
- Called from
- Call to
- subroutine utilities_mod/utl_readfstfield(fname, varname, iip1, iip2, iip3, etiketi, ni, nj, nkeys, array[, xlat_opt[, xlong_opt[, lvls_opt[, kind_opt]]]])¶
- Purpose
Read specified field from standard RPN/fst file. Could be one to all levels depending on the input iip1,iip2,iip3 values.
Currently assumes lat/long (or Gaussian) type grids. See hco_SetupFromFile for example toward future generalizations. Generalization would require having xlat and xlong being 2D.
- Arguments
- Arguments
fname [character ,in] :: input filename :varName: search nomvar
iip1 [integer ,in] :: search ip1
iip2 [integer ,in] :: search ip2
iip3 [integer ,in] :: search ip3
etiketi [character ,in] :: search etiket
ni [integer ,out] :: ni values
nj [integer ,out] :: OUT
nkeys [integer ,out] :: number of records satisfying search criteria
array (*,*,*) [real ,out,allocatable] :: data arrray
varname [character ,in]
- Options
xlat_opt (*) [real ,out,allocatable] :: 1D latitude array (optional)
xlong_opt (*) [real ,out,allocatable] :: 1D longitude array (optional)
lvls_opt (*) [real ,out,allocatable] :: 1D vertical coordinate array (optional)
kind_opt [integer ,out,] :: vertical coordinate type according to convip (optional)
- Call to
- subroutine utilities_mod/utl_checkallocationstatus(status, message[, alloc_opt])¶
- Arguments
status (*) [integer ,in]
message [character ,in]
- Options
alloc_opt [logical ,in,]
- Called from
irbg_setup(),irbg_doqualitycontrol(),tvslin_rttov_tl(),tvslin_rttov_ad(),tvs_setupalloc(),tvs_alloctransmission(),tvs_cleanup(),tvs_deallocateprofilesnltlad(),tvs_fillprofiles(),tvs_rttov()- Call to
- function utilities_mod/utl_varnamepresentinfile(varname[, filename_opt[, fileunit_opt[, typvar_opt]]])¶
- Arguments
varname [character ,in]
- Options
filename_opt [character ,in,]
fileunit_opt [integer ,in,]
typvar_opt [character ,in,]
- Return
found [logical ]
- Called from
gio_readfromfile(),gio_readfile(),hco_setupfromfile(),ocm_readmaskfromfile(),tim_getdatestampfromfile(),vco_setupfromfile()- Call to
- subroutine utilities_mod/utl_reallocate_char_1d(array, dim1)¶
- Arguments
array (*) [character ,inout,allocatable]
dim1 [integer ,in]
- subroutine utilities_mod/utl_reallocate_char_2d(array, dim1, dim2)¶
- Arguments
array (*,*) [character ,inout,allocatable]
dim1 [integer ,in]
dim2 [integer ,in]
- subroutine utilities_mod/utl_reallocate_char_3d(array, dim1, dim2, dim3)¶
- Arguments
array (*,*,*) [character ,inout,allocatable]
dim1 [integer ,in]
dim2 [integer ,in]
dim3 [integer ,in]
- subroutine utilities_mod/utl_reallocate_log_1d(array, dim1)¶
- Arguments
array (*) [logical ,inout,allocatable]
dim1 [integer ,in]
- subroutine utilities_mod/utl_reallocate_log_2d(array, dim1, dim2)¶
- Arguments
array (*,*) [logical ,inout,allocatable]
dim1 [integer ,in]
dim2 [integer ,in]
- subroutine utilities_mod/utl_reallocate_log_3d(array, dim1, dim2, dim3)¶
- Arguments
array (*,*,*) [logical ,inout,allocatable]
dim1 [integer ,in]
dim2 [integer ,in]
dim3 [integer ,in]
- subroutine utilities_mod/utl_reallocate_int_1d(array, dim1)¶
- Arguments
array (*) [integer ,inout,allocatable]
dim1 [integer ,in]
- subroutine utilities_mod/utl_reallocate_int_2d(array, dim1, dim2)¶
- Arguments
array (*,*) [integer ,inout,allocatable]
dim1 [integer ,in]
dim2 [integer ,in]
- subroutine utilities_mod/utl_reallocate_int_3d(array, dim1, dim2, dim3)¶
- Arguments
array (*,*,*) [integer ,inout,allocatable]
dim1 [integer ,in]
dim2 [integer ,in]
dim3 [integer ,in]
- subroutine utilities_mod/utl_reallocate_r4_1d(array, dim1)¶
- Arguments
array (*) [real ,inout,allocatable]
dim1 [integer ,in]
- subroutine utilities_mod/utl_reallocate_r8_1d(array, dim1)¶
- Arguments
array (*) [real ,inout,allocatable]
dim1 [integer ,in]
- subroutine utilities_mod/utl_reallocate_r4_2d(array, dim1, dim2)¶
- Arguments
array (*,*) [real ,inout,allocatable]
dim1 [integer ,in]
dim2 [integer ,in]
- subroutine utilities_mod/utl_reallocate_r8_2d(array, dim1, dim2)¶
- Arguments
array (*,*) [real ,inout,allocatable]
dim1 [integer ,in]
dim2 [integer ,in]
- subroutine utilities_mod/utl_reallocate_r4_3d(array, dim1, dim2, dim3)¶
- Arguments
array (*,*,*) [real ,inout,allocatable]
dim1 [integer ,in]
dim2 [integer ,in]
dim3 [integer ,in]
- subroutine utilities_mod/utl_reallocate_r8_3d(array, dim1, dim2, dim3)¶
- Arguments
array (*,*,*) [real ,inout,allocatable]
dim1 [integer ,in]
dim2 [integer ,in]
dim3 [integer ,in]
- subroutine utilities_mod/utl_reallocate_r4_4d(array, dim1, dim2, dim3, dim4)¶
- Arguments
array (*,*,*,*) [real ,inout,allocatable]
dim1 [integer ,in]
dim2 [integer ,in]
dim3 [integer ,in]
dim4 [integer ,in]
- subroutine utilities_mod/utl_reallocate_r8_4d(array, dim1, dim2, dim3, dim4)¶
- Arguments
array (*,*,*,*) [real ,inout,allocatable]
dim1 [integer ,in]
dim2 [integer ,in]
dim3 [integer ,in]
dim4 [integer ,in]
- subroutine utilities_mod/utl_reallocate_r4_5d(array, dim1, dim2, dim3, dim4, dim5)¶
- Arguments
array (*,*,*,*,*) [real ,inout,allocatable]
dim1 [integer ,in]
dim2 [integer ,in]
dim3 [integer ,in]
dim4 [integer ,in]
dim5 [integer ,in]
- subroutine utilities_mod/utl_reallocate_r8_5d(array, dim1, dim2, dim3, dim4, dim5)¶
- Arguments
array (*,*,*,*,*) [real ,inout,allocatable]
dim1 [integer ,in]
dim2 [integer ,in]
dim3 [integer ,in]
dim4 [integer ,in]
dim5 [integer ,in]
- subroutine utilities_mod/utl_heapsort2d(array)¶
- Purpose
Sort a real 2D array in ascending order according to the first column
- Arguments
array (*,*) [real ,inout]
- subroutine utilities_mod/utl_splitstring(string_bn, separator, stringarray)¶
- Arguments
string_bn [character ,in]
separator [character ,in]
stringarray (*) [character ,inout,allocatable]
- Called from
- subroutine utilities_mod/utl_combinestring(string_bn, separator, stringarray)¶
- Arguments
string_bn [character ,out]
separator [character ,in]
stringarray (*) [character ,in]
- Called from
- subroutine utilities_mod/utl_removeemptystrings(stringarray)¶
- Arguments
stringarray (*) [character ,inout,allocatable]
- Called from
- subroutine utilities_mod/utl_stringarraytointegerarray(stringarray, integerarray)¶
- Arguments
stringarray (*) [character ,in]
integerarray (*) [integer ,out,allocatable]
- Called from
- function utilities_mod/utl_isnamelistpresent(namelistsectionname, namelistfilename)¶
- Purpose
To find if a namelist name tag is present in a namelist file
- Arguments
namelistsectionname [character ,in]
namelistfilename [character ,in]
- Return
found [logical ]
- Called from
aer_analysiserror(),bdiff_setup(),ocebg_bgchecksst(),ocebg_bgcheckseaice(),bcc_readconfig(),bcs_readconfig(),brpr_addelementstoburp(),codtyp_initialize(),readnamelist(),eob_init(),inn_setupcolumnsontrllev(),int_readnml(),msg_readnml(),oer_setobserrors(),oer_readobserrorssst(),obsf_readfiles(),filt_radvel(),filt_iceconcentration(),oop_sfc_nl(),odbf_updatefile(),obdf_clean(),phf_tetens_coefs_switch(),s2c_setupinterpinfo(),thn_thinsurface(),thn_thinraobs(),thn_thinaircraft(),thn_thinsatwinds(),thn_thingpsro(),thn_thingbgps(),thn_thinaladin(),thn_thincsr(),thn_thinscat(),thn_thintovs(),thn_thinhyper(),thn_radiosonde(),tvs_setup(),sensors(),tvs_getallidburptovs(),tvs_isidburptovs(),tvs_isidburphyperspectral(),tvs_isinstrumhyperspectral(),tvs_isinstrumgeostationary(),tvs_mapinstrum(),tvs_isnamegeostationary(),tvs_mapsat(),vnl_varlevelfromvarname(),midas_adjointtest,midas_obsselection,midas_var- Call to
- subroutine utilities_mod/utl_parsecolumns(line, numcolumns[, stringarray_opt])¶
- Purpose
To return column values in array of strings and the number of space-delimited columns in a string
- Arguments
line [character ,in]
numcolumns [integer ,out]
- Options
stringarray_opt (*) [character ,out,]
- Called from
- function utilities_mod/utl_copyfile(filein, fileout)¶
- Purpose
Copy the specified file to the new location and/or name This function is very general, but was initially written to copy files from the disk to the ram disk
- Arguments
filein [character ,in]
fileout [character ,in]
- Return
status [integer ]
- Called from
- Call to
- subroutine utilities_mod/utl_allreduce(localglobalvalue)¶
- Purpose
Perform mpi_allReduce to sum integer values over all mpi tasks and copy result back to same variable.
- Arguments
localglobalvalue [integer ,inout]
- Called from
- function utilities_mod/utl_findloc_char(chararray, value)¶
- Purpose
A modified version of the fortran function findloc. If multiple matches are found in the array, a warning message is printed to the listing.
- Arguments
chararray (*) [character ,in]
value [character ,in]
- Return
location [integer ]
- function utilities_mod/utl_findloc_int(intarray, value)¶
- Purpose
A modified version of the fortran function findloc. If multiple matches are found in the array, a warning message is printed to the listing.
- Arguments
intarray (*) [integer ,in]
value [integer ,in]
- Return
location [integer ]
- function utilities_mod/utl_findlocs_char(chararray, value)¶
- Purpose
A modified version of the fortran function findloc. Returns an array of all matches found in the array.
- Arguments
chararray (*) [character ,in]
value [character ,in]
- Return
locations (*) [integer ,allocatable]
- subroutine utilities_mod/utl_randomorderint(intarray, randomseed)¶
- Purpose
Randomly shuffle the order of the integer array elements.
- Arguments
intarray (*) [integer ,inout]
randomseed [integer ,in]
- Called from
- Call to
- subroutine utilities_mod/utl_tmg_start(blockindex, blocklabel)¶
- Purpose
Wrapper for rpnlib subroutine tmg_start
- Arguments
blockindex [integer ,in]
blocklabel [character ,in]
- Called from
adv_statevector_tl(),aer_computeanlerrorstd(),bmat1d_bsetup(),bmat1d_sqrtb(),bmat1d_sqrtbt(),bdiff_setup(),ben_setup(),ben_setuponeinstance(),ben_bsqrt(),ben_bsqrtad(),addensmember(),addensmemberad(),bmat_setup(),bmat_sqrtb(),bmat_sqrtbt(),bgck_bgcheck_conv(),csrbg_bgcheckcsr(),mwbg_bgcheckmw(),ocebg_bgchecksst(),ssbg_bgcheckssmis(),brpf_updatefile(),calcheight_gsv_nl(),czp_calcreturnheight_gsv_nl(),calcheight_gsv_tl(),calcheight_gsv_ad(),calcpressure_gsv_nl(),czp_calcreturnpressure_gsv_nl(),calcpressure_gsv_tl(),calcpressure_gsv_ad(),calcheight_col_tl(),calcheight_col_ad(),calccorrelations(),calccorrelations2(),uv_to_psichi(),enkf_letkfanalyses(),enkf_getmodulatedstate(),epp_postprocess(),epp_addrandompert(),eob_allgather(),minimize(),simvar(),transpose2d_ntolev(),transpose2d_levton(),transpose2d_mtolat(),transpose2d_mtolat_kij(),transpose2d_lattom(),transpose2d_lattom_kij(),transpose2d_levtolon(),transpose2d_levtolon_kij_mpitypes8(),transpose2d_levtolon_kij_mpitypes4(),transpose2d_levtolon_kij(),transpose2d_lontolev(),transpose2d_lontolev_kij_mpitypes8(),transpose2d_lontolev_kij_mpitypes4(),transpose2d_lontolev_kij(),gst_spgd(),gst_gdsp(),gst_spgda(),gst_speree(),gst_speree_kij(),gst_reespe(),gst_reespe_kij(),gio_readfromfile(),gio_readtrials(),gio_writetofile(),gsv_allocate(),gsv_transposevarslevstotiles(),gsv_transposetilestovarslevs(),gsv_transposetilestovarslevsad(),gsv_transposesteptovarslevs(),gsv_transposesteptotiles(),gsv_smoothhorizontal(),inc_computehighresanalysis(),inc_analpostprocessing(),inc_writeincandanalhighres(),inc_getincrement(),inc_writeincrement(),inc_writeanalysis(),inn_setupobs(),inn_computeinnovation(),int_sintcloudtogrid_gsv(),lst_transform1d(),lst_transform1d_kij(),transpose2d_lontolev_kij_mpitypes(),transpose2d_levtolon_kij_mpitypes(),transpose2d_levton_kij(),transpose2d_ntolev_kij(),mmpi_allreduce_sumreal8scalar(),mmpi_allreduce_sumr8_1d(),mmpi_allreduce_sumr8_2d(),mmpi_reduce_sumr8_1d(),mmpi_reduce_sumr8_2d(),mmpi_reduce_sumr8_3d(),min_setup(),min_minimize(),quasinewtonminimization(),min_writehessian(),hessianio(),irbg_bgcheckir(),obsf_writefiles(),obsf_cleanobsfiles(),filt_suprep(),odbf_updatefile(),rmat_rsqrtinverseoneobs(),sqlf_updatefile(),s2c_setupinterpinfo(),s2c_tl(),s2c_ad(),s2c_nl(),s2c_bgcheck_bilin(),s2c_getweightsandgridpointindexes(),thn_thinsurface(),thn_thinraobs(),thn_thinaircraft(),thn_thinsatwinds(),thn_thingpsro(),thn_thingbgps(),thn_thinaladin(),thn_thincsr(),thn_thinscat(),thn_thintovs(),thn_thinhyper(),tvs_setupalloc(),utl_matinverse(),utl_copyfile(),midas_adjointtest,midas_analysiserroroi,midas_calcstats,midas_diagbmatrix,midas_diaghbht,midas_enspostprocess,midas_ensembleh,midas_extractbmatrixfor1dvar,midas_gencoeff,midas_letkf,midas_ominusf,midas_obsimpact,midas_obsselection,midas_prepcma,midas_pseudosstobs,midas_randompert,midas_sstbias,midas_ssttrial,midas_thinning,midas_var,midas_var1d
- subroutine utilities_mod/utl_tmg_stop(blockindex)¶
- Purpose
Wrapper for rpnlib subroutine tmg_stop
- Arguments
blockindex [integer ,in]
- Called from
adv_statevector_tl(),aer_computeanlerrorstd(),bmat1d_bsetup(),bmat1d_sqrtb(),bmat1d_sqrtbt(),bdiff_setup(),ben_setup(),ben_setuponeinstance(),ben_bsqrt(),ben_bsqrtad(),addensmember(),addensmemberad(),bmat_setup(),bmat_sqrtb(),bmat_sqrtbt(),bgck_bgcheck_conv(),csrbg_bgcheckcsr(),mwbg_bgcheckmw(),ocebg_bgchecksst(),ssbg_bgcheckssmis(),brpf_updatefile(),calcheight_gsv_nl(),czp_calcreturnheight_gsv_nl(),calcheight_gsv_tl(),calcheight_gsv_ad(),calcpressure_gsv_nl(),czp_calcreturnpressure_gsv_nl(),calcpressure_gsv_tl(),calcpressure_gsv_ad(),calcheight_col_tl(),calcheight_col_ad(),calccorrelations(),calccorrelations2(),uv_to_psichi(),enkf_letkfanalyses(),enkf_getmodulatedstate(),epp_postprocess(),epp_addrandompert(),eob_allgather(),minimize(),simvar(),transpose2d_ntolev(),transpose2d_levton(),transpose2d_mtolat(),transpose2d_mtolat_kij(),transpose2d_lattom(),transpose2d_lattom_kij(),transpose2d_levtolon(),transpose2d_levtolon_kij_mpitypes8(),transpose2d_levtolon_kij_mpitypes4(),transpose2d_levtolon_kij(),transpose2d_lontolev(),transpose2d_lontolev_kij_mpitypes8(),transpose2d_lontolev_kij_mpitypes4(),transpose2d_lontolev_kij(),gst_spgd(),gst_gdsp(),gst_spgda(),gst_speree(),gst_speree_kij(),gst_reespe(),gst_reespe_kij(),gio_readfromfile(),gio_readtrials(),gio_writetofile(),gsv_allocate(),gsv_transposevarslevstotiles(),gsv_transposetilestovarslevs(),gsv_transposetilestovarslevsad(),gsv_transposesteptovarslevs(),gsv_transposesteptotiles(),gsv_smoothhorizontal(),inc_computehighresanalysis(),inc_analpostprocessing(),inc_writeincandanalhighres(),inc_getincrement(),inc_writeincrement(),inc_writeanalysis(),inn_setupobs(),inn_computeinnovation(),int_sintcloudtogrid_gsv(),lst_transform1d(),lst_transform1d_kij(),transpose2d_lontolev_kij_mpitypes(),transpose2d_levtolon_kij_mpitypes(),transpose2d_levton_kij(),transpose2d_ntolev_kij(),mmpi_allreduce_sumreal8scalar(),mmpi_allreduce_sumr8_1d(),mmpi_allreduce_sumr8_2d(),mmpi_reduce_sumr8_1d(),mmpi_reduce_sumr8_2d(),mmpi_reduce_sumr8_3d(),min_setup(),min_minimize(),quasinewtonminimization(),min_writehessian(),hessianio(),irbg_bgcheckir(),obsf_writefiles(),obsf_cleanobsfiles(),filt_suprep(),odbf_updatefile(),rmat_rsqrtinverseoneobs(),sqlf_updatefile(),s2c_setupinterpinfo(),s2c_tl(),s2c_ad(),s2c_nl(),s2c_bgcheck_bilin(),s2c_getweightsandgridpointindexes(),thn_thinsurface(),thn_thinraobs(),thn_thinaircraft(),thn_thinsatwinds(),thn_thingpsro(),thn_thingbgps(),thn_thinaladin(),thn_thincsr(),thn_thinscat(),thn_thintovs(),thn_thinhyper(),tvs_setupalloc(),utl_matinverse(),utl_copyfile(),midas_adjointtest,midas_analysiserroroi,midas_calcstats,midas_diagbmatrix,midas_diaghbht,midas_enspostprocess,midas_ensembleh,midas_extractbmatrixfor1dvar,midas_gencoeff,midas_letkf,midas_ominusf,midas_obsimpact,midas_obsselection,midas_prepcma,midas_pseudosstobs,midas_randompert,midas_sstbias,midas_ssttrial,midas_thinning,midas_var,midas_var1d
- function utilities_mod/utl_medianindex(inputvector)¶
- Purpose
to find the median index of an input vector
- Arguments
inputvector (*) [real ,in]
- Return
medianindex [integer ]