prototype automated checking of OTPs

This commit is contained in:
Brian Moran
2024-08-08 15:25:57 -07:00
parent c2531f675e
commit 6ddc7cf7f9
4 changed files with 168 additions and 62 deletions
+1 -1
View File
@@ -146,7 +146,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
access='stream')
write(47) params%yymmdd,params%nutc,id2(1:20),id2(1:180000)
close(47)
call execute_command_line(trim(exe_dir)//'/sfrx '//'"'//trim(temp_dir)//'/fort.47"')
call execute_command_line(trim(exe_dir)//'/sfrx OTP '//'"'//trim(temp_dir)//'/fort.47"')
else
call timer('decft8 ',0)
newdat=params%newdat