Changeset 61 for trunk/src/sinobad.d
- Timestamp:
- 07/26/11 11:06:10 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/sinobad.d
-
Property
svn:mergeinfo
set to
False
/branches/branche-mb/src/sinobad.d merged eligible
r54 r61 1 //#define FILTER 1 2 //#define SOLSORYAO 2 3 //#define OPTIMORDER … … 5 6 //#Mohamed Berrada 26/02/2009 6 7 //#modification (#define) Julien Brajard 06/2011 8 //#modification (filtre) Mohamed Berrada 19/07/2011 7 9 //#============================================================================== 8 10 //#DEFVAL ---------------------------------------------DEFVAL … … 15 17 defval TA 50 |__DATE__ | number of time steps 16 18 defval TU 2 | start time step 19 #ifdef FILTER 20 defval OFTL 40 21 defval OFTZ 40 22 defval OFT 80 23 #endif 24 #ifndef FILTER 25 defval OFT 0 26 #endif 17 27 //#exec disp_valdef 28 #ifdef FILTER 29 defval K_FILTER 30 #endif 18 31 #ifdef SOLSORYAO 19 32 defval K_SOLSORYAO … … 30 43 option O_M1QN3 | M2QN1 31 44 //#option O_VARINCR 32 //#option O_GRADTEST45 option O_GRADTEST 33 46 option O_DBG_NANF 34 47 //#option O_DBG_TING 35 48 option O_EXTOBJ "../object/ncutil.o" 36 49 option O_REAL double 37 option o_parallel 1650 option o_parallel 38 51 39 52 //#TRAJECTOIRES (DIM) -----------------------------------TRAJ 40 traj Tcst M 0 1 41 traj Tsbd M TU 0 1 TA 53 #ifdef FILTER 54 traj Tcstf M 0 1 55 traj Tlfil M 1 0 1 OFTL 56 traj Tzfil M 1 OFTL 1 OFTZ 57 #endif 58 traj Tcst M 0 OFT 1 1 59 traj Tsbd M TU OFT 1 TA 42 60 exec disp_traj 43 61 62 #ifdef FILTER 63 space S3df M NX NY NZ Tcstf 64 space S3dtlf M NX NY NZ Tlfil 65 space S3dtzf M NX NY NZ Tzfil 66 #endif 44 67 45 68 space S0d M 1 Tcst … … 62 85 modul sshn_c space S3d inter YA1 YA2 noward output 1 |target 63 86 87 //#modul ta_c space S3d input array NPCA output 1 88 #ifndef FILTER 64 89 modul ta_c space S3d noward output 1 target 65 66 //#modul ta_c space S3d input array NPCA output 1 90 #endif 67 91 68 92 modul sa_c space S3d noward output 1 |target 69 93 modul ua_c space S3d noward output 1 |target 70 94 modul va_c space S3d noward output 1 |target 95 96 #ifdef FILTER 97 modul nu space S3df noward output 1 target 98 modul dta_lfil space S3dtlf input 6 output 1 tempo 99 modul ztuv_lfil space S3dtlf input 3 output 2 tempo 100 modul dta_zfil space S3dtzf input 4 output 1 tempo 101 modul zwy_zfil space S3dtzf input 2 output 1 tempo 102 modul ta_c space S3d input 1 output 1 103 #endif 71 104 72 105 //#------------- … … 206 239 modul gcx_dynspg_flt space S3dt inter YA1 YA2 input 2 output 1 tempo 207 240 #ifndef SOLSORYAO 208 modul solsor_dynspg_flt space S3dt inter YA1 YA2 input array 19 output 1 tempo 241 modul solsor_dynspg_flt space S3dt inter YA1 YA2 input array 19 output 1 tempo hidjac 242 modul gcx2 space S3dt inter YA1 YA2 input 1 output 1 tempo hidjac 209 243 #endif 210 244 … … 214 248 modul solsor_flag space Ssolsor input 4 output 2 tempo 215 249 #define S3dt S3dt_b 216 #endif217 218 219 250 modul gcx2 space S3dt inter YA1 YA2 input 1 output 1 tempo 251 #endif 252 253 254 220 255 modul spguv_dynspg_flt space S3dt inter YA1 YA2 input 3 output 2 tempo 221 256 modul ua space S3dt input 3 output 1 tempo … … 246 281 #endif 247 282 248 //exec disp_modul283 exec disp_modul 249 284 //############################################################################################# 250 285 286 #ifdef FILTER 287 //#---------->dta_lfil 288 ctin dta_lfil 1 from nu 1 i j k 289 ctin dta_lfil 2 from dta_lfil 1 i j k-1 t-1 290 ctin dta_lfil 3 from ztuv_lfil 1 i-1 j k t 291 ctin dta_lfil 4 from ztuv_lfil 1 i j k t 292 ctin dta_lfil 5 from ztuv_lfil 2 i j-1 k t 293 ctin dta_lfil 6 from ztuv_lfil 2 i j k t 294 295 //#---------->ztuv_lfil 296 ctin ztuv_lfil 1 from dta_lfil 1 i+1 j k t-1 297 ctin ztuv_lfil 2 from dta_lfil 1 i j k t-1 298 ctin ztuv_lfil 3 from dta_lfil 1 i j+1 k t-1 299 300 //#---------->dta_zfil 301 ctin dta_zfil 1 from dta_lfil 1 i j k t 302 ctin dta_zfil 2 from dta_zfil 1 i j k t-1 303 ctin dta_zfil 3 from zwy_zfil 1 i j k+1 t 304 ctin dta_zfil 4 from zwy_zfil 1 i j k t 305 306 //#---------->zwy_zfil 307 ctin zwy_zfil 1 from dta_zfil 1 i j k-1 t-1 308 ctin zwy_zfil 2 from dta_zfil 1 i j k t-1 309 310 //#---------->ta_c 311 ctin ta_c 1 from dta_zfil 1 i j k-1 t 312 #endif 251 313 //#ctin ta_c 1..NPCA from pca_ta 1..NPCA 1 314 315 //exec disp_ct_in 316 exec disp_modul 317 252 318 253 319 //#---------->sbcgyre … … 674 740 ctin wa 1 from wa 1 i j k+1 t 675 741 ctin wa 2 from hdivn 1 i j k t 676 677 742 //#----------> 678 743 … … 811 876 #endif 812 877 878 #ifdef FILTER 879 // calcul du filtre 880 881 order modinspace S3dtlf 882 order YA3 883 order YA2 YA1 884 ztuv_lfil 885 forder 886 order YA2 YA1 887 dta_lfil 888 forder 889 forder 890 forder 891 892 order modinspace S3dtzf 893 order YA3 YA2 YA1 894 zwy_zfil 895 forder 896 order YA3 YA2 YA1 897 dta_zfil 898 forder 899 forder 900 order modinspace S3d 901 order YA3 YA2 YA1 902 ta_c 903 forder 904 forder 905 906 #endif 907 813 908 #ifndef OPTIMORDER 814 909 815 910 order modinspace S3dt 816 911 //#---------->sbcgyre … … 1007 1102 #endif 1008 1103 1104 #ifdef FILTER 1105 1106 order spaceintraj Tlfil 1107 S3dtlf 1108 forder 1109 order spaceintraj Tzfil 1110 S3dtzf 1111 forder 1112 order spaceintraj Tcst 1113 S3d 1114 forder 1115 1116 #endif 1117 1009 1118 #ifndef SOLSORYAO 1119 1010 1120 order spaceintraj Tsbd 1011 1121 S3dt … … 1021 1131 insert_fct arg xchangesavemode 1022 1132 1133 insert_fct arg load_eb 1134 1023 1135 insert_fct arg xwriteout 1024 1136 insert_fct arg xwritegrad -
Property
svn:mergeinfo
set to
False
Note: See TracChangeset
for help on using the changeset viewer.