Converts hdf5 (Mohid format) file in Delft3D initial and boundary con…

…dtions Converts hdf5 (Mohid format) file in Delft3D initial and boundary condtions
Mohid-Water-Modelling-System · Jul 18, 2018 · 416f8f2 · 416f8f2
1 parent efc5561
commit 416f8f2
Show file tree

Hide file tree

Showing 2 changed files with 224 additions and 30 deletions.
diff --git a/Software/ConvertToHDF5/ConvertToHDF5.F90 b/Software/ConvertToHDF5/ConvertToHDF5.F90
@@ -67,6 +67,7 @@ program ConvertToHDF5
     use ModuleMOG2DFormat
     use ModuleIHRadarFormat
 #endif
+    use ModuleDelft3D_2_Mohid
 
     implicit none
 
@@ -109,6 +110,8 @@ program ConvertToHDF5
     character(len = StringLength), parameter:: GluesHD5Files                = 'GLUES HDF5 FILES'
     character(len = StringLength), parameter:: PatchHD5Files                = 'PATCH HDF5 FILES'
     character(len = StringLength), parameter:: ConvertIHRadarFormatToHDF5   = 'CONVERT IH RADAR FORMAT'
+
+    character(len = StringLength), parameter:: ConvertDelft3DFormatToHDF5   = 'CONVERT DELFT3D FORMAT'    
 
     logical               :: WatchPassedAsArgument = .false.
     logical               :: Watch     = .false.
@@ -263,7 +266,7 @@ subroutine ReadOptions
         if (DataFile == null_str) then
 
             !Read input file name from nomfich file
-            call ReadFileName('IN_MODEL', DataFile, "Convert2netcdf", STAT = STAT_CALL)
+            call ReadFileName('IN_MODEL', DataFile, "ConvertToHDF5", STAT = STAT_CALL)
 
             if     (STAT_CALL == FILE_NOT_FOUND_ERR_) then
                 DataFile = 'ConvertToHDF5Action.dat'    
@@ -525,6 +528,10 @@ subroutine ReadOptions
                             call ConvertIHRadarFormat(ObjEnterData, ClientNumber, STAT = STAT_CALL)
                             if(STAT_CALL .ne. SUCCESS_) stop 'ReadOptions - ConvertToHDF5 - ERR270'
 #endif                  
+
+                        case (ConvertDelft3DFormatToHDF5)
+
+                            call ConvertDelft3D_2_Mohid(ObjEnterData, ClientNumber, STAT = STAT_CALL)                        
 
                         case default