Mohid Water - by default all transient and initial/final files are as…

…sumed to be hdf5 format Mohid Water - by default all transient and initial/final files are assumed to be hdf5 format
Mohid-Water-Modelling-System · Jul 19, 2018 · 57607ad · 57607ad
1 parent 416f8f2
commit 57607ad
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git 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
@@ -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_)                                                      &