- Timestamp:
- 2018-10-29T15:20:26+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/TOOLS/SIREN/src/filter.f90
r10248 r10251 18 18 !> - rad > cutoff : @f$ filter=0 @f$ 19 19 !> - 'blackman' 20 !> - rad < cutoff : @f$ filter=0.42 + 0.5*COS(\pi*\frac{rad}{cutoff}) + 21 !> 0.08*COS(2\pi*\frac{rad}{cutoff}) @f$ 20 !> - rad < cutoff : @f$ filter=0.42 + 0.5*COS(\pi*\frac{rad}{cutoff}) + 0.08*COS(2\pi*\frac{rad}{cutoff}) @f$ 22 21 !> - rad > cutoff : @f$ filter=0 @f$ 23 22 !> - 'gauss' … … 30 29 !> 31 30 !> td_var\%c_filter(2) string character is the number of turn to be done<br/> 32 !> td_var\%c_filter(3) string character is the cut-off frequency 33 ! > (count in number of mesh grid)<br/> 34 !> td_var\%c_filter(4) string character is the halo radius 35 !> (count in number of mesh grid)<br/> 36 !> td_var\%c_filter(5) string character is the alpha parameter 37 !> (for gauss and butterworth method)<br/> 31 !> td_var\%c_filter(3) string character is the cut-off frequency (count in number of mesh grid)<br/> 32 !> td_var\%c_filter(4) string character is the halo radius (count in number of mesh grid)<br/> 33 !> td_var\%c_filter(5) string character is the alpha parameter (for gauss and butterworth method)<br/> 38 34 !> 39 35 !> @note Filter method could be specify for each variable in namelist _namvar_, … … 44 40 !> The number of turn is specify using '*' separator.<br/> 45 41 !> Example: 46 !> - cn_varinfo='varname1:flt=2*hamming(@f$cutoff@f$,@f$radius@f$)', 47 !> 'varname2:flt=gauss(@f$cutoff@f$,@f$radius@f$,@f$\alpha@f$)' 42 !> - cn_varinfo='varname1:2*hamming(@f$cutoff@f$,@f$radius@f$)', 'varname2:gauss(@f$cutoff@f$,@f$radius@f$,@f$\alpha@f$)' 48 43 !> 49 44 !> to filter variable value:<br/> … … 111 106 !> 112 107 !> @author J.Paul 113 !> @date November, 2013- Initial Version108 !> - November, 2013- Initial Version 114 109 ! 115 110 !> @param[inout] td_var variable structure … … 255 250 !> 256 251 !> @author J.Paul 257 !> @date November, 2013- Initial Version252 !> - November, 2013- Initial Version 258 253 ! 259 254 !> @param[inout] td_var variable … … 301 296 302 297 !3-extrapolate 303 CALL extrap_fill_value( td_var ) !, id_iext=id_radius, id_jext=id_radius )298 CALL extrap_fill_value( td_var, id_iext=id_radius, id_jext=id_radius ) 304 299 305 300 !4-filtering … … 346 341 ! 347 342 !> @author J.Paul 348 !> @date November, 2013- Initial Version343 !> - November, 2013- Initial Version 349 344 ! 350 345 !> @param[inout] dd_value array of value to be filtered … … 398 393 !> 399 394 !> @author J.Paul 400 !> @date November, 2013- Initial Version395 !> - November, 2013- Initial Version 401 396 ! 402 397 !> @param[inout] dd_value array of value to be filtered … … 444 439 !> 445 440 !> @author J.Paul 446 !> @date November, 2013- Initial Version441 !> - November, 2013- Initial Version 447 442 ! 448 443 !> @param[inout] dd_value array of value to be filtered … … 487 482 !> 488 483 !> @author J.Paul 489 !> @date November, 2013- Initial Version484 !> - November, 2013- Initial Version 490 485 ! 491 486 !> @param[inout] dd_value array of value to be filtered … … 542 537 !> 543 538 !> @author J.Paul 544 !> @date November, 2013- Initial Version539 !> - Nov, 2013- Initial Version 545 540 ! 546 541 !> @param[inout] dd_value array of value to be filtered … … 595 590 ! 596 591 !> @author J.Paul 597 !> @date November, 2013- Initial Version592 !> - November, 2013- Initial Version 598 593 ! 599 594 !> @param[in] cd_name filter name … … 654 649 ! 655 650 !> @author J.Paul 656 !> @date November, 2013- Initial Version651 !> - November, 2013- Initial Version 657 652 ! 658 653 !> @param[in] cd_name filter name … … 700 695 ! 701 696 !> @author J.Paul 702 !> @date November, 2013- Initial Version697 !> - November, 2013- Initial Version 703 698 ! 704 699 !> @param[in] dd_cutoff cut-off frequency … … 754 749 ! 755 750 !> @author J.Paul 756 !> @date November, 2013- Initial Version751 !> - November, 2013- Initial Version 757 752 ! 758 753 !> @param[in] dd_cutoff cut-off frequency … … 813 808 ! 814 809 !> @author J.Paul 815 !> @date November, 2013- Initial Version810 !> - November, 2013- Initial Version 816 811 ! 817 812 !> @param[in] dd_cutoff cut-off frequency … … 868 863 ! 869 864 !> @author J.Paul 870 !> @date November, 2013- Initial Version865 !> - November, 2013- Initial Version 871 866 ! 872 867 !> @param[in] dd_cutoff cut-off frequency … … 927 922 ! 928 923 !> @author J.Paul 929 !> @date November, 2013- Initial Version924 !> - November, 2013- Initial Version 930 925 ! 931 926 !> @param[in] dd_cutoff cut-off frequency … … 983 978 !> 984 979 !> @author J.Paul 985 !> @date November, 2013- Initial Version980 !> - November, 2013- Initial Version 986 981 !> 987 982 !> @param[in] dd_cutoff cut-off frequency … … 1043 1038 !> 1044 1039 !> @author J.Paul 1045 !> @date November, 2013- Initial Version1040 !> - November, 2013- Initial Version 1046 1041 !> 1047 1042 !> @param[in] dd_cutoff cut-off frequency … … 1095 1090 !> 1096 1091 !> @author J.Paul 1097 !> @date November, 2013- Initial Version1092 !> - November, 2013- Initial Version 1098 1093 !> 1099 1094 !> @param[in] dd_cutoff cut-off frequency … … 1151 1146 !> 1152 1147 !> @author J.Paul 1153 !> @date November, 2013- Initial Version1148 !> - November, 2013- Initial Version 1154 1149 !> 1155 1150 !> @param[in] dd_cutoff cut-off frequency … … 1203 1198 !> 1204 1199 !> @author J.Paul 1205 !> @date November, 2013- Initial Version1200 !> - November, 2013- Initial Version 1206 1201 !> 1207 1202 !> @param[in] dd_cutoff cut-off frequency
Note: See TracChangeset
for help on using the changeset viewer.