faltaba otro ifdef para compilar con cygwin

salvaugres · Apr 18, 2024 · 6c4aaf1 · 6c4aaf1
1 parent 4f09bf8
commit 6c4aaf1
Showing 1 changed file with 12 additions and 4 deletions.
diff --git a/src_main_pub/timestepping.F90 b/src_main_pub/timestepping.F90
@@ -114,8 +114,11 @@ module Solver
 #ifdef CompileWithPrescale
    USE P_rescale
 #endif              
+
+#ifdef CompileWithWires_mtln 
    use mtln_solver_mod, mtln_solver_t => mtln_t
    use Wire_bundles_mtln_mod
+#endif   
 !!
 #ifdef CompileWithProfiling
    use nvtx
@@ -142,11 +145,16 @@ subroutine launch_simulation(sgg,sggMtag,sggMiNo,sggMiEx,sggMiEy,sggMiEz,sggMiHx
    opcionestotales,sgbcFreq,sgbcresol,sgbccrank,sgbcDepth,fatalerror,fieldtotl,permitscaling, &
    EpsMuTimeScale_input_parameters, &
    stochastic,mpidir,verbose,precision,hopf,ficherohopf,niapapostprocess,planewavecorr, &
-   dontwritevtk,experimentalVideal,forceresampled,factorradius,factordelta,noconformalmapvtk, &
-   mtln_solver)
-
-!!!                          
+   dontwritevtk,experimentalVideal,forceresampled,factorradius,factordelta,noconformalmapvtk &
+   ,mtln_solver &  
+#ifdef CompileWithWires_mtln  
+       )
+#endif          
+!!!           
+
+#ifdef CompileWithWires_mtln   
    type (mtln_solver_t) :: mtln_solver
+#ifdef CompileWithWires_mtln    
 !!!
       logical :: noconformalmapvtk
       logical :: hopf,experimentalVideal,forceresampled