fix logical format specifier

schism-dev · Oct 21, 2021 · 8f78866 · 8f78866
1 parent abc117d
commit 8f78866
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/mediator/med_phases_history_mod.F90 b/mediator/med_phases_history_mod.F90
@@ -1049,7 +1049,7 @@ subroutine med_phases_history_write_comp_aux(gcomp, compid, auxcomp, rc)
           if (isPresent .and. isSet) then
              call NUOPC_CompAttributeGet(gcomp, name=trim(prefix)//'_enabled', value=cvalue, rc=rc)
              if (ChkErr(rc,__LINE__,u_FILE_u)) return
-             read(cvalue,'(l)') enable_auxfile
+             read(cvalue,'(l7)') enable_auxfile
           else
              enable_auxfile = .false.
           end if