Changeset 2334 in lmdz_wrf

Timestamp:

Feb 13, 2019, 2:37:43 AM (6 years ago)

Author:

lfita

Message:

Working on the segmentation fault!

Location:

trunk/tools

Files:

• module_ForDiagnostics.f90 (modified) (1 diff)
• module_scientific.f90 (modified) (1 diff)

trunk/tools/module_ForDiagnostics.f90

@@ -1056 +1056 @@
     ! Homogenizing indices of the ranges
     Lranges = iranges /= 0
-    CALL polygons(.TRUE., d1, d2, Lranges, ranges, Nranges)
+    CALL polygons(.FALSE., d1, d2, Lranges, ranges, Nranges)
 
 !    IF (TRIM(face) == 'WE') THEN

trunk/tools/module_scientific.f90

@@ -2703 +2703 @@
   CALL clean_polygons(dx, dy, boolmat, polys, Npoly, dbg)
 
-  IF (ALLOCATED(borders)) DEALLOCATE (borders)  
-  IF (ALLOCATED(Nptpaths)) DEALLOCATE (Nptpaths)
-  IF (ALLOCATED(paths)) DEALLOCATE (paths)
-  IF (ALLOCATED(vertxs)) DEALLOCATE (vertxs)
-  IF (ALLOCATED(points)) DEALLOCATE (points)
-  IF (ALLOCATED(isin)) DEALLOCATE (isin)
+  PRINT *,'  Hello '
+
+  !IF (ALLOCATED(borders)) DEALLOCATE (borders)  
+  !IF (ALLOCATED(Nptpaths)) DEALLOCATE (Nptpaths)
+  !IF (ALLOCATED(paths)) DEALLOCATE (paths)
+  !IF (ALLOCATED(vertxs)) DEALLOCATE (vertxs)
+  !IF (ALLOCATED(points)) DEALLOCATE (points)
+  !IF (ALLOCATED(isin)) DEALLOCATE (isin)
+
+  PRINT *,'  Bye! '
 
   RETURN