diff options
| author | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-10-26 06:09:46 -0400 |
|---|---|---|
| committer | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-10-26 06:09:46 -0400 |
| commit | e2cfb58950594a3ad6f9ee3f66f97ac3ce11711e (patch) | |
| tree | 7e0c68faf0ab9c65ec1ec4e8115325e314864a3f /Dragon/data/salmacro_proc/TDCM69.c2m | |
| parent | 5321198af9510e29be2b6a5a3245314e1b5c27cb (diff) | |
Resolve "Correct SFR geometry issues in module SALT:"
Diffstat (limited to 'Dragon/data/salmacro_proc/TDCM69.c2m')
| -rw-r--r-- | Dragon/data/salmacro_proc/TDCM69.c2m | 32 |
1 files changed, 28 insertions, 4 deletions
diff --git a/Dragon/data/salmacro_proc/TDCM69.c2m b/Dragon/data/salmacro_proc/TDCM69.c2m index 590d461..0443dbc 100644 --- a/Dragon/data/salmacro_proc/TDCM69.c2m +++ b/Dragon/data/salmacro_proc/TDCM69.c2m @@ -7,8 +7,9 @@ *------------------------------------------------------------------------------------------------- SEQ_ASCII TDT_LAT_DAT :: FILE './irena_tiso_s30.dat' ; SEQ_ASCII TDT_LAT_PS :: FILE './irena_tiso_s30.eps' ; +SEQ_ASCII TDT_LAT_M :: FILE './irena_tiso_s30.m' ; MODULE - G2S: MAC: SALT: ASM: FLU: EDI: END: ; + G2S: MAC: SALT: TLM: ASM: FLU: EDI: DELETE: END: ; LINKED_LIST MACRO4G_0 MACRO4G TRACK CP FLUX OUT ; SEQ_BINARY @@ -86,17 +87,41 @@ TDT_LAT_PS := G2S: TDT_LAT_DAT :: DRAWMIX ; TRACK TRACK_f := SALT: TDT_LAT_DAT :: TITL 'TDCM69 imported' - EDIT 6 + EDIT 1 ANIS 1 TISO 8 10.0 REND LONG IC EPSJ 1.0E-4 ; *------------------------------------------------------------------------------------------------- -* Flux calculation +* Flux calculation IC *------------------------------------------------------------------------------------------------- CP := ASM: MACRO4G TRACK TRACK_f :: PIJ ; FLUX := FLU: MACRO4G CP TRACK TRACK_f :: TYPE K ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.008920 ; + +TRACK TRACK_f CP FLUX := DELETE: TRACK TRACK_f CP FLUX ; + +TRACK TRACK_f := SALT: TDT_LAT_DAT :: + TITL 'TDCM69 imported TISO' + EDIT 1 + ANIS 1 + TISO 8 10.0 + REND LONG + NOIC + ; + +TDT_LAT_M := TLM: TRACK TRACK_f :: + EDIT 1 + NTPO 1 + DIRECTIONS NoPause DIR 0 + ; +*------------------------------------------------------------------------------------------------- +* Flux calculation TISO +*------------------------------------------------------------------------------------------------- +CP := ASM: MACRO4G TRACK TRACK_f :: PIJ ; +FLUX := FLU: MACRO4G CP TRACK TRACK_f :: TYPE K ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.008918 ; *------------------------------------------------------------------------------------------------- * Editing @@ -107,7 +132,6 @@ OUT := EDI: MACRO4G TRACK FLUX :: COND ; -assertS FLUX :: 'K-EFFECTIVE' 1 1.007306 ; ECHO "test TDCM69 completed" ; END: ; QUIT "LIST" . |