Changeset 5972 for branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/TOOLS/SIREN/src/filter.f90
- Timestamp:
- 2015-12-02T09:52:20+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/TOOLS/SIREN/src/filter.f90
r5967 r5972 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}) + 0.08*COS(2\pi*\frac{rad}{cutoff}) @f$ 20 !> - rad < cutoff : @f$ filter=0.42 + 0.5*COS(\pi*\frac{rad}{cutoff}) + 21 !> 0.08*COS(2\pi*\frac{rad}{cutoff}) @f$ 21 22 !> - rad > cutoff : @f$ filter=0 @f$ 22 23 !> - 'gauss' … … 29 30 !> 30 31 !> td_var\%c_filter(2) string character is the number of turn to be done<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/> 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/> 34 38 !> 35 39 !> @note Filter method could be specify for each variable in namelist _namvar_, … … 40 44 !> The number of turn is specify using '*' separator.<br/> 41 45 !> Example: 42 !> - cn_varinfo='varname1:2*hamming(@f$cutoff@f$,@f$radius@f$)', 'varname2:gauss(@f$cutoff@f$,@f$radius@f$,@f$\alpha@f$)' 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$)' 43 48 !> 44 49 !> to filter variable value:<br/> … … 106 111 !> 107 112 !> @author J.Paul 108 !> - November, 2013- Initial Version113 !> @date November, 2013 - Initial Version 109 114 ! 110 115 !> @param[inout] td_var variable structure … … 250 255 !> 251 256 !> @author J.Paul 252 !> - November, 2013- Initial Version257 !> @date November, 2013 - Initial Version 253 258 ! 254 259 !> @param[inout] td_var variable … … 296 301 297 302 !3-extrapolate 298 CALL extrap_fill_value( td_var , id_iext=id_radius, id_jext=id_radius )303 CALL extrap_fill_value( td_var ) !, id_iext=id_radius, id_jext=id_radius ) 299 304 300 305 !4-filtering … … 341 346 ! 342 347 !> @author J.Paul 343 !> - November, 2013- Initial Version348 !> @date November, 2013 - Initial Version 344 349 ! 345 350 !> @param[inout] dd_value array of value to be filtered … … 393 398 !> 394 399 !> @author J.Paul 395 !> - November, 2013- Initial Version400 !> @date November, 2013 - Initial Version 396 401 ! 397 402 !> @param[inout] dd_value array of value to be filtered … … 439 444 !> 440 445 !> @author J.Paul 441 !> - November, 2013- Initial Version446 !> @date November, 2013 - Initial Version 442 447 ! 443 448 !> @param[inout] dd_value array of value to be filtered … … 482 487 !> 483 488 !> @author J.Paul 484 !> - November, 2013- Initial Version489 !> @date November, 2013 - Initial Version 485 490 ! 486 491 !> @param[inout] dd_value array of value to be filtered … … 537 542 !> 538 543 !> @author J.Paul 539 !> - Nov, 2013- Initial Version544 !> @date November, 2013 - Initial Version 540 545 ! 541 546 !> @param[inout] dd_value array of value to be filtered … … 590 595 ! 591 596 !> @author J.Paul 592 !> - November, 2013- Initial Version597 !> @date November, 2013 - Initial Version 593 598 ! 594 599 !> @param[in] cd_name filter name … … 649 654 ! 650 655 !> @author J.Paul 651 !> - November, 2013- Initial Version656 !> @date November, 2013 - Initial Version 652 657 ! 653 658 !> @param[in] cd_name filter name … … 695 700 ! 696 701 !> @author J.Paul 697 !> - November, 2013- Initial Version702 !> @date November, 2013 - Initial Version 698 703 ! 699 704 !> @param[in] dd_cutoff cut-off frequency … … 749 754 ! 750 755 !> @author J.Paul 751 !> - November, 2013- Initial Version756 !> @date November, 2013 - Initial Version 752 757 ! 753 758 !> @param[in] dd_cutoff cut-off frequency … … 808 813 ! 809 814 !> @author J.Paul 810 !> - November, 2013- Initial Version815 !> @date November, 2013 - Initial Version 811 816 ! 812 817 !> @param[in] dd_cutoff cut-off frequency … … 863 868 ! 864 869 !> @author J.Paul 865 !> - November, 2013- Initial Version870 !> @date November, 2013 - Initial Version 866 871 ! 867 872 !> @param[in] dd_cutoff cut-off frequency … … 922 927 ! 923 928 !> @author J.Paul 924 !> - November, 2013- Initial Version929 !> @date November, 2013 - Initial Version 925 930 ! 926 931 !> @param[in] dd_cutoff cut-off frequency … … 978 983 !> 979 984 !> @author J.Paul 980 !> - November, 2013- Initial Version985 !> @date November, 2013 - Initial Version 981 986 !> 982 987 !> @param[in] dd_cutoff cut-off frequency … … 1038 1043 !> 1039 1044 !> @author J.Paul 1040 !> - November, 2013- Initial Version1045 !> @date November, 2013 - Initial Version 1041 1046 !> 1042 1047 !> @param[in] dd_cutoff cut-off frequency … … 1090 1095 !> 1091 1096 !> @author J.Paul 1092 !> - November, 2013- Initial Version1097 !> @date November, 2013 - Initial Version 1093 1098 !> 1094 1099 !> @param[in] dd_cutoff cut-off frequency … … 1146 1151 !> 1147 1152 !> @author J.Paul 1148 !> - November, 2013- Initial Version1153 !> @date November, 2013 - Initial Version 1149 1154 !> 1150 1155 !> @param[in] dd_cutoff cut-off frequency … … 1198 1203 !> 1199 1204 !> @author J.Paul 1200 !> - November, 2013- Initial Version1205 !> @date November, 2013 - Initial Version 1201 1206 !> 1202 1207 !> @param[in] dd_cutoff cut-off frequency
Note: See TracChangeset
for help on using the changeset viewer.