Fix compile issue

Author: wilfonba

src/pre_process/include/1dHardcodedIC.fpp

@@ -1,7 +1,7 @@
-#:def 1dHardcoded()
+#:def Hardcoded1D()
 
-    if (patch_icpp%hcid == 100) then
+    if (patch_icpp(patch_id)%hcid == 100) then
 
     end if
 
-#:enddef
+#:enddef

src/pre_process/include/2dHardcodedIC.fpp

@@ -1,7 +1,7 @@
-#:def 2dHardcoded()
+#:def Hardcoded2D()
 
-    if (patch_icpp%hcid == 200) then
+    if (patch_icpp(patch_id)%hcid == 200) then
 
     end if
 
-#:enddef
+#:enddef

src/pre_process/include/3dHardcodedIC.fpp

@@ -1,7 +1,7 @@
-#:def 3dHardcoded()
+#:def Hardcoded3D()
 
-    if (patch_icpp%hcid == 300) then
+    if (patch_icpp(patch_id)%hcid == 300) then
 
     end if
 
-#:enddef
+#:enddef

src/pre_process/m_patches.fpp

@@ -816,7 +816,7 @@ contains
                 call s_assign_patch_primitive_variables(patch_id, i, 0, 0, &
                                                 eta, q_prim_vf, patch_id_fp)
 
-                @:1dHardcoded()
+                @:Hardcoded1D()
             end if
         end do
 
@@ -930,7 +930,7 @@ contains
                     call s_assign_patch_primitive_variables(patch_id, i, j, 0, &
                                                     eta, q_prim_vf, patch_id_fp)
 
-                    @:2dHardcoded()
+                    @:Hardcoded2D()
                 end if
             end do
         end do
@@ -1004,7 +1004,7 @@ contains
                         call s_assign_patch_primitive_variables(patch_id, i, j, k, &
                                                     eta, q_prim_vf, patch_id_fp)
 
-                        @:3dHardcoded()
+                        @:Hardcoded3D()
 
                     end if