Changeset 2526 in lmdz_wrf

Timestamp:

May 10, 2019, 9:34:38 PM (6 years ago)

Author:

lfita

Message:

Fixing minor details

File:

• trunk/tools/module_scientific.f90 (modified) (2 diffs)

trunk/tools/module_scientific.f90

@@ -91 +91 @@
 ! SortR_K*: Subroutine receives an array x() r_K and sorts it into ascending order.
 ! spacepercen: Subroutine to compute the space-percentages of a series of grid cells (B) into another series of grid-cells (A)
+! spacepercen_within_reg: Subroutine to compute the percentage of a series of grid cells which are encompassed by a polygon
 ! spaceweight_Icount: Subroutine to compute the percentage of a series of categories using weights
 ! spaceweightstats: Subroutine to compute an spatial statistics value from a matrix B into a matrix A using weights
@@ -4950 +4951 @@
 ! percentages: percentages of area of each of the grids within the polygon
 
-    fname = 'spacepercen_within_reg'
+    fname = 'grid_within_polygon'
 
     Ngridsin = 0