diff --git a/Software/MOHIDWater/ModuleHydrodynamic.F90 b/Software/MOHIDWater/ModuleHydrodynamic.F90 index 2386c68c7..bc6ab8927 100644 --- a/Software/MOHIDWater/ModuleHydrodynamic.F90 +++ b/Software/MOHIDWater/ModuleHydrodynamic.F90 @@ -4471,7 +4471,7 @@ Subroutine Construct_Numerical_Options Me%ObjEnterData, iflag, & SearchType = FromFile, & keyword = 'READ_CONTINUOUS_FORMAT', & - Default = DefaultFormat, & + Default = HDF5_, & ClientModule ='ModuleHydrodynamic', & STAT = STAT_CALL) if (STAT_CALL /= SUCCESS_) & @@ -4495,7 +4495,7 @@ Subroutine Construct_Numerical_Options Me%ObjEnterData, iflag, & SearchType = FromFile, & keyword = 'WRITE_CONTINUOUS_FORMAT', & - Default = DefaultFormat, & + Default = HDF5_, & ClientModule ='ModuleHydrodynamic', & STAT = STAT_CALL) if (STAT_CALL /= SUCCESS_) & @@ -4520,7 +4520,7 @@ Subroutine Construct_Numerical_Options Me%ObjEnterData, iflag, & SearchType = FromFile, & keyword = 'CONTINUOUS_FORMAT', & - Default = DefaultFormat, & + Default = HDF5_, & ClientModule ='ModuleHydrodynamic', & STAT = STAT_CALL) if (STAT_CALL /= SUCCESS_) & diff --git a/Software/MOHIDWater/ModuleTurbulence.F90 b/Software/MOHIDWater/ModuleTurbulence.F90 index e062ea439..6c9fc8e2d 100644 --- a/Software/MOHIDWater/ModuleTurbulence.F90 +++ b/Software/MOHIDWater/ModuleTurbulence.F90 @@ -1667,7 +1667,7 @@ subroutine TurbulenceOptions Me%ObjEnterData, flag, & SearchType = FromFile, & keyword = 'READ_CONTINUOUS_FORMAT', & - Default = DefaultFormat, & + Default = HDF5_, & ClientModule ='Turbulence', & STAT = STAT_CALL) if (STAT_CALL /= SUCCESS_) & @@ -1691,7 +1691,7 @@ subroutine TurbulenceOptions Me%ObjEnterData, flag, & SearchType = FromFile, & keyword = 'WRITE_CONTINUOUS_FORMAT', & - Default = DefaultFormat, & + Default = HDF5_, & ClientModule ='Turbulence', & STAT = STAT_CALL) if (STAT_CALL /= SUCCESS_) & @@ -1718,7 +1718,7 @@ subroutine TurbulenceOptions Me%ObjEnterData, flag, & SearchType = FromFile, & keyword = 'CONTINUOUS_FORMAT', & - Default = DefaultFormat, & + Default = HDF5_, & ClientModule ='Turbulence', & STAT = STAT_CALL) if (STAT_CALL /= SUCCESS_) &