diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/AHFinder_flow.F | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/src/AHFinder_flow.F b/src/AHFinder_flow.F index e867c83..89e4f9b 100644 --- a/src/AHFinder_flow.F +++ b/src/AHFinder_flow.F @@ -311,6 +311,15 @@ . / (abs(ahfdiff) + abs(ahfdiff_old)) +! Open logfile. + + logf = filestr(1:nfile)//"/ahf_logfile" + + if (logfile.and.(myproc.eq.0)) then + open(11,file=logf,form='formatted',status='old', + . position='append') + end if + ! *************************** ! *** ADJUST STEPSIZE *** ! *************************** @@ -332,8 +341,8 @@ end if if (logfile) then - write(1,*) - write(1,"(A15,ES14.6)") ' New stepsize =',A + write(11,*) + write(11,"(A15,ES14.6)") ' New stepsize =',A end if ! If the diference is too small, we can safely increase @@ -350,8 +359,8 @@ end if if (logfile) then - write(1,*) - write(1,"(A15,ES14.6)") ' New stepsize =',A + write(11,*) + write(11,"(A15,ES14.6)") ' New stepsize =',A end if end if @@ -361,15 +370,6 @@ ! *** LOGFILE AND MESSAGES TO SCREEN *** ! ****************************************** -! Open logfile. - - logf = filestr(1:nfile)//"/ahf_logfile" - - if (logfile.and.(myproc.eq.0)) then - open(11,file=logf,form='formatted',status='old', - . position='append') - end if - ! Write messages. if (myproc.eq.0) then |