diff --git a/ROSCO/rosco_registry/write_registry.py b/ROSCO/rosco_registry/write_registry.py index 380a26be..f3f37ad4 100644 --- a/ROSCO/rosco_registry/write_registry.py +++ b/ROSCO/rosco_registry/write_registry.py @@ -62,7 +62,7 @@ def write_roscoio(yfile): file.write(" CHARACTER(128) :: ErrMsg \n") file.write(" CHARACTER(128) :: n_t_global ! timestep number as a string\n") file.write("\n") - file.write(" WRITE(n_t_global, '(I0.0)' ), NINT(LocalVar%Time/LocalVar%DT)\n") + file.write(" WRITE(n_t_global, '(I0.0)' ) NINT(LocalVar%Time/LocalVar%DT)\n") file.write(" InFile = RootName(1:size_avcOUTNAME-5)//TRIM( n_t_global )//'.RO.chkp'\n") file.write(" OPEN(unit=Un, FILE=TRIM(InFile), STATUS='UNKNOWN', FORM='UNFORMATTED' , ACCESS='STREAM', IOSTAT=ErrStat, ACTION='WRITE' )\n") file.write("\n") @@ -103,7 +103,7 @@ def write_roscoio(yfile): file.write(" CHARACTER(128) :: ErrMsg \n") file.write(" CHARACTER(128) :: n_t_global ! timestep number as a string\n") file.write("\n") - file.write(" WRITE(n_t_global, '(I0.0)' ), NINT(avrSWAP(2)/avrSWAP(3))\n") + file.write(" WRITE(n_t_global, '(I0.0)' ) NINT(avrSWAP(2)/avrSWAP(3))\n") file.write(" InFile = RootName(1:size_avcOUTNAME-5)//TRIM( n_t_global )//'.RO.chkp'\n") file.write(" OPEN(unit=Un, FILE=TRIM(InFile), STATUS='UNKNOWN', FORM='UNFORMATTED' , ACCESS='STREAM', IOSTAT=ErrStat, ACTION='READ' )\n") file.write("\n") diff --git a/ROSCO/src/ROSCO_IO.f90 b/ROSCO/src/ROSCO_IO.f90 index 98510c21..71f253ca 100644 --- a/ROSCO/src/ROSCO_IO.f90 +++ b/ROSCO/src/ROSCO_IO.f90 @@ -25,7 +25,7 @@ SUBROUTINE WriteRestartFile(LocalVar, CntrPar, objInst, RootName, size_avcOUTNAM CHARACTER(128) :: ErrMsg CHARACTER(128) :: n_t_global ! timestep number as a string - WRITE(n_t_global, '(I0.0)' ), NINT(LocalVar%Time/LocalVar%DT) + WRITE(n_t_global, '(I0.0)' ) NINT(LocalVar%Time/LocalVar%DT) InFile = RootName(1:size_avcOUTNAME-5)//TRIM( n_t_global )//'.RO.chkp' OPEN(unit=Un, FILE=TRIM(InFile), STATUS='UNKNOWN', FORM='UNFORMATTED' , ACCESS='STREAM', IOSTAT=ErrStat, ACTION='WRITE' ) @@ -196,7 +196,7 @@ SUBROUTINE ReadRestartFile(avrSWAP, LocalVar, CntrPar, objInst, PerfData, RootNa CHARACTER(128) :: ErrMsg CHARACTER(128) :: n_t_global ! timestep number as a string - WRITE(n_t_global, '(I0.0)' ), NINT(avrSWAP(2)/avrSWAP(3)) + WRITE(n_t_global, '(I0.0)' ) NINT(avrSWAP(2)/avrSWAP(3)) InFile = RootName(1:size_avcOUTNAME-5)//TRIM( n_t_global )//'.RO.chkp' OPEN(unit=Un, FILE=TRIM(InFile), STATUS='UNKNOWN', FORM='UNFORMATTED' , ACCESS='STREAM', IOSTAT=ErrStat, ACTION='READ' )