Hotfix potential init

Author: jginternational

kratos.gid/apps/PotentialFluid/start.tcl

@@ -22,5 +22,4 @@ proc ::PotentialFluid::Init { app } {
     set ::GidPriv(DuplicateEntities) 1
     PotentialFluid::xml::Init
     PotentialFluid::write::Init
-
 }

kratos.gid/apps/PotentialFluid/write/write.tcl

@@ -11,12 +11,12 @@ proc ::PotentialFluid::write::Init { } {
     variable writeAttributes
     set writeAttributes [::Fluid::write::GetAttributes]
     SetAttribute validApps [list "Fluid" "PotentialFluid"]
-    # Fluid has implemented the geometry mode, but we do not use it yet in inherited apps
-    ::Fluid::write::SetAttribute write_mdpa_mode [::PotentialFluid::GetWriteProperty write_mdpa_mode]
 }
 
 # Events
 proc PotentialFluid::write::writeModelPartEvent { } {
+    # Fluid has implemented the geometry mode, but we do not use it yet in inherited apps
+    ::Fluid::write::SetAttribute write_mdpa_mode [::PotentialFluid::GetWriteProperty write_mdpa_mode]
     # Add the PotentialFluid to the Fluid valid applications list
     Fluid::write::AddValidApps "PotentialFluid"
     Fluid::write::writeModelPartEvent