From 47332aa9ace0a2b8809da64ad09f286f9102c4f8 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 12 Apr 2021 12:19:49 -0400 Subject: [PATCH] Always set emedelay=2.5 for submodes Q65-60[A-E]. --- lib/jt9.f90 | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lib/jt9.f90 b/lib/jt9.f90 index e07fd742e..38f31f4f3 100644 --- a/lib/jt9.f90 +++ b/lib/jt9.f90 @@ -322,6 +322,10 @@ program jt9 shared_data%params%nmode=mode end if shared_data%params%nsubmode=nsubmode + +!### temporary, for MAP65: + if(mode.eq.66 .and. TRperiod.eq.60) shared_data%params%emedelay=2.5 + datetime="2013-Apr-16 15:13" !### Temp shared_data%params%datetime=transfer(datetime,shared_data%params%datetime) if(mode.eq.9 .and. fsplit.ne.2700) shared_data%params%nfa=fsplit